Question

所以我试图从工作簿中的每个工作表中的一列中提取信息。目前有506张。每个行都有不同的行数，每个表都有自己唯一的名称。我想要的每个工作表的数据从第8行开始，它在第J列。我正在尝试将所有这些打印到我已调用的测试页中的C列，该测试位于同一工作簿中，但不计入506我之前提到过的床单。这是我到目前为止所写的：

Sub Test()
Columns(3).Insert
For i = 1 To i = 506
    Do While Worksheets(i).Cells(i + 7, 10) <> Null
        Worksheets("test").Cells(i, 3) = Worksheets(i).Cells(i + 7, 10)
    Loop
Next i

End Sub

我今天刚刚开始使用它，但我有很多其他语言的经验，所以我的语法也可能有些偏差。

提前感谢任何天才人士提供的任何建议/提示

Answer 1

您的描述与您的代码不同，所以我猜测......我认为这与您想要的很接近......

Sub Test()

     Dim WS_Count As Integer
     Dim I As Integer

     WS_Count = ActiveWorkbook.Worksheets.Count


     For I = 1 To WS_Count

        ' ONLY IF it is not TEST
        If ActiveWorkbook.Worksheets(I).Name <> "TEST" Then
            ActiveWorkbook.Worksheets("TEST").Cells(1, 3) = ActiveWorkbook.Worksheets(I).Cells(7, 10)

        End If

     Next I

  End Sub

Excel VBA宏：尝试写一些东西将各种电子表格中的数据合并为一个（内部更难的情况）

1 个答案: