[已解决]保存出错求高手指点

我的益达

如下 ：：：
Sub 保存()
Sheets("Sheet1").Select
With Sheets("Sheet2")
    x = .Range("a65536").End(xlUp).Row + 1
    For i = 0 To 2
        Sheets("Sheet2").Cells(x, 1) = [b2] '故障单号
        Sheets("Sheet2").Cells(x, 2) = [d3] '车组号
        Sheets("Sheet2").Cells(x, 3) = [b3] '车号
        Sheets("Sheet2").Cells(x, 4) = [d2] '系统分类
        Sheets("Sheet2").Cells(x, 5) = [b6] '故障描述
        Sheets("Sheet2").Cells(x, 6) = [d5] '处理结果
        Sheets("Sheet2").Cells(x, 7) = [b9] '处理时间
        Sheets("Sheet2").Cells(x, 8) = [b4] '发现时间
        Sheets("Sheet2").Cells(x, 9) = [d4] '发现人
        Sheets("Sheet2").Cells(x, 10) = [b7] '处理方法
        Sheets("Sheet2").Cells(x, 11) = [b8] '处理人
    Next
End With
Range("b7,b8,b9,d8,d9").ClearContents
MsgBox "保存完毕", , "提示"
End Sub

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-23 22:37

你的代码有点问题，不需要循环的
另外我写了个，你试试
故障保存.rar (10.13 KB, 下载次数: 9)

2014-11-23 22:36 上传

点击文件名下载附件

跳转到最佳答案楼层

qh8600

你的代码有点问题，不需要循环的
另外我写了个，你试试
故障保存.rar (10.13 KB, 下载次数: 9)

2014-11-23 22:36 上传

点击文件名下载附件

我的益达

qh8600 发表于 2014-11-23 22:37
你的代码有点问题，不需要循环的
另外我写了个，你试试

谢谢！太感谢了，终于解了。

爱疯

sheet2的a3:k55，清除内容，再运行就可以了。
只是1#的循环重复赋值，无意义。
2#比1#好点，直接在联合单元格中循环更好点：省去建立和删除名称、修改不方便。




Sub demo()
    Dim x As Range, ar$(1 To 1, 1 To 99), i%
    For Each x In Sheet1.Range("b7,b8,b9,d8,d9")
        i = i + 1
        ar(1, i) = x
        x = ""
    Next
    Sheet2.Select
    Range("a" & Cells(Rows.Count, 1).End(3).Row + 1).Resize(1, i) = ar
    MsgBox "保存完毕", , "提示"
End Sub

我的益达

爱疯 发表于 2014-11-23 23:17
sheet2的a3:k55，清除内容，再运行就可以了。
只是1#的循环重复赋值，无意义。
2#比1#好点，直接在联合单 ...

谢谢！又学习了。

我的益达

qh8600 发表于 2014-11-23 22:37
你的代码有点问题，不需要循环的
另外我写了个，你试试

如果Sheet1表B2中有公式或函数，怎么保留不要清除。