Excel VBAループ内のオブジェクト名である文字列の配列

Question

ループ内のWorksheetオブジェクトを置き換える文字列の配列を使用したいと思いますが、わかりません。

私はObjectとしてSheetXを宣言すると、私はバリアントとしてSheetXを宣言した場合、私は、オブジェクトに必要なエラー

を取得し、その後、私はコンパイルエラーを取得：アレイ上の各変数のバリアント

Sub DeleteAllData() 

'SheetsArray = ["BalanceSheetTransposed", "IncomeStatementTransposed", "CashflowStatement"] 
Dim SheetsArray(0 To 2) As Variant 
Dim SheetX As Object 

SheetsArray(0) = "BalanceSheetTransposed" 
SheetsArray(1) = "IncomeStatementTransposed" 
SheetsArray(2) = "CashflowStatement" 

For Each SheetX In SheetsArray 
    lastrow = SheetX.Cells(Rows.Count, 1).End(xlUp).Row 
    lastcolumn = SheetX.Cells(1, Columns.Count).End(xlToLeft).Column 
    SheetX.Range("A2", Cells(lastrow, lastcolumn)).ClearContents 
Next SheetX 

End Sub 

Answer 1

でなければなりません私の頭の中から私はこのマシンにExcelを持っていません。文字列をループし、ワークシートオブジェクトを設定します。

Sub DeleteAllData() 
    Dim SheetsArray(0 To 2) As String 
    Dim SheetX As Worksheet 
    Dim name as String 

    SheetsArray(0) = "BalanceSheetTransposed" 
    SheetsArray(1) = "IncomeStatementTransposed" 
    SheetsArray(2) = "CashflowStatement" 

    For Each name In SheetsArray 
    set SheetX = ActiveWorkbook.worksheets(name) 
    lastrow = SheetX.Cells(Rows.Count, 1).End(xlUp).Row 
    lastcolumn = SheetX.Cells(1, Columns.Count).End(xlToLeft).Column 
    SheetX.Range("A2", Cells(lastrow, lastcolumn)).ClearContents 
    Next 

End Sub 

Answer 2

あなたの大きな問題は、あなたは彼らがワークシートであるかのように配列に格納された文字列を処理しようとしていたが、彼らは単なる文字列であるということでした。

それを回避するための最も簡単な方法は、あなたが使用したい名前を持つワークシートを返すためにWorksheets(SheetsArray)を使用して、これらのワークシートをループすることです：

Sub DeleteAllData() 

    Dim SheetX As Worksheet 
    Dim lastRow As Long 
    Dim lastColumn As Long 

    Dim SheetsArray(0 To 2) As Variant 
    SheetsArray(0) = "BalanceSheetTransposed" 
    SheetsArray(1) = "IncomeStatementTransposed" 
    SheetsArray(2) = "CashflowStatement" 
    'An alternative to the previous 4 lines would be 
    'Dim SheetsArray As Variant 
    'SheetsArray = Array("BalanceSheetTransposed", _ 
    '     "IncomeStatementTransposed", _ 
    '     "CashflowStatement") 

    'Loop through the worksheets referred to in the array 
    For Each SheetX In Worksheets(SheetsArray) 

     With SheetX ' avoids some typing 
      lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 
      lastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column 

      'Existing code would have had issue with the unqualified Cells 
      'reference in the following line. You should always qualify Cells 
      'to specify which sheet you mean, because it defaults to 
      'ActiveSheet.Cells 
      .Range("A2", .Cells(lastRow, lastColumn)).ClearContents 
     End With 

    Next SheetX 

End Sub 

Answer 3

Arrayがに渡す必要がありますSheets object：あなたは `設定SheetX = ActiveWorkbook.Worksheets（SHEETNAME）`とのforeach sheetnamesのようなものを使用する必要があるので、

Sub DeleteAllData() 
    Dim ws As Worksheet 

    For Each ws In Sheets(Array("BalanceSheetTransposed", "IncomeStatementTransposed", _ 
                  "CashflowStatement")) 
     s.UsedRange.Offset(1).ClearContents 
    Next 
End Sub