- ©«¤l
- 824
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 904
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2023-12-24
|
DEAR ALL¤j¤j
1.«ü©w½d³òÀx¦s®æ¤º§t«ü©w^¤å±N¸ÓÀx¦s®æ¥h°£°ÝÃD½Ð±Ð
1.1 Àx¦s®æ RANGE("H3:Z100") ¤º¦³§t ...
rouber590324 µoªí©ó 2015-4-23 14:29
¤£¾A¦X¥Î For Each R In RANGE("H3:Z100") ªº¤è¦¡¨Ó½ü¨µ(¹M¾ú)©Ò¦³¼ÐªºÀx¦s®æ,
¦]¬°§R°£«á¸ê®Æ¦ì¸m·|¦³ÅܤÆ, ¸û¾A·íªº¤è¦¡¬O¥Î˧Ǫk.- Sub nn()
- Dim lRow&, iCol%
-
- For lRow = 100 To 3 Step -1
- For iCol = 26 To 8 Step -1
- With Cells(lRow, iCol)
- If InStr(1, .Text, "E") <> 0 Then .Delete Shift:=xlShiftToLeft
- End With
- Next
- Next
- End Sub
½Æ»s¥N½X |
|