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

[µo°Ý] ±a¥X«DªÅ¥Õ¸ê®Æ

¼Æ¾Ú·½À³Á×§K¥Îµ{¦¡Âл\¤@¦¸, ¥u¦C¥Xµ²ªG¦ì¸m§Y¥i~~
­Y¸ê®Æ¦h¥BÄæ¦ì¦h, ¾ã­Ó­«·s¶K¤W´N·|©ìºC³t«×.

Sub TEST_A1()
Dim Arr, T$, i&, j%
Arr = Range("J1:AC" & Cells(Rows.Count, 1).End(3).Row)
For i = 2 To UBound(Arr)
    For j = 1 To UBound(Arr, 2)
        T = Trim(T & " " & Trim(Arr(i, j)))
    Next j
    Arr(i - 1, 1) = Replace(T, " ", ","): T = ""
Next i
With [ad2].Resize(UBound(Arr) - 1)
     .NumberFormatLocal = "@"
     .Value = Arr
End With
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD