excel vba looping问题

samm4u

*Range("I1").Select
    Application.CutCopyMode = False
    Selection.Copy
   
  /  Range("B1").Select
    ActiveSheet.Paste
    / Range("D10").Select
    Application.CutCopyMode = False
    Selection.Copy
   
    *Range("J1").Select
    ActiveSheet.Paste
   
   *Range("I2").Select
    Application.CutCopyMode = False
    Selection.Copy
   
  /  Range("B1").Select
    ActiveSheet.Paste
   
    /Range("D10").Select
    Application.CutCopyMode = False
    Selection.Copy
   
    *Range("J2").Select
    ActiveSheet.Paste
   
    *Range("I3").Select
    Application.CutCopyMode = False
    Selection.Copy
   
   /Range("B1").Select
    ActiveSheet.Paste
   
    /Range("D10").Select
    Application.CutCopyMode = False
    Selection.Copy
   
   * Range("J3").Select
    ActiveSheet.Paste

* 会一直走到下一格做动作直到遇到空格
/ 做同样的动作

请问要excel vba 要怎样写

kiam06

希望可以帮到你！~

1. Sub test()
   
2. x = 1   '可以换去你data的最高层
   
3. 'column B=2, D=4, I=9, J=10
   
4. Do Until Cells(x, 9) = "" And Cells(x, 4) = ""
   
5. Application.CutCopyMode = False
   
6. Cells(x, 9).Copy
   
7. Cells(x, 2).PasteSpecial
   
8. Application.CutCopyMode = False
   
9. Cells(x, 4).Copy
   
10. Cells(x, 10).PasteSpecial
    
11. x = x + 1
    
12. Loop
    
13. End Sub

复制代码