excel运行宏时 提示下标越界 急！求解！-excel宏下标越界,excel下标越界怎么解决

定义变量。为何a是整型，b是字符串型？b也应该是整型吧。

Sub 复制()
    If Sheets("sheet1").Range("CT3") = 31 Then
        MsgBox "当月已结束！", , "提示："
        Exit Sub '如果CT3等于31时则退出Sub
    End If
    Dim i As Integer '定义i为整数
    If Sheets("sheet1").Range("CT3") < 7 Then
        Sheets("sheet1").Range("CT3") = 7 '如果CT3小于7时则=7
    End If
    i = Sheets("sheet1").Range("CT3") '赋值i=CT3
    Sheets("sheet1").Range("B" & i & ": " & "BL" & i).AutoFill Destination:=Sheets("sheet1").Range("B" & i & ": " & "BL" & i + 1) '填充公式
    Sheets("sheet1").Range("B" & i & ": " & "BL" & i).Copy '复制区域
    Sheets("sheet1").Range("B" & i).PasteSpecial Paste:=xlPasteValues '特殊粘贴，粘贴目标Bi
    Application.CutCopyMode = False '取消复制状态的蚂蚁线e69da5e887aae799bee5baa6e997aee7ad94363
    If i < 31 Then
        Sheets("sheet1").Range("CT3") = i + 1 '如果i小于31时则CT3=i+1
    End If
    Range("B" & i + 1).Select '最后鼠标选中在Bi+1单元格
End Sub

楼主看看工作表有没有 "姓名帖" 跟 "打印页"

如果没有的话，肯定报错的，而且表名必须遇上面的一致

建议截图看看吧

下标越界一般就是指引用对象时，找不到那个对象，需要检查一下是不是超出范围了。
看看工作表名称是否和程序一致