GBKEE

¦^´_ 2# lionliu
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, S As String
   
4.     For Each E In Sheets("¤u§@ªí1").UsedRange.Columns(1).Cells '§Aªº¸ê®Æ¦bAÄæ
   
5.         S = S & IIf(S <> "", ",", "") & Join(Split(E.Value, vbLf), ",")
   
6.     Next
   
7.     Sheets("¤u§@ªí2").[A1].Resize(UBound(Split(S, ",")) + 1) = Application.Transpose(Split(S, ","))
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# lionliu
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, D  As Object, Sp As Variant
   
4.     Set D = CreateObject("SCRIPTING.DICTIONARY") '¦r¨åª«¥ó
   
5.     For Each E In Sheets("¤u§@ªí1").UsedRange.Columns(2).Cells '§Aªº¸ê®Æ¦bBÄæ
   
6.         For Each Sp In Split(E.Value, vbLf)
   
7.             D(E.Offset(, -1) & ":" & Sp) = ""    '¦r¨åª«¥óªºKey­È=>  E.Offset(, -1) & ":" & Sp
   
8.         Next
   
9.     Next
   
10.     Sheets("¤u§@ªí2").[A1].Resize(D.Count) = Application.Transpose(D.KEYS)
    
11. End Sub

½Æ»s¥N½X