复制一系列已过滤的单元格

Question

我无法将数据从工作簿复制到另一个工作簿。 主文件main_sheet从另一个工作簿的工作表中收集数据，该工作簿按月和年更改名称，因此当前为Workbookdecember18（始终受密码保护）。

在Workbookdecember18中，我必须先按code过滤0列，然后将data3列中的A列从Z到data1 。然后，我必须将data2，data3和main_sheet的前20行复制到另一个工作簿的Workbookdecember18中。

这是源工作表main_sheet：

这是另一本带有Windows("Workbookdecember18").Activate Sheets("1").Select ActiveSheet.Unprotect Range("A2").Select Selection.AutoFilter ActiveSheet.Range("$A$2:$CH$2402").AutoFilter Field:=1, Criteria1:="0" Range("D3").Select ActiveWorkbook.Worksheets("1").AutoFilter.Sort.SortFields _ .Clear ActiveWorkbook.Worksheets("1").AutoFilter.Sort.SortFields _ .Add Key:=Range(D3"), SortOn:=xlSortOnValues, Order:=xlDescending, _ DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("1").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A2:D30").Select Selection.Copy Windows("Another workbook").Activate Range("A2:D30").Select ActiveSheet.Paste 的工作簿（通常只有20行）：

这是我编写的代码，但是不起作用：

!strcmp(locale, "C"):Error:Assert failed:in file baseapi.cpp, line 209

第一个问题是，当工作簿的名称每月更改时，我必须使其识别工作簿，并使其选择我需要的20行（即使最后一个可能在过滤后位于200行中）。

Answer 1

在接下来的三到四个星期中，.material-icons.three-d-rotation:before, .icon-mi-three-d-rotation:before { content: '\e84d'; } .material-icons.ac-unit:before, .icon-mi-ac-unit:before { content: '\eb3b'; } 应该在US-EN区域设置中生成 WorkbookDecember18 。

"Workbook" & Format(Date, "mmmmyy")