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

[µo°Ý] ¦p¦ó±N"±ÄÁʳæ"¤º®e¨Ì§Ç¼g¤J¥t¤@­Ósheet?

¦^´_ 3# stillfish00


    §A¦n,§Ú¤w¸g¥I¤WÀɮפF ³Â·Ð§A¤F

TOP

¦^´_ 2# Kubi
§A¦n §Ú¸Õ¹L³o¼Ëªº¤èªk ¤£¹L ¤£¦æ­C
¤wªþ¤WÀÉ®×

±ÄÁÊe.zip (22.81 KB)

ÀÉ®×

TOP

¦^´_ 1# guaga
¤¹³\¤W¶ÇªºÀɮתþ¥óÃþ«¬¬°:chm, pdf, zip, rar, tar, gz, bzip2, gif, jpg, jpeg, png¡C
©Ò¥H¡AÀ£ÁY«á¦A¤W¶Ç§a

TOP

Sub test()
    Dim arr
    Sheets("±ÄÁʳæ").Select
    arr = Array([B5], [D5], [J5], [C6], [B9], [D9], [E9], [F9], [G9], [H9], [I9])
    Sheets("®w¦s°O¿ý").Select
    Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
End Sub
[b]Kubi[/b]

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD