ªð¦^¦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¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD