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

[µo°Ý] ¾î¦Vªº(A~D)²£«~¤Î¥N¸¹¦p¦ó¦bF/GÄæ²£¥Íª½¦V«ö·Ó¼Æ¦rªº±Æ§Ç

[µo°Ý] ¾î¦Vªº(A~D)²£«~¤Î¥N¸¹¦p¦ó¦bF/GÄæ²£¥Íª½¦V«ö·Ó¼Æ¦rªº±Æ§Ç

½Ð°Ý
¾î¦Vªº(A~D)²£«~¤Î¥N¸¹¦p¦ó¦bF/GÄæ²£¥Íª½¦V«ö·Ó¼Æ¦rªº±Æ§Ç





Book2.rar (1.75 KB)
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

Sub test()
k = 2
For i = 2 To [a65536].End(3).Row
For j = 1 To 3 Step 2
If Cells(i, j) <> "" Then
Cells(i, j).Select
Selection.Resize(, 2).Copy Cells(k, 6)
k = k + IIf(Cells(k, 6).MergeCells, 2, 1)
End If
Next
Next
End Sub

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD