请教一下这个程序有什么问题呀？

lyq110808

按表格B例的数值分工作表分类，运行时老是显示下界出错

Private Sub CommandButton1_Click()
    Dim i As Long, bj As String, rng As Range
    i = 2
    bj = Cells(i, "B").Value
     Do While bj <> ""
     Set rng = Worksheets(bj).Range("A65536").End(xlUp).Offset(1, 0)
        
        Cells(i, "A").Resize(1, 6).Copy rng
        i = i + 1
        bj = Cells(i, "B").Value
        Loop
End Sub

hehex

下标越界错误。
你看看B 列里是不是存的都是工作表名称。
是不是你的工作簿里都包含这些工作表，是不是都能一一对应，只要有一个不符合，就出现这个错误。

lyq110808

hehex 发表于 2013-5-8 11:57
下标越界错误。
你看看B 列里是不是存的都是工作表名称。
是不是你的工作簿里都包含这些工作表，是不是都 ...

哦，原来是这样，谢谢啦