ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] §xÂZ¤F¤T¤ÀÄÁªº°ÝÃD¡Aexcel¨ú¤£­«½Æ­È¡A¤wª¦¤å§ä¨ìµª®×¡A¤À¨É¤W¨Ó

[¤À¨É] §xÂZ¤F¤T¤ÀÄÁªº°ÝÃD¡Aexcel¨ú¤£­«½Æ­È¡A¤wª¦¤å§ä¨ìµª®×¡A¤À¨É¤W¨Ó

·QµÛ¦p¦ó¥Îvba¹ê²{¡C¤Wºôª¦¤F¤å¡A§ä¨ì¤Fµª®×
°õ¦æ®ÄªG¤]«Ü¦n¡A¤À¨É¤W¨Ó

Sub ¨ú¤£­«½Æ­È()
    Dim myList As New Collection, Cel As Range, itm, i As Integer
    On Error Resume Next '¹M¾ú¼Æ¾Ú°Ï°ìªº³æ¤¸®æ
    For Each Cel In Sheets("¸ê®Æ©Ò¦bªº¤u§@ªí").Range("R1:R65536")
        If Cel <> "" Then myList.Add Cel.Value, CStr(Cel.Value)'§PÂ_³æ¤¸®æ¤º®e¬O§_¬°ªÅ
    Next
    Sheets("¤u§@ªí1").Range("a:a").NumberFormatLocal = "@"
    On Error GoTo 0
    i = 1 '±N«D­«½Æ­È¼g¤J¤u§@ªí
    For Each itm In myList
        Sheets("·Ç³Æ­n¿é¤Jªº¤u§@ªí").Cells(i, 1) = Format(itm, "@")
        i = i + 1
    Next
End Sub
EXCEL VBA·s¤â¡A½Ð«e½ú¦h¦h«ü±Ð

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD