怎么重复执行宏命令？

jinball

我想分散的数据整理到一行当中，录制了一个宏，但是重复执行这个宏，把下面的数据也依次整理到一行中？谢谢！

jinball

有没有好心人？

excel玉米

Vba代码用 for循环，如下
For i=1 to10    `10是要运行宏的次数
     Call 宏名称
Next

jinball

excel玉米 发表于 2022-5-31 19:29
Vba代码用 for循环，如下
For i=1 to10    `10是要运行宏的次数
     Call 宏名称

能不能直接帮忙做好？

webber04

1. Sub testing()
   
2. Dim arr, endRow%, i%, j%
   
3. endRow = Cells(Rows.Count, 1).End(3).Row
   
4. arr = Range("A3:C" & endRow)
   
5. j = 1
   
6. For i = 1 To UBound(arr) Step 7
   
7. Cells(1, j) = arr(i, 1)
   
8. Cells(1, j + 1) = arr(i + 1, 1)
   
9. Cells(1, j + 2) = arr(i + 2, 2)
   
10. Cells(1, j + 3) = arr(i + 3, 2)
    
11. Cells(1, j + 4) = arr(i + 4, 1)
    
12. Cells(1, j + 5) = arr(i + 4, 2)
    
13. Cells(1, j + 6) = arr(i + 5, 1)
    
14. Cells(1, j + 7) = arr(i + 5, 2)
    
15. Cells(1, j + 8) = arr(i + 6, 1)
    
16. Cells(1, j + 9) = arr(i + 6, 2)
    
17. j = j + 10
    
18. Next
    
19. End Sub

复制代码

jinball

webber04 发表于 2022-5-31 20:35

谢谢了，非常感谢，学习了