¤@ÁäÂà¶K¤u§@ªí¥B±Æ§Ç§ï¦p¦ó°µ©O
- ©«¤l
- 10
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 20
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- vb2008
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-1-28
- ³Ì«áµn¿ý
- 2011-8-2
|
¤@ÁäÂà¶K¤u§@ªí¥B±Æ§Ç§ï¦p¦ó°µ©O
¤pªº·Q±qWEB§ì¨ú¸ê®Æ¦bSHEET1«á
§Q¥Î«öÁä°õ¦æ¥¨¶°±NSHEET1¤º²Ä¤G¦C¥H¤Uªº¤º®e½Æ»s¨ìSHEET2
¥B¦bSHEET¨Ì·ÓIÄæ(¦¨¥æ±i¼Æ)¥Ñ¤j¨ì¤p±Æ§Ç
¤£ª¾¹D¸Ó«ç»ò°µ
¤£ª¾¹D¦³¨S¦³«e½ú¥i¥HÀ°¦£©O |
-
-
±Æ§Ç.rar
(9.84 KB)
|
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
¤jP¨BÆJ¦p¤U :
º¥ý¥i¥H¥ý§ä¨ì¸ê®Æ°Ï³Ì¥½¤@¦Cªº¦C¸¹
iRowEnd = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
±µµÛ Copy ·Qn³B²zªº¸ê®Æ
Sheets("Sheet1").Range(Sheets("Sheet1")..Cells(2, 1), Sheets("Sheet1")..Cells(iRowEnd, 10)).Copy
¦A¶K¹L¥h
Sheets("Sheet2").Paste Destination:=Sheets("Sheet2").Cells(1, 1)
³Ì«á°µ±Æ§Ç
Worksheets("Sheet2").Range("A2").Sort _
Key1:=Worksheets("Sheet2").Columns("I"), _
Header:=xlGuess
§Ú·QÀ³¸Ó´N¯à¹F¨ì§Anªºµ²ªG¤F.
(µ{¦¡n©ñ¦b¼Ò²Õ°Ï¤º)- Sub nn()
- Dim iRowEnd%
- iRowEnd = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
- With Sheets("Sheet1")
- .Range(.Cells(2, 1), .Cells(iRowEnd, 10)).Copy
- End With
- With Sheets("Sheet2")
- .Paste Destination:=.Cells(1, 1)
- .Range("A2").Sort _
- Key1:=.Columns("I"), _
- Header:=xlGuess
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 20
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- vb2008
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-1-28
- ³Ì«áµn¿ý
- 2011-8-2
|
¤jP¨BÆJ¦p¤U :
º¥ý¥i¥H¥ý§ä¨ì¸ê®Æ°Ï³Ì¥½¤@¦Cªº¦C¸¹
iRowEnd = Sheets("Sheet1").Cells(Rows.Count, ...
luhpro µoªí©ó 2011-7-7 05:32
¶W·PÁªº
ªGµM«Ü¨³³tªº±Æ¦C¥X¨Ó¤F
¯uªº«Ü¼F®`C~~~
ÁÂÁ§A~:$ |
|
|
|
|
|
|
- ©«¤l
- 65
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2012-5-21
|
GBKEEª©¥D,§Ú·Q°Ý¤@¤U,³oÓ"With Sheet2"ªº¥Îªk,¦pªG§Ú·Q¦A¦h¥[¤@¶°µ¬Û¦Pªº¤u§@,¥i¬O¶K¤Wªº¦ì¸m¤£¤@¼Ë,¸Ó«ç»ò¼g©O?ÁÂÁÂ! |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 65
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2012-5-21
|
´N¬O³oÓ·N«ä,¥u¬O§ÚÁÙ¨S¾Ç¹L"With"ªº³oºØ¥Îªk,¥¦ÁÙ¦³¨ä¥Lªº¥Î³~¶Ü? |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|