Excel用宏做循环

Sub 宏1()

Dim r&

For r = 1228 To 19 Step -1

With Range("厅裤C" &r + 1)

.AutoFill .Cells(0, 1).Resize(2), xlFillDefault

End With

Range("纤樱AK" &r &":AM"扮竖简 &r).Copy

Range("AQ" &r).PasteSpecial xlPasteValues, xlNone, False, False

Next

Application.CutCopyMode = False

End Sub

1、 用proc transpose把含念变量变成observation

2、 用proc means把谈伏困observation变成list；

3、 用file put把list输出到厅禅txt

4、用%include把list读到宏里面循环。

你要循环工芦宽作的目的不太明敬弯确，但按照你的要求应该用以陪稿亮下语句

Sub 宏1()

'

' 宏1 宏

'

' 快捷键: Ctrl+z

'

for a=67 to 90 step 2

columns(chr(a) &":" &chr(a+1)).select

next

End sub

---