别怕，Excel VBA其实很简单(第2版)第21页执行不了

robin肖

我的版本是2010，按书上输入后不能执行，把Rows改为Columns后还不能执行循环，我想请问一下，为什么执行不了？

喜有此李

这个问题并非我可以帮助你啊。我只是提个建议，你最好能将你的代码的xls文档弄个附件上传。因我看到其他人是这样的，呵

robin肖

喜有此李 发表于 2016-12-5 15:10
这个问题并非我可以帮助你啊。我只是提个建议，你最好能将你的代码的xls文档弄个附件上传。因我看到其他人 ...

我就是按照书上的练手啊。我有传我的代码的图片。录制宏之后都好使，只有执行让它自己循环的时候不好使

robin肖

Sub 宏1()

    Dim i As Long
    For i = 2 To Range("B1").CurrentRegion.Columns.Count - 1
'
' 宏1 宏
'

'
    ActiveCell.Offset(0, 2).Columns("A:B").EntireColumn.Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Offset(0, -2).Columns("A:A").EntireColumn.Select
    Selection.Copy
    ActiveCell.Offset(0, 3).Columns("A:A").EntireColumn.Select
    ActiveSheet.Paste
     
    Next
   
End Sub
-----
这是我的程序，通过各种尝试，我将Range("A1")中的字母改成B   Raws改成Columns
然后可以循环了
具体什么原因我也不知道，只是知道我用来练习的文件是竖排的，所以改成Columns，但是字母为什么改成B就好使？这个还不了解
继续往下学吧，也不能卡在这里~


发这个帖子，还有QQ。虽然没有人帮我解决
还好自己  让它循环了^-^