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

这是一个添加新工作表的示例，将其命名为“摘要”并遍历原始工作表以收集数据：

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 回答