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

[µo°Ý] ¦p¦ó±N¸ê®Æ¶K¦b¿ï¨ú³sÄò¸ê®ÆÄæ¤U¤èªºªÅ¥ÕÀx¦s®æ?

[µo°Ý] ¦p¦ó±N¸ê®Æ¶K¦b¿ï¨ú³sÄò¸ê®ÆÄæ¤U¤èªºªÅ¥ÕÀx¦s®æ?

¥»©«³Ì«á¥Ñ pupai ©ó 2019-2-17 11:55 ½s¿è

½Ð°Ý
Sub ¨C¤é³øªí()
Range("A2:B2", Range("A2").End(xlDown)).Copy

Sheets("Sheet2").Select
Range("A1").End(xlDown).PasteSpecial xlPasteValuesAndNumberFormats

'¿ï¨ú³sÄò¸ê®ÆÄæ¤U¤èªºªÅ¥ÕÀx¦s®æ
Range("a1").End(xlDown).Offset(1, 0).Select
End Sub


·í¤À­¶Sheet2¤¤ªºRange("A2")¦³¸ê®Æ¡A´N¥i¥H°õ¦æ¤W­z¥¨¶°
¦ýRange("A2")¨S¦³¸ê®Æ,¥¨¶°´N·|°õ¦æ¥¢±Ñ

½Ð°Ý§Ú¸Ó¦p¦ó­×§ï¤W­z«ü¥O
ÁÂÁÂ

Book1.rar (13.11 KB)

With Sheets("Sheet1")
     .Range("A2", .[B65536].End(xlUp)).Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
End With
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

With Sheets("Sheet1")
     .Range("A2", ..End(xlUp)).Copy Sheets("Sheet2").Range("A65536").End(xlUp ...
ML089 µoªí©ó 2019-2-18 13:09



    ª©¥D
¥i¥H¥Î­C¡A¦ý¦³ÂI¶W¥X§Úªº²z¸Ñ
·P®¦

TOP

³o¬O Range.Copy ¤èªk
¥i¥H¦bEXCEL HELP¸Ì­±¬Ý¨ì»¡©ú¡A©Î¤Wºô¬d¤@¤U´N¦³

¤£¨Ï¥Î WITH ¦p¤U
  1. Sheets("Sheet1").Range("A2", Sheets("Sheet1").Range("B65536").End(xlUp)).Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
½Æ»s¥N½X
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

©Î¬O³o¼Ë
  1. xRow = Sheets("Sheet1").Range("B65536").End(xlUp).Row
  2. Sheets("Sheet1").Range("A2:B" & xRow).Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
½Æ»s¥N½X
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 4# ML089


·PÁª©¥D«ü¾É
ÁÂÁÂ!!

TOP

Range([Sheet1!B2], [Sheet1!A65536].End(xlUp)).Copy [Sheet2!A65536].End(xlUp)(2)

TOP

¦^´_ 7# ­ã´£³¡ªL


    ·PÁª©¥D«ü¾É
·P®¦

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD