0

刚刚用 VBA for Excel 弄湿了我的脚。环顾四周寻找类似的问题，但找不到与此完全相同的东西。

很简单的问题。我有一些数据，想将一部分行复制到工作表中的另一个位置。我认为它不会让我发布图像，所以假设它看起来像这样：

 Column A     Column B     Column C
 product1        1          #VALUE!
 product2        4            100
 product3        22            25
 product4        0             3

我要复制的行是 C 列为 5+ 的行。因此，在这种情况下，第 3 行和第 4 行。如果有帮助，总行数应该始终相同。

我可以在 VBA 中进行复制和粘贴，只是想知道选择这些行的最佳方法是什么。我尝试了一个以 x 为列号的 Do Loop，检查它是否为“>4”，但我无法让它工作。

非常感谢！

4

1 回答 1

0

有很多方法可以解决这个问题。这是一个：

Sub Macro1()

Dim LR As Long

LR = ActiveSheet.UsedRange.Rows.Count
    Range("A1:C1").Range("$A$1:$C$" & LR).AutoFilter Field:=3, Criteria1:=">4", _
        Operator:=xlAnd
    Range("A1:C" & LR).SpecialCells(xlCellTypeVisible).Copy Destination:=Range("L1")
    Range("A1:C1").Range("$A$1:$C$" & LR).AutoFilter
End Sub

调整目标范围以适应。

于 2013-04-25T17:27:54.103 回答