1

因此，我试图从工作簿中每张工作表的一列中提取信息。目前有506张。每一个都有不同的行数，每个工作表都有自己唯一的名称。我想要的每张工作表的数据从第 8 行开始，它位于 J 列中。我试图将所有这些打印到我称为 test 的页面中的 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

我今天刚开始，但我有很多其他语言的经验，所以我的语法也可能有点偏离。

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

4

1 回答 1

0

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

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
于 2013-06-26T19:20:20.750 回答