VB 运行时错误6 溢出 10
Subdata_arrange()DimlineAsIntegerDimrowAsIntegerDimtempAsIntegerline=2temp=0DoWhileWo...
Sub data_arrange()
Dim line As Integer
Dim row As Integer
Dim temp As Integer
line = 2
temp = 0
Do While Worksheets("sheet").Cells(line, 1).Value <> ""
row = 3
If Worksheets("sheet").Cells(line, row).Value = "" Then
Do While row <= 66
Worksheets("sheet").Cells(line, row).Value = Worksheets("sheet").Cells(line, (row + 1)).Value
row = row + 1
Loop
End If
Worksheets("sheet").Cells(line, row).Value = ""
line = line + 1
Loop
End Sub
运行的时候提示溢出错误6，溢出的语句是Worksheets("sheet").Cells(line, row).Value = Worksheets("sheet").Cells(line, (row + 1)).Value
看了半天，应该不会溢出啊 展开
Dim line As Integer
Dim row As Integer
Dim temp As Integer
line = 2
temp = 0
Do While Worksheets("sheet").Cells(line, 1).Value <> ""
row = 3
If Worksheets("sheet").Cells(line, row).Value = "" Then
Do While row <= 66
Worksheets("sheet").Cells(line, row).Value = Worksheets("sheet").Cells(line, (row + 1)).Value
row = row + 1
Loop
End If
Worksheets("sheet").Cells(line, row).Value = ""
line = line + 1
Loop
End Sub
运行的时候提示溢出错误6，溢出的语句是Worksheets("sheet").Cells(line, row).Value = Worksheets("sheet").Cells(line, (row + 1)).Value
看了半天，应该不会溢出啊 展开
3个回答
展开全部
你看看溢出时line,row的值是多少，然后再找到该单元格，看看里面的值是什么，是不是空，或者是错误符，这样赋值就会出错
追问
最开始考虑了这个问题，修改了值也没用，最后调整了Worksheets("sheet").Cells(line, row).Value = ""这句到end if前边就好了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
大雅新科技有限公司
2024-11-19 广告
这方面更多更全面的信息其实可以找下大雅新。深圳市大雅新科技有限公司从事KVM延长器,DVI延长器,USB延长器,键盘鼠标延长器,双绞线视频传输器,VGA视频双绞线传输器，VGA延长器,VGA视频延长器,DVI KVM 切换器等，优质供应商，...
点击进入详情页
本回答由大雅新科技有限公司提供
展开全部
我这里是下标越界（9），表格名 "sheet" 少了数字，应是："sheet1"
追问
和这个没关系，现在已经解决了，Worksheets("sheet").Cells(line, row).Value = ""这句的位置调整到end if前边就好了
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
