- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-6-2 17:57 ½s¿è
¦^´_ 4# Kubi
¸É¤W§¹¾ãµ{¦¡«á
UsedRange·|¬O¦b³Ì«áÀx¦s®æ¦³¸ê®Æªº½d³ò¤º- Option Explicit
- Sub Ex()
- Dim R(1 To 2), C(1 To 2) As Long, Rng As Range
- Debug.Print ActiveSheet.UsedRange.Address
- If Application.CountA(Cells) = 0 Then Exit Sub
- Set Rng = Cells.SpecialCells(xlCellTypeConstants)
- Set Rng = Rng.Areas(Rng.Areas.Count)
- Set Rng = Rng.Cells(Rng.Cells.Count)
- With Rng
- R(1) = .Row
- C(1) = .Column
- End With
- With Cells.SpecialCells(xlCellTypeLastCell)
- R(2) = .Row
- C(2) = .Column
- End With
- If R(1) <> R(2) Then Rows(R(1) + 1 & ":" & R(2)).Delete
- If C(1) <> C(2) And C(1) + 1 = C(2) Then Range(Columns(C(1) + 1), Columns(C(2))).Delete
- ActiveSheet.Parent.Save
- Debug.Print ActiveSheet.UsedRange.Address
- End Sub
½Æ»s¥N½X |
|