Question

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

这是网上找来的代码，自己有一定的vc基础能看懂，但没接触过vba，稍改了下运行时出现这个错误，请大神指导





Answer 1

把销售单 ，依次保存到 记账 这个表？
代码粘贴到 销售单 这个表里
销售单应该有 计算公式，用了一个简单的 数组
Sub 保存销售单()
arr = Range("a5:f" & Range("A65536").End(xlUp).Row)
X = Sheets("记账").Range("c65536").End(xlUp).Row
Sheets("记账").Cells(X + 1, "c").Resize(Range("A65536").End(xlUp).Row - 4, 6) = arr
Y = Sheets("记账").Range("c65536").End(xlUp).Row
Sheets("记账").Range("A" & X + 1 & ":" & "a" & Y) = [B2]
Sheets("记账").Range("B" & X + 1 & ":" & "B" & Y) = [B3]
Sheets("记账").Select
End Sub

Answer 2

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

追答

下标越界都不用往别的地方找，就找有下标的地方就对了，你这里面只有set那两个表的时候有下标，别的地方都没有。那就看这两个set有没有问题就行了

Answer 3

能文本发一下代码吗？看起有点累人。

Answer 4

你的代码是有问题。