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

[µo°Ý] ½Ð±Ð¦¹»y¥yªº§ïªk

[µo°Ý] ½Ð±Ð¦¹»y¥yªº§ïªk

Sheets("Sheet3").Range("B2") = rng.Offset(0, -4)
1.rng.Offset(0, -4) ¶È®æ¦¡©ñ¨ìSheets("Sheet3").Range("B2")
2.rng.Offset(0, -4) ®æ¦¡¸ò­È©ñ¨ìSheets("Sheet3").Range("B2")

¦^´_ 1# t8899
EX.JPG
2014-4-9 19:44

¸Õ¸Õ ¥¨¶°¿ý»s,½Æ»s«á¿ï¾Ü©Ê¶K¤W,¬Ý¬Ý»yªk­×§ï
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  t8899

¸Õ¸Õ ¥¨¶°¿ý»s,½Æ»s«á¿ï¾Ü©Ê¶K¤W,¬Ý¬Ý»yªk­×§ï
GBKEE µoªí©ó 2014-4-9 19:46

Paste:=xlPasteValues
Paste:=xlPasteFormats
Paste:=xlPasteValuesAndNumberFormats
®æ¦¡
Sheets("Sheet1").Range("B2") = Sheets("Sheet1").Range("A1").FORMATS ª«¥ó¤£¤ä´©ÄݩʩΤèªk???

TOP

¦^´_ 3# t8899
  1. Sub Ex()
  2.     Sheets("Sheet1").Range("A1").Copy
  3.     With Sheets("Sheet1").Range("B2")
  4.         .PasteSpecial xlPasteFormats                 '¶È¶K¤W®æ¦¡
  5.         .Value = Sheets("Sheet1").Range("A1")   '¶K¤W­È
  6.     End With
  7. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD