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

for -step- nextÂùÅܼƦ^°é«ç»ò¼g

a = Join(Application.Transpose([b2:b11]), "  ")
Sheet2.[c4].Resize(19, 1) = Application.Transpose(Split(a))

TOP

i = 4
For Each c In Sheet1.[d10:d14]
Sheet2.Cells(i, 4) = c
i = i + 5
Next

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD