求教老师按行顺序组合

woailijiao

求教老师，如何用VBA 按行顺序组合，详见附件。

woailijiao

整理老师的答案

1. Sub 按行顺序组合()
   
2. Dim arr, brr
   
3. Dim iTemp, jTemp, i, j, k As Integer
   
4. 
   
5. arr = Sheet1.Range("F2:J" & Sheet1.Cells(Rows.Count, 10).End(xlUp).Row)
   
6. iTemp = UBound(arr, 2)
   
7. ReDim brr(1 To UBound(arr), 1 To iTemp * (iTemp - 1) * 0.5)
   
8. 
   
9. For i = 1 To UBound(arr) Step 1
   
10.     jTemp = 0
    
11.     For j = 1 To UBound(arr, 2) - 1 Step 1
    
12.         For k = j + 1 To UBound(arr, 2) Step 1
    
13.             jTemp = jTemp + 1
    
14.             brr(i, jTemp) = arr(i, j) & arr(i, k)
    
15.             If arr(i, j) = "" Or arr(i, k) = "" Then brr(i, jTemp) = ""
    
16.         Next k
    
17.     Next j
    
18. Next i
    
19. Sheet1.Range("L17").Resize(UBound(brr), UBound(brr, 2)) = brr
    
20. 
    
21. End Sub

复制代码

lcluck2002

顺序组合1205

woailijiao

lcluck2002 发表于 2022-12-5 17:34
顺序组合1205

老师，因为不做区域限制，我这句改成到空白单元格 end(4) 怎么报错？

lcluck2002

arr = Range("F2:J" & Cells(Rows.Count, 10).End(xlUp).Row)