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

代码本身没有语法错误

在微软的EXCEL下正常运行

不知道这个出错是否与WPS有关。。。。

代码有点小错误

以下按“记账”的表格结构改了一下

改过的地方都注释了

Sub jizhang()Dim WS1 As Worksheet, WS2 As WorksheetDim Rnum1, Rnum2Set WS1 = Worksheets("尚品美居销售单")Set WS2 = Worksheets("记账")Rnum2 = WS2Range("b65536")End(xlUp)Row + 1Rnum1 = 5   '起始行Do Until WS1Cells(Rnum1, 1) = "" Or WS1Cells(Rnum1, 1) = "本单小计"WS2Cells(Rnum2, 1) = WS1[b2]   'A列WS2Cells(Rnum2, 2) = WS1[b3]   'B列WS1Cells(Rnum1, 1)Resize(1, 6)Copy WS2Cells(Rnum2, 3)  '扩展6列    '复制到C列Rnum1 = Rnum1 + 1Rnum2 = Rnum2 + 1LoopEnd Sub