ªð¦^¦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 : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD