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

¦X¨ÖRangesªº¤º®e

Sub ex()

    [A1:A10] = [{1;2;3;4;5;6;7;8;9;10}]
    Arr = [A1:A10]
    xj = Join(Application.Transpose(Arr), ",")
    Debug.Print xj

    [B1:K1] = [{101,102,103,104,105,106,107,108,109,110}]
    Arr = [B1:K1]
    xj = Join(Application.Transpose(Application.Transpose(Arr)), ",")
    Debug.Print xj

End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 4# clio

VBA ªº¤@ºû¬O¤ô¥­°}¦C

[B1:K1]¬O¤ô¥­°}¦C¡AÂà¤@¦¸¬°««ª½°}¦C¡A¦AÂà¤@¦¸¬°¤ô¥­°}¦C¤~¯àÅܦ¨¤@ºû°}¦C¡C
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ ML089 ©ó 2017-8-24 03:06 ½s¿è

¦^´_ 6# clio


Sub ex()

[A1:J10] = [row(1:10)*100+column(A:J)]
Arr = [A1:J10]

Brr = Application.Index(Arr, 1) '¨ú¤ô¥­°}¦C¡A¤@ºû°}¦C(N)
Crr = Application.Index(Arr, , 1) '¨ú««ª½°}¦C¡A¤Gºû°}¦C(Nx1)

Debug.Print Join(Brr, ",")
'Debug.Print Join(Crr, ",") '¿ù»~¡A«D¤@ºû°}¦CµLªk¨Ï¥ÎJOIN¨ç¼Æ
Debug.Print Join(Application.Transpose(Crr), ",") 'Transpose±N««ª½°}¦C(¤Gºû10x1°}¦C)Âର¤@ºû°}¦C


End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD