n7822123

¦^´_ 1# iceandy6150

¥i¬O¦b³o¤@¦æ¸ò§Ú»¡¥X¿ù  Sheets("µ²ªG°Ï").Range("A1").Select
¬°¤°»ò©O?

a = .UsedRange.Rows.com
À³¸Ó¬O
a = .UsedRange.Rows.count


¤G¡B¤£¦PÀɮפ§¶¡ªº½Æ»s¡B¶K¤W

§AªºÃD¥Ø¹ê¦b¤Ó¼s¤F.......¼gªk¤d¦ÊºØ
¥u¯à»¡·s¤â¥u¯à¦h¬Ý§O¤H«ç»ò¼gªº
³Ì«á¤~¯à§ä¨ì¦Û¤v²ßºDªº¼gªk

­ìµ{¦¡:
Windows("¸ê®Æ.xlsx").Activate
.Range("A1:B3").copy

Windows("ÀÉ®×.xlsx").Activate
.Range("A1").select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False

(1)¥i¥H³]ª«¥ó¨Ó²µuªø«× ¦p¤U:

Set ¸ê®Æªí=workbooks("¸ê®Æ.xlsx").sheets("¤u§@ªí1")
Set Àɮתí=workbooks("ÀÉ®×.xlsx").sheets("¤u§@ªí1")
¸ê®Æªí.[A1:B3].copy
Àɮתí.[A1].PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False


(2)¦pªG±Ò¥Îªº¤u§@ªí¦b"¸ê®Æ.xlsx"ªº"¤u§@ªí1"¡A
     °ò¥»¤W¥H«á¥Î³o­Ó¤u§@ªí¡A«e­±ªº"¦a§}"´N¥i¥H¬Ù²¤¤F
     ¥ÎActivate+With...End With ¨Ó²µuªø«× ¦p¤U

workbooks("¸ê®Æ.xlsx").sheets("¤u§@ªí1").Activate

with workbooks("ÀÉ®×.xlsx").sheets("¤u§@ªí1")
    [A1:B3].copy  
    .[A1].PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
    , SkipBlanks:=False, Transpose:=False  
end with


[A1:B3].copy  ³o¸Ì¬Ocopy "¸ê®Æ.xlsx"ªº"¤u§@ªí1"ªº[A1:B3]¡A¦]¬°¬O±Ò¥Îªº¤u§@ªí¡A«e­±ª½±µ¬Ù²¤!
ª`·N[A1]«e­±¦h¤F.¡A©Ò¥H¬O¦b"ÀÉ®×.xlsx"ªº"¤u§@ªí1"ªº[A1]¶K¤W

n7822123

¦^´_ 3# iceandy6150


¦b«D±Ò¥Îªº¤u§@ªí°µ¿ï¨ú¡A·|µo¥Í¿ù»~

©Ò¥HºÉ¶q¤£­n¥Î Select¡A¤U­±µ{¦¡¦P²z¡A¸Õ¸Õ¬Ý

Sheets("¤u§@ªí1").Activate
Sheets("µ²ªG°Ï").Range("A1").Select

¿ï¨ú¤§«e¡A­n¥ý§ï±Ò¥Îªº¤u§@ªí¡A
§ï¦¨¤U­±³o¼Ë´N¥i¥H¤F

Sheets("¤u§@ªí1").Activate
Sheets("µ²ªG°Ï").Activate
Sheets("µ²ªG°Ï").Range("A1").Select

n7822123

¦^´_ 4# n7822123

¥ç©ÎªÌ¥ÎApplication.Goto¨ú¥NSelect

Sheets("¤u§@ªí1").Activate
Application.Goto Sheets("µ²ªG°Ï").Range("A1")

n7822123

¦^´_ 6# iceandy6150

©Ò¥H¤£­n¥Îselect,¥i°Ñ¦Ò§Ú2¼Óªº²Ä2­Ó¼gªk
©T©w¤@­Ó¤u§@ªíactivate,¨ä¥Lªº¥Îwith¡K¡Kend with
for¦^°é¦bwith¤§¤º §A­n³B²z1000­Ó¤]¨S°ÝÃD

n7822123

¦^´_ 9# iceandy6150


UsedRange¬O­pºâ¬Y­Ó¤u§@ªíªº¨Ï¥Î½d³ò~~~©Ò¥H«e­±³Ì¦n«ü©w¬O­þ­ÓSheet
§Aªº«ö¶s¦b¤u§@ªí1¡A©Ò¥H¤u§@ªí1¤@¶}©l´N¬OActivate¤F~~~~
ºÉ¶q¤£­n¤@ª½¤Á´«¤u§@ªí.........§â¦Û¤v§Ë²V¶Ã¤F~~~§Ú¥ú¬Ý§Aªº»¡©ú...§Ú¦Û¤v¤]²V¶Ã¤FXD
¨Ì·Ó§Aªº¼gªk¡A§Ú»{¬°§AÁÙ¬Oª½±µ«ü©w­þ­Ó¤u§@ªí¤ñ¸û¦w¥þ^.^
§A¦bppt¤u§@ªíªº¾Þ§@¤ñ¸û¦h¡A«ö¶s«o³]¦b¤u§@ªí1ªº½T®e©ö¥X°ÝÃD

¦pªG¬O§Ú¡A´N³o¼Ë¼gºO~~~

With Sheets("PPT")
  If .[A1].Value <> "" Then .[A1:Z200].Delete Shift:=xlShiftUp    '²M°£©Ò¦³¸ê®Æ
  [A1].CurrentRegion.Copy
  .[A1].PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
  , SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  A = .UsedRange.Rows.Count
  For i = 2 To A
    .Range("U" & i).Value = .Range("G" & i).Value + 1
  Next i
End With