Question

wps中用vba将一个工作表中的数据一键保存到别一个工作表中，代码出现下标越界错误，求教

这是网上找来的代码，自己有一定的vc基础能看懂，但没接触过vba，稍改了下运行时出现这个错误，请大神指导
Sub jizhang()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim Rnum1, Rnum2
Set WS1 = Worksheets("尚品美居销售单")
Set WS2 = Worksheets("记账")
Rnum2 = WS2.Range("b65536").End(xlUp).Row + 1
Rnum1 = 6
Do Until WS1.Cells(Rnum1, 1) = "" Or WS1.Cells(Rnum1, 1) = "本单小计"
WS2.Cells(Rnum2, 2) = WS1.[b2]
WS2.Cells(Rnum2, 3) = WS1.[b3]
WS1.Cells(Rnum1, 1).Resize(1, 5).Copy WS2.Cells(Rnum2, 5)
Rnum1 = Rnum1 + 1
Rnum2 = Rnum2 + 1
Loop
End Sub





Answer 1

你上一个问题，都给你回答了
你都不试下

Answer 2

真是蛋疼，没有记账工作表，只有记帐工作表

追答

眼珠子都看瞎了

追问

谢谢，我说代码本身没错，怎么会这样，我晕死，代码是网上复制下来了，记账这两字没看出来，偷懒果然使不得