GBKEE

¦^´_ 1# smilelss
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, AR(), Ay(), a As Integer, b As Integer, c As Integer
   
4.     Set Rng = Sheets("­ì©l¸ê®Æ").Range("A1").CurrentRegion
   
5.     With Rng
   
6.         AR = .Rows("2:" & .Rows.Count).Value
   
7.     End With
   
8.     ReDim Ay(1 To UBound(AR), 1 To UBound(AR, 2))
   
9.     For a = 1 To UBound(AR)
   
10.         Ay(a, 1) = AR(a, 1)
    
11.         c = 1
    
12.         For b = 2 To UBound(AR, 2)
    
13.             If AR(a, b) <> "" Then
    
14.                 c = c + 1
    
15.                 Ay(a, c) = Rng(b) & "*" & AR(a, b)
    
16.             End If
    
17.         Next
    
18.     Next
    
19.     With Sheets("µ²ªG¸ê®Æ")
    
20.         .Cells.Clear
    
21.         .[a1].Resize(UBound(AR), UBound(AR, 2)) = Ay
    
22.     End With
    
23. End Sub

½Æ»s¥N½X