使用VBA excel自动复制行到单独的电子表格[重复]

Question

当第一个 Sheet 中的输入值等于 Cat 时，我正在尝试将行从一个工作表自动复制到另一个工作表。

因此，如果在master（第一张表）中将Cat 输入Column A，则自动复制到单独的工作表（我们称之为Cat）。

基本上，工作表Cat 应始终包含master 中所有行的精确副本，其中Column A = Cat。

我正在尝试实现的示例如下所示：

大师：

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

猫床单：

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

这是我尝试过的：

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

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

    sht2.UsedRange.ClearContents

    With sht1.Cells(1, 1).CurrentRegion
        .AutoFilter
        .AutoFilter 1, "Cat"
        .SpecialCells(xlCellTypeVisible).EntireRow.Copy sht2.Cells(1, 1)
        .AutoFilter
    End With
End Sub

但是一行有错误：

        .SpecialCells(xlCellTypeVisible).EntireRow.Copy sht2.Cells(1, 1)

Answer 1

似乎你必须跳过列 B 和 C，我认为 from your other post 是隐藏的

然后您可以取消隐藏列 B 和 C，复制/粘贴，然后在这两张表中隐藏/删除它们

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
        .Range("B:C").EntireColumn.Hidden = False ' unhide columns B and C
        .AutoFilter
        .AutoFilter 1, "X"
        .SpecialCells(xlCellTypeVisible).Copy sht2.Cells(1, 1)
        .AutoFilter

        .Range("B:C").EntireColumn.Hidden = True ' hide columns B and C
        sht2.Range("B:C").EntireColumn.Delete ' delete 'sht2' columns B and C
    End With
End Sub