0

ワークブックには約 20 のワークシートがあります。それらのそれぞれは、同じ 内に特定のデータ値を持っていますcell(i,j)。これらすべてのデータ値をセルに格納できる別のワークシートを最後に追加したいと思います。私はそのためのコードを書きました

Sheet21.Range(Cells(i, 0)).Value = myWorksheet.Range(Cells(221, 2)).Value
    i = i + 1

しかし、このエラーが発生しています" Object variable or with block variable not set"
。私は初心者であり、これをデバッグする方法がわかりません。

どんな助けでも大歓迎です。

ありがとうございました

4

1 に答える 1

1

以下は、新しいシートを追加して「Summary」という名前を付け、元のシートをループしてデータを収集する例です。

Sub Luxation()
    Dim myWorksheet As Worksheet, sh As Worksheet
    Dim i As Long, j As Long, k As Long
    i = 7
    j = 11
    ActiveWorkbook.Sheets.Add After:=Worksheets(Sheets.Count)
    Set myWorksheet = ActiveSheet
    ActiveSheet.Name = "Summary"
    For k = 1 To Sheets.Count - 1
        Cells(k, 1).Value = Sheets(k).Cells(i, j).Value
    Next k
End Sub
于 2013-09-17T11:32:17.107 に答える