- ©«¤l
- 560
- ¥DÃD
- 159
- ºëµØ
- 0
- ¿n¤À
- 723
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2023-10-31
|
[µo°Ý] ¸ê®Æ®w§ì¨ú«á¸õ¦C©ñ¸ê®Æ°ÝÃD½Ð±Ð
dear all ¤j¤j -
1. ¦p¹Ï¤@µ{¦¡·|±N²Å¦X±ø¥ó¤§sheet1¸ê®Æ¶Ç¦Ü sheet2¤§ A2 A3 A4 ..............
2. »Ý¨D¬° ±N²Å¦X±ø¥ó¤§sheet1¸ê®Æ¶Ç¦Ü sheet2¤§ A2 A6 A10 ..............¸õ4¦C©ñ¸m¸ê®Æ
2.1½Ð°Ýµ{¦¡¦p¦óקï.·Ð¤£§[½ç±Ð thanks*10000
¹Ï¤@
Sub robert()
Sheet2.[A1:G65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet2.[A65536].End(xlUp).Row
For M = 5 To X
If Not (Sheet1.Cells(M, 5) = "" Or Sheet1.Cells(M, 5) = " ") Then
Sheet2.Cells(Y + 1, 1) = Sheet1.Cells(M, 1)
Y = Y + 1
End If
Next
End Sub |
|