代码报错

老虎1

Sub test()
    Dim wks As Worksheet, iRow&, rng As Range
    [A1].CurrentRegion.Offset(1).ClearContents
    For Each wks In Sheets
       If wks.Name <> "总表" Then
          iRow = Sheets("总表").Cells(1164, "A").End(3).Row + 1
          With wks.[A1].CurrentRegion
              Set rng = Intersect(.Offset(), .Offset(2))
          End With
          rng.Copy Cells(iRow, 1)
       End If
    Next
    Beep
End Sub

各位老师,麻烦看一下这个代码报错。

陆离Lowry

上传附件。。。

3190496160

.Offset()未设定任何参数，导致rng为nothing，肯定是要报错的，不知道你的意图是什么

老虎1

陆离Lowry 发表于 2023-2-6 13:45
上传附件。。。

陆老师,附件已上传。

老虎1

3190496160 发表于 2023-2-6 13:49
.Offset()未设定任何参数，导致rng为nothing，肯定是要报错的，不知道你的意图是什么

老师这是一个按天数合并的文件,1月份的数据没问题,改成2月就报错了。

3190496160

老虎1 发表于 2023-2-6 13:52
老师这是一个按天数合并的文件,1月份的数据没问题,改成2月就报错了。

调试代码更是应该要上传你的文件，见不到你的具体文件，任何人都帮不了你的

3190496160

老虎1 发表于 2023-2-6 13:50
陆老师,附件已上传。

设置了工程密码，呵呵

老虎1

3190496160 发表于 2023-2-6 14:00
设置了工程密码，呵呵

老师，附件已重新上传。

陆离Lowry

2-5是空表，rng 是 nothing ，所以错误
另外用currentregion包括整个超级表空白区域，用end属性查最后一行比较好

老虎1

老虎1 发表于 2023-2-6 14:04
老师，附件已重新上传。

谢谢陆老师