excel - 在 vba 中循环，它将遍历所有工作表并获取数据

Question

我想看看是否有人可以在 VBA Excel 中向我展示一个循环，它将执行以下操作：

假设我有各种未知数量的未知名称的工作表，而不是最后一张作为“结果表”的工作表，我希望这个循环能够处理除最后一张以外的所有其他工作表，并从它们中获取具有字段名称：“公司名称”并从最后一个“结果表”中的第一个开始依次对所有名称进行排序

最后一张表的名称将始终是相同的结果表，因此如果需要，该名称可以用作例外。

谢谢。

Answer 1

现在我没有要测试的 Excel，你要求我为你制作它，甚至没有尝试。我会给你一点，应该让你走上正确的道路。

这会将 A1 从每个工作表复制到工作表结果工作表中。

Dim Sh1 As WorkSheet, Sh2 As WorkSheet, R As Integer
Set Sh1 = Sheets("Result sheet")
R = 1
For Each Sh2 In WorkSheets
  If Sh2.Name <> "Result sheet" Then
    Sh1.Cells(R, 1) = Sh2.Cells(1, 1)
    R = R + 1
  End If
Next Sh2

最后你得到了 Sh1 中的数据，你可以使用 Sh2.Sort() 来按照你想要的方式对其进行排序。