使用variables作为工作表名称的另一张工作表

我想通过用variables“sheetname”指定工作表名称来引用此公式中的每个工作表。 有谁知道如何做到这一点？

Sub PopulateRow() Dim WS_Count As Integer Dim I As Integer Dim sheetname As String WS_Count = ActiveWorkbook.Worksheets.Count For I = 1 To WS_Count Worksheets(I).Activate sheetname = ActiveSheet.Name Worksheets(1).Cells(I, 1).Formula = "=sum('sheetname'!d:d)" Next I End Sub 

Answer 1

您将拉引号外的variables，并与&连接。

 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 

作为一个说明我删除了表。激活。 它会减慢代码，如果正确完成，则不需要。