Question

我正在处理一个工作表，我必须根据特定日期过滤掉某些数据。在编写代码以使用Range.AutoFilter过滤数据之后，我希望将工作表中的可见数据（不连续）复制到另一个工作表。为此，我正在使用

With ThisWorkbook.Sheets("ImportDumpData")
    .Activate
    'frow variable counts the total number of rows in the sheet
    frow = .Range("A" & Rows.Count).End(xlUp).Row
    .Columns("U:U").Select
    Selection.AutoFilter
    .Range("U2:U" & frow).AutoFilter field:=1, Criteria1:=">" & ThisWorkbook.Sheets("Main").Range("C4"), Operator:=xlEnd
    .Range("A1:AF" & frow).SpecialCells(xlCellTypeVisible).Copy
End With

弹出错误消息“Microsoft Office Excel无法为此.Range("A1:AF" & row).SpecialCells(xlCellTypeVisible).Copy代码行创建或使用数据范围引用，因为它太复杂”。请建议可以做什么。

Answer 1

ActiveSheet.Range（“$ A $ 1：$ F $ 518”）。AutoFilter字段：= 4，Criteria1：=“＆gt;” .Range（“A：AF”＆amp; frow）.SpecialCells（xlCellTypeVisible）.Copy

使用此代码

VBA：将非连续数据从一个工作表复制到另一个工作表

1 个答案: