excel - 过滤后复制和粘贴单元格

Question

我在 A 列中有一些值，它们包括负值和正值，并且我在其中编写了下面的值以在相邻列中过滤和复制相同的值。

但我需要的是过滤后，如果 a3、a7、a8 具有负值，它们应该复制到相邻的单元格，即 b3、b7、b8。我无法得到它。

请帮忙........

Sub AutoFilter_in_Excel()
Range("A1").AutoFilter Field:=1, Criteria1:="<0", Operator:=xlAnd
Worksheets("sheet1").Range("A2:A7").Copy _
Destination:=Worksheets("sheet1").Range("c2")
Range("A1").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Worksheets("sheet1").Range("A2:A7").Copy _
Destination:=Worksheets("sheet1").Range("b2")
End Sub 

Answer 1

这会做到的。您遇到的问题是您无法复制具有多个区域的范围。

Sub AutoFilter_in_Excel()
Dim rg As Range

With Range("A1").CurrentRegion
    .AutoFilter Field:=1, Criteria1:="<0"

    For Each rg In .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Areas

        rg.Copy rg.Offset(, 1)

    Next rg

End With

End Sub