利用VBA从一个数据表中的数据生成另一个工作表

hbszls

请求VBA高手，帮忙解决下。根据乘车表中的数据，利用VBA自动生成座次表中的座次表。谢谢

约定的童话

用3楼的吧，非常完美！

摸不到的颜色

1. Sub 座位表()
   
2. 
   
3.     Dim i, ii, x As Integer
   
4. 
   
5.     Application.ScreenUpdating = False
   
6. 
   
7.     Sheets("座次表").Range("A3:D13,F3:K13").ClearContents
   
8. 
   
9.     arr = Array("A", "C", "F", "H", "j")
   
10. 
    
11.     x = 3
    
12. 
    
13.     ii = 0
    
14. 
    
15.     For i = 3 To Sheet1.Range("b65536").End(3).Row
    
16. 
    
17.         If ii = 5 Then
    
18. 
    
19.             ii = 0
    
20. 
    
21.             x = x + 1
    
22. 
    
23.         End If
    
24. 
    
25.         Sheet1.Range("b" & i & ":c" & i).Copy Sheet4.Range(arr(ii) & x)
    
26. 
    
27.         ii = ii + 1
    
28. 
    
29.     Next
    
30. 
    
31.     Application.ScreenUpdating = True
    
32. 
    
33.     MsgBox ("生产完毕")
    
34. 
    
35. End Sub

复制代码