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

[µo°Ý] ¥ÎVBA¼g ±N¨C¤é±qWEB ¶×¤Jªº¸ê®Æ §ó·s¨Ã¨Ì¤é´Á°O¿ý

[µo°Ý] ¥ÎVBA¼g ±N¨C¤é±qWEB ¶×¤Jªº¸ê®Æ §ó·s¨Ã¨Ì¤é´Á°O¿ý

¥»©«³Ì«á¥Ñ peter95 ©ó 2016-3-3 21:11 ½s¿è


"DATA"¤u§@ªí ¦³¥ÎEXCELªº ¥\¯à

§Ú­n ¨C¤é§ó·s¨Ã°O¿ý §Ú¦b"DATA"¤u§@ªíªº ¶À¦C ¬õ¦C ¸ê®Æ
±N¦¹¸ê®Æ¬ö¿ý¨ì "¶×¤J¸ê®Æ"¤u§@ªí
«ö¤é´Á¨Ì§Ç°O¿ý¤U¥h

½Ð¤j®aÀ°À°§Ú
§Æ±æ¯à¦³
"§ó·s"«ö¶s
"¶×¤J" «ö¶s
¨ÓÀ°§Ú°õ¦æ
·PÁ¤j®aªºÀ°¦£

§ÚªºÀÉ®×
ask.rar (12.15 KB)
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

¦U¦ìªB¤Í  §Ú§ä¨ì¬ÛÃö¥Îªk
¦p¤U
~~~~~~~~~~~~~~~
Sub ¥¨¶°1()
Sheets("¤u§@ªí1").Select
Sheets("¤u§@ªí1").Range("A2:B2").Copy
Sheets("¤u§@ªí2").Select
Sheets("¤u§@ªí2").[a65536].End(3).Offset(1, 0).PasteSpecial xlPasteValues
End Sub
~~~~~~~~~~~~~~
½Ð°Ý
¥i¤£¥i¥H§â"¤u§@ªí2"±q  B2  B3¶}©l¶K
¦]¬°¤p§ÌªºAÄæ¬O¤é´Á
¦A¦¸·PÁÂÀ°¦£
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD