用下面代码复制到相应位置,或到我的邮箱下载该文件,邮箱地址
[email protected],密码:123456
Sub bb()
Dim i As Integer, m As Integer
m = 2
For i = 1 To ActiveSheet.Range("IV1").End(xlToLeft).Column Step 3
Cells(m, 1) = Cells(1, i)
Cells(m, 2) = Cells(1, i + 1)
Cells(m, 3) = Cells(1, i + 2)
m = m + 1
Next i
End Sub本回答被提问者采纳