別のシートの参照シート名に変数を使用

Question

このシートでは、シート名に変数 "sheetname"を指定して各シートを参照します。誰もこれを行う方法を知っていますか？

Answer 1

変数を引用符の外に引き出し、&と連結します。

Sub PopulateRow() 

Dim WS_Count As Integer 
Dim I As Integer 


WS_Count = ActiveWorkbook.Worksheets.Count 

For I = 1 To WS_Count 

    Worksheets(1).Cells(I, 1).Formula = "=sum('" & Worksheets(I).Name & "'!d:d)" 

Next I 

End Sub 

メモとして、私はsheet.Activateを削除しました。コードが遅くなり、正しく実行されていれば必要ありません。