抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

perfeel

谢谢，支持下楼主

lbl016

为什么原代码Range("A8", "H25").正确，我变成Range("A6", "H2000").就出错呢？"H"的范围为什么不能超过103.
Sub tt()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlManual
Dim x
Sheets("汇总").Range("a3:iv65536").Clear
    For x = 1 To Sheets.Count
        With Sheets("汇总")
            If Sheets(x).Name <> "汇总" Then Sheets(x).Range("A6", "H2000").Copy .Range("A" & .[a65536].End(xlUp).Row + 1)
        End With
    Next x
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlAutomatic
End Sub
请帮我完善代码

[ 本帖最后由 lbl016 于 2010-4-4 23:13 编辑 ]

kevinchengcw

你用debug.print 或 msgbox 显示一下这个值是多少.[a65536].End(xlUp).Row ，可能数据量太大有可能快达到65536这个上限了，另外代码方面没看出太大的问题，可以的话把上传个附件会更容易发现问题，另外这句Sheets("汇总").Range("a3:iv65536").Clear可以改成Sheets("汇总").rows("3:65536").Clear，反正就是第三行以下的全部清空嘛

lbl016

请问：如何用代码批量复制表一的A列到表二的B列；表一的B列到表二的E列；表一的C列到表二的A列；表一的D列到表二的C列；表一的E列到表二的D列；表一的F列到表二的F列；表一的G列到表二的M列呢？

kevinchengcw

原帖由 lbl016 于 2010-4-5 08:14 发表
请问：如何用代码批量复制表一的A列到表二的B列；表一的B列到表二的E列；表一的C列到表二的A列；表一的D列到表二的C列；表一的E列到表二的D列；表一的F列到表二的F列；表一的G列到表二的M列呢？

是粘贴还是插入，如果如此的行列很多的话建议建立个二维数组储存对应关系，然后通过循环来执行，如arr(0,0)="a",arr(0,1)="b",arr(1,0)="b",arr(1,1)="e")等等，或者把对应关系放到一个工作表的区域中，这样的程序便于以后对应关系变化了后及时调整，你现在写的程序也许在今后也用得到，但如何能稍做调整即可使用是一个需要考虑的问题，所以我觉得把对应关系放到工作表里是个好办法，可以即调即用

lbl016

老师，你能帮我写段完整的代码吗？

lbl016

为什么原代码Range("A8", "H25").正确，我变成Range("A6", "H2000").就出错呢？"H"的范围为什么不能超过103.
Sub tt()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlManual
Dim x
Sheets("汇总").Range("a3:iv65536").Clear
    For x = 1 To Sheets.Count
        With Sheets("汇总")
            If Sheets(x).Name <> "汇总" Then Sheets(x).Range("A6", "H2000").Copy .Range("A" & .[a65536].End(xlUp).Row + 1)运行到这出错，报运行时错误1004   ，不能对合并单元格作部分更改     
End With
    Next x
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlAutomatic
End Sub
请帮我完善代码
这个代码就完全正确
Sub tt()
   Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlManual
Sheets("汇总").Range("a2:iv65536").Clear
For i = 1 To Sheets.Count
    With Sheets(i)
            k = .[a65536].End(xlUp).Row
            Set rng = .Range("a6:l" & k)
            j = Sheets("汇总").[a65536].End(xlUp).Row + 1
            rng.Copy Sheets("汇总").Range("a" & j)
        End With
        Next
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlAutomatic
End Sub

[ 本帖最后由 lbl016 于 2010-4-5 08:51 编辑 ]

kevinchengcw

原帖由 lbl016 于 2010-4-5 08:39 发表
老师，你能帮我写段完整的代码吗？

写好了我传到这里

lbl016

原帖由 kevinchengcw 于 2010-4-5 08:47 发表


写好了我传到这里

谢谢，我在线等你哈！并烦你附上解释哈

[ 本帖最后由 lbl016 于 2010-4-5 08:50 编辑 ]

kevinchengcw

Sheets("汇总").Range("a3:iv65536").Clear
把这句改成
Sheets("汇总").rows("3:65536").delete
试一下