请问这个循环怎么写呢？

ing170

下面的是循环后的效果：
cells（1,1）=cells（2,9）
cells（1,2）=cells（2,12）
cells（1,3）=cells（2,15）

liu2336904

参考下

1. Sub text()
   
2. Rows(2) = ""
   
3. For n = 1 To Range("xfd1").End(xlToLeft).Column
   
4. Cells(2, 6 + 3 * n) = Cells(1, n)
   
5. Next
   
6. End Sub

复制代码

micch

k=1
for i = 9 to 15 step 3
cells(2,i)=ar(1,k)
k=k+1
next

goMaggie

For i = 0 To Sheet3.UsedRange.Columns.Count Step 1

Cells(2, 9 + 3 * i) = Cells(1, i + 1)

Next