求助如何循环重复A列和B列的信息值

paciguard

做了一下，试试：

1. Sub test()
   
2. Dim a, b, ii&
   
3. Sheet1.Range("C:D").ClearContents
   
4. a = Sheet1.Range("A1").CurrentRegion
   
5. ReDim b(1 To (UBound(a) - 1) ^ 2, 1 To 2)
   
6. ii = 1
   
7. 
   
8. For i = 2 To UBound(a)
   
9.     For j = 2 To UBound(a)
   
10.     If a(j, 2) <> "" Then
    
11.     b(ii, 1) = a(i, 1)
    
12.     b(ii, 2) = a(j, 2)
    
13.     ii = ii + 1
    
14.     End If
    
15.     Next j
    
16. Next i
    
17. Sheet1.Range("C2").Resize(UBound(b), 2) = b
    
18. End Sub
    

复制代码