Question

我在工作簿中有大约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"
我是初学者，不知道如何调试它。

非常感谢任何帮助。

谢谢

Answer 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

如何写入另一个工作表的单元格

1 个答案: