Question

我查看了很多其他帖子，但未能找到解决我遇到的问题的可行解决方案。首先，我是VBA的新手，我的意思是总数。我有一个电子表格，当我们成功与某人联系时输入日期。然后需要将这些数据剪切并粘贴到主存档上，以便我们可以证明我们已根据需要调用它们。我需要的是一种将数据所在的整行剪切并粘贴到将存储数据的工作簿上的方法。我的计划是将7个工作簿输入一个主人，但是如果这样可以让事情变得更容易，那么主人可以有7个选项卡。如果需要，我可以提供我正在处理的电子表格。

我尝试过以下代码，但似乎每次都会复制一行，导致主工作表上的空白行（它们实际上显示为黄金，但我认为这与周围单元格的格式有关）。 ..

Sub deleterow()

'Using autofilter to copy rows that have a completed date field to a new 
worksheet

Dim LR As Long
Range("A3").EntireRow.Insert Shift:=xlDown
LR = Sheets("Sheet1").Cells(Rows.Count, "M").End(xlUp).Row + 3
LR1 = Sheets("Sheet3").Cells(Rows.Count, "M").End(xlUp).Row + 1
With Sheets("Sheet1").Range("M3:M" & LR)
    .AutoFilter Field:=1, Criteria1:="<>", VisibleDropDown:=True
    .SpecialCells(xlCellTypeVisible).EntireRow.Copy 
Destination:=Sheets("Sheet3").Range("A" & LR1)
    .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub

某个字段完成后，将数据从一个工作簿移动到另一个工作簿

0 个答案: