1
Excel电子表格 - 分发主表单行并删除重复项
我有一张主表,我将行分配到具有特定标签的不同表单。 我想让每一行分配到适当的选项卡(来自主服务器),这取决于B列中的信息。 我使用代码来分发列,但如果更改了列,则无法从主列中删除/更新列。然后我添加了一个ID#,它对每个任务都是唯一的。 我尝试将代码更改为从B列读取,但我最终得到的编号为1-31的新工作表。代码在我添加到ID#列之前有效并且有一行: Set rng = ActiveSheet.Range(ActiveSheet.Range("B3"), _ 读 A3。 我的代码: Sub ProcessRows() Dim rng As Range, cell As Range Set rng = ActiveSheet.Range(ActiveSheet.Range("B3"), _ ActiveSheet.Cells(Rows.Count, 1).End(xlUp)) For Each cell In rng.Cells cell.EntireRow.Copy CopyTo(cell) Next cell End Sub 'Return a range object to which a row should be copied …