如何将行自动复制到新工作表VBA Excel

我试图auto-copy一行从master spreadsheet到另一个spreadsheet。当输入值在master等于X.

So if X被输入到Column A in the master, then auto-copy分开spreadsheet（我们称之为 X）。基本上Sheet X应始终包含所有内容的精确副本rows in master where Column A = X.

我不确定这是否会影响auto-copy但是master sheet包含一个script隐藏/取消隐藏Columns. So if X被输入到Column A in the master sheet then Column B,C将被隐藏并且D,E,F将显示。

我想要实现的目标的示例如下所示：

Master Sheet包含此信息。但如果X被输入到Column A only D,E,F将可见

A B C D E F
X     4 5 6
Y 1 2 3 4 5
X     1 2 3

X Sheet:

A D E F
X 4 5 6
X 1 2 3

这就是我尝试过的

Sub FilterAndCopy()
Dim sht1 As Worksheet, sht2 As Worksheet

Set sht1 = Sheets("Master")
Set sht2 = Sheets("X")

Intersect(sht2.UsedRange, sht2.Rows("2:" & Rows.Count)).ClearContents

sht1.Cells(1, 1).CurrentRegion.AutoFilter
sht1.Cells(1, 1).CurrentRegion.AutoFilter 1, "X"
sht1.Cells(1, 1).CurrentRegion.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Copy sht2.Cells(2, 1)
sht1.Cells(1, 1).CurrentRegion.AutoFilter

End Sub

但它返回一个错误：

Microsoft Visual Basic
Object variable with block variable not set

我猜你开始清除第 2 行中的“X”表以保留标题

如果是这种情况，您可以清除所有“X”工作表行并将标题从“主”工作表粘贴回

Option Explicit

Sub FilterAndCopy()
    Dim sht1 As Worksheet, sht2 As Worksheet

    Set sht1 = Sheets("Master")
    Set sht2 = Sheets("X")

    sht2.UsedRange.ClearContents
    Dim rng As Range

    With sht1.Cells(1, 1).CurrentRegion
        .AutoFilter
        .AutoFilter 1, "X"
        For Each rng In .SpecialCells(xlCellTypeVisible).Areas ' loop through visible cells "groups"
            rng.Copy sht2.Range(rng.Address) ' copy current group and paste it to 'sht2' (i.e. sheet "X") corresponding address
        Next
        .AutoFilter
    End With

    With sht2.UsedRange ' reference 'sht2' used range
        .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete ' delete referenced sheet blank rows
        .Rows(1).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete ' delete referenced sheet blank columns
    End With
End Sub

Edited考虑可能的“主”工作表隐藏列