- ©«¤l
- 181
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 197
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-3-9
- ³Ì«áµn¿ý
- 2024-4-29
|
§Ú¼g¤@Ó¥¨¶°¡A§R±¼³Ì«á¤@¦C(¤w¨Ï¥Î)«á±"¨S¥Îªº¦C"³£¥i®M¥Î
Sub a133323()
Dim a
Set a = Cells.Find ...
t8899 µoªí©ó 2015-1-19 21:35
¦³ bug ¼Ú ( §A¥i¥H¦b Row 5 ~ 10 ¶ñ¤J¸ê®Æ, ¨ä¾lªÅ¥Õ, ¥h´ú¸Õ´Nª¾¹D¦³ bug )
À°§A§ï¦¨³o¼Ë
Sub a133323()
§R°£³Ì«án¦C = 1 ' <--- §Aªº¥Øªº
Dim a
Set a = Cells.Find(What:="*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not a Is Nothing Then
a.Offset(1 - §R°£³Ì«án¦C).EntireRow.Delete
End If
ActiveSheet.UsedRange
End Sub |
|