- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 15
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-12
|
¥»©«³Ì«á¥Ñ 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¹ê²{:- With Sheets("aa")
- .[B2].Formula = "=IF(R[-1]C[-1]<>RC[-1],1,R[-1]C+1)"
- .[B2].AutoFill Destination:=.Range("B2:B" & .[C2].End(xlDown).Row)
- End With
½Æ»s¥N½X- With Sheets("aa")
- .[B2].Formula = "=IF(R[-1]C[-1]<>RC[-1],1,R[-1]C+1)"
- .[B2].AutoFill Destination:=.Range(.[B2], .Cells(.[C2].End(xlDown).Row, 2))
- End With
½Æ»s¥N½X- With Sheets("aa").[B2]
- .Formula = "=IF(R[-1]C[-1]<>RC[-1],1,R[-1]C+1)"
- .AutoFill Destination:=Range(.Offset(0), .Parent.Cells(.Offset(, 1).End(xlDown).Row, 2))
- 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.
¤£¹LYª½±µ×§ï§Aªºµ{¦¡¦¨:- 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 :- With Sheets("¤u§@ªí3").[F1]
- .Range(.Offset(0), .Offset(.End(xlDown).Row)).Value = .Range(.Offset(0), .Offset(.End(xlDown).Row))
- End With
½Æ»s¥N½X ¦ý¬Ý§A #1 ªº±Ôz¦ü¥G¬On§ïÀx¦s®æ®æ¦¡¬°¤å¦r,
¨º»òÀ³¸Ó¬On§ï¦¨©³¤U³o¼Ë¤~¹ï³á:- Sheets("¤u§@ªí3").Range("F1:F" & [F1].End(xlDown).Row).NumberFormat = "@"
½Æ»s¥N½X 3. §Ú«Øij¸Õ¸Õ¦p¤U¤è¦¡, ¤£¹L§Ú¨SÅçÃÒ¹L :- Workbooks("\\b\c.xls").Sheets("aa").Range("A1:F1").Value = xxx
½Æ»s¥N½X |
|