excel - すべてのシートを通過してデータを取得するvbaでループします

Question

次のアクションを実行する VBA Excel のサイクルを誰かが表示できるかどうかを確認したいと思います。

未知の名前を持つさまざまな未知の数のシートがあり、「結果シート」として最後のシートが 1 つあるとしましょう。このサイクルで、最後のシートを除く他のすべてのシートを調べて、 field name: "Company Name" と最後の "Result sheet" の最初の名前から順番にすべての名前を並べ替える

最後のシートの名前は常に同じ結果シートになるため、必要に応じてその名前を例外として使用できます。

タク。

Answer 1

今、私はテストする Excel を持っていません。あなたは私に試しもせずに作成するように頼んでいます。あなたを正しい方向に導く小さなピースをあなたに差し上げます。

これにより、A1 が各シートから Result シートにコピーされます。

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() を使用して、必要な方法で並べ替えることができます。