上述代码中的 Set ActiveCell = ActiveCell.Offset(1, 0) 运行报错 对象变量或者with变量块未设置

这个错误通常发生在没有正确地设置对象变量或者 `With` 语句块中没有正确地指定对象。在你的代码中，我猜测出现这个错误的原因可能是 `ActiveCell` 对象未正确设置。

你可以尝试在使用 `ActiveCell` 对象之前先将其正确设置。例如：

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") '将“Sheet1”替换为你的工作表名称
Set ActiveCell = ws.Range("A1")

这段代码会将 `ActiveCell` 对象设置为工作表 `Sheet1` 中的单元格 `A1`。你可以将这个代码添加到你的子程序的开头，确保 `ActiveCell` 对象已经正确设置，然后再执行 `Set ActiveCell = ActiveCell.Offset(1, 0)` 这句代码。