如何用VBA将张三等的手机号由表1排成表2样式

zl1975

老司机带带我

1. Sub xx()
   
2.     Dim arr
   
3.     Dim i&, n&
   
4.     With Sheet1
   
5.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("A1:A" & n)
   
7.         .Range("a1:B" & n).ClearContents
   
8.         For i = 1 To n
   
9.             If i Mod 2 = 0 Then
   
10.                 .Cells(i - 1, 2) = arr(i, 1)
    
11.             Else
    
12.                 .Cells(i, 1) = arr(i, 1)
    
13.             End If
    
14.         Next
    
15.     End With
    
16. End Sub

复制代码