VBA按行排序问题请赐教

shibaideren

详见附件

请上仙过目，我不知道描述的上仙能否理解意思，海涵

ynzsvt

1. Sub Ynzsvt()
   
2. Dim Ar, Br, i&, j&
   
3. 
   
4. Ar = Selection.Value
   
5. ReDim Br(1 To UBound(Ar))
   
6. 
   
7. For i = 2 To UBound(Ar)
   
8.   For j = 1 To UBound(Ar, 2)
   
9.    If Len(Ar(i, j)) Then Br(i) = Ar(1, j) & Ar(i, j): Exit For
   
10.   Next j
    
11. Next i
    
12. 
    
13. [A10] = Join(Br, " ")
    
14. End Sub

复制代码

quqiyuan

参与一下，仅供参考。。。