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

[µo°Ý] sheet¤Á´«Àx¦s®æ¸ê®Æ­×§ï

[µo°Ý] sheet¤Á´«Àx¦s®æ¸ê®Æ­×§ï

¦U¦ì¤j¤j¦n¡A¨Ï¥Îvba¤U¦p¶i¦æsheet¤Á´«°Ê§@¶i¦æÀx¦s®æªº¤½¦¡®M¤J
¤£»Ý¤Á¦Ü¸Ósheet¤U§Y¥i§¹¦¨¡A¦ý¬Y¨Ç°Ê§@¦p°Ñ·Ó¶ñº¡°Ê§@´N¤@©w­n
¤Á´«¦Ü¸Óshhet¤U¤~¥i¥¿±`°Ê§@¤£µM´N·|¥X²{°Ñ·Ó¦ì¸m²§±`¡A¹³¥H¤Uªº
¤º®e¸Ó¦p¦ó¹ê²{¤£»Ý¤Á¦Ü¸Ósheet¤U§Y¥i§¹¦¨
   
   Sheets("aa").Range("B2").Value = "=IF(R[-1]C[-1]<>RC[-1],1,R[-1]C+1)"
   Sheets("aa").Select
   Range("B2").Select
   Selection.AutoFill Destination:=Range("B2:B" & [C2].End(xlDown).Row)

¥t¥H¤U§â¦³¶ñº¡¤½¦¡®æ¦¡Åܦ¨¤å¦r®æ¦¡½T¤£ª¾¹D½d³ò¤º¦³¦h¤Ö¸ê®Æ®æ¤l¥Î¥H¤U¤è¦¡«oµL®ÄªG

Sheets("¤u§@ªí3").Range("F1" & [F1].End(xlDown).Row).Value = Sheets("¤u§@ªí3").Range("F1" & [F1].End(xlDown).Row)
¥Î¥H¤U¤è¦¡¤~¥i¹ê²{¬O§_¦³»yªk¤W¨º¸Ì²§±`

Sheets("aa").Range("A1:A500").Value = Sheets("aa").Range("A1:A100").Value

¥t¦p­n¥Î a.xls ¸ê®Æ ¼g¤Jºô¸ô¦ì¸m   \\b\c.xls   ¤¤¥H¤£¶}±ÒÀɮפ覡¥iª½±µ¼g ¤J
aa.xls.Sheets("aa").Range("A1:F1").Value = xxx ³oºØ¤è¦¡¶Ü?
¸ô®|¸Ó¦p¦ó¥[¤W
ÁÂÁ¤j®a
½Ð¦h¦h«ü±Ð

¥»©«³Ì«á¥Ñ luhpro ©ó 2014-12-22 00:21 ½s¿è
¦U¦ì¤j¤j¦n¡A¨Ï¥Îvba¤U¦p¶i¦æsheet¤Á´«°Ê§@¶i¦æÀx¦s®æªº¤½¦¡®M¤J
¤£»Ý¤Á¦Ü¸Ósheet¤U§Y¥i§¹¦¨¡A¦ý¬Y¨Ç°Ê§@¦p ...
ayubbs µoªí©ó 2014-12-20 01:04

1.  ³]©w¤½¦¡À³¸Ó­n¥Î .Formula , ©³¤U³o´XºØ³£¥i¥H¹ê²{:
  1.   With Sheets("aa")
  2.     .[B2].Formula = "=IF(R[-1]C[-1]<>RC[-1],1,R[-1]C+1)"
  3.     .[B2].AutoFill Destination:=.Range("B2:B" & .[C2].End(xlDown).Row)
  4.   End With
½Æ»s¥N½X
  1.   With Sheets("aa")
  2.     .[B2].Formula = "=IF(R[-1]C[-1]<>RC[-1],1,R[-1]C+1)"
  3.     .[B2].AutoFill Destination:=.Range(.[B2], .Cells(.[C2].End(xlDown).Row, 2))
  4.   End With
½Æ»s¥N½X
  1.   With Sheets("aa").[B2]
  2.     .Formula = "=IF(R[-1]C[-1]<>RC[-1],1,R[-1]C+1)"
  3.     .AutoFill Destination:=Range(.Offset(0), .Parent.Cells(.Offset(, 1).End(xlDown).Row, 2))
  4.   End With
½Æ»s¥N½X
2. §Aªº¤½¦¡µo¥Í¿ù»~ªº­ì¦] : Range("F1" & [F1].End(xlDown).Row) ¤º,
¤Þ¸¹¤¤ªº¦r¦ê­n¥Î "F1:F2" ªº®æ¦¡,
§A¨S¦³ : ¥B«á­± [F1].End(xlDown).Row µ²ªG¥u¬O¤@­Ó¼Æ¦r¦Ó«DÀx¦s®æ¦ì§}¤å¦r.
¤£¹L­Yª½±µ­×§ï§Aªºµ{¦¡¦¨:
  1.   Sheets("¤u§@ªí3").Range("F1:F" & [F1].End(xlDown).Row).Value = Sheets("¤u§@ªí3").Range("F1:F" & [F1].End(xlDown).Row)
½Æ»s¥N½X
°õ¦æ«á¸ÓÄæ¸ê®Æ«o·|¥þ³¡®ø¥¢³o§Ú¤]¤£ª¾¹D¬O¬°¬Æ»ò.
²{­×§ï¦p¤U :
  1. With Sheets("¤u§@ªí3").[F1]
  2.   .Range(.Offset(0), .Offset(.End(xlDown).Row)).Value = .Range(.Offset(0), .Offset(.End(xlDown).Row))
  3. End With
½Æ»s¥N½X
¦ý¬Ý§A #1 ªº±Ô­z¦ü¥G¬O­n§ïÀx¦s®æ®æ¦¡¬°¤å¦r,
¨º»òÀ³¸Ó¬O­n§ï¦¨©³¤U³o¼Ë¤~¹ï³á:
  1. Sheets("¤u§@ªí3").Range("F1:F" & [F1].End(xlDown).Row).NumberFormat = "@"
½Æ»s¥N½X
3. §Ú«Øij¸Õ¸Õ¦p¤U¤è¦¡, ¤£¹L§Ú¨SÅçÃÒ¹L :
  1. Workbooks("\\b\c.xls").Sheets("aa").Range("A1:F1").Value = xxx
½Æ»s¥N½X

TOP

¦^´_ 2# luhpro


ÁÂÁ¤j¤j«ü¾É¡A§Ú¦A¸Õ¸Õ¦UºØ¤è¦¡¤Uªºªí¥Ü§Î¦¡¡A«Ü©_©Çªº§Ú±`±`¨Ï¥Î.VALUE ¤è¦¡¥hªí¥Ü¤½¦¡¤]³£ÆZ¥¿±`ªº
´Nºâ¨S¥Î.Formula ¦n¹³¤]³£¨S¼vÅT¡A­nÁÙ¦³¤£À´ªº¦A½Ð±Ð¤F
½Ð¦h¦h«ü±Ð

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD