Excel VBA嵌套循环问题

真的希望有人能帮助我。

我刚刚接触VBA的时候，几个星期才开始挑选比特币。 我试图创build一个嵌套的循环来整合Excel中多个选项卡的数据。

这是基于开始“>”的工作表名称，列3包含True或False值。 然后将数据粘贴到名为导入的工作表中。

两个循环似乎独立工作，但我不能让他们一起工作。

提前致谢。

Sub TestImport() Dim WS As Worksheet Dim Criteria As Boolean Dim C As Integer Criteria = True Application.ScreenUpdating = False Sheets("Import").UsedRange.Offset(1).Clear For Each WS In ThisWorkbook.Worksheets If Left(WS.Name, 1) = ">" Then For C = 2 To WS.Range("A1000").End(xlUp).Row If WS.Cells(C, 3) = Criteria Then WS.Range(Cells(C, 5), Cells(C, 12)).Copy Worksheets("Import").Range("A100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats End If Next C End If Next WS Application.ScreenUpdating = True Sheets("Import").Select End Sub 

Answer 1

由于您正在循环工作簿中的工作表，因此应完全限定您正在工作的任何范围。 具体来说，下面一行：

 WS.Range(Cells(C, 5), Cells(C, 12)).Copy 

应改为：

 WS.Range(WS.Cells(C, 5), WS.Cells(C, 12)).Copy