Hsieh

SpecialCells(xlLastCell)
°£«D­ì½d³ò¬O³Qclear©Îdelete
´N¬O³s¦P®æ¦¡²M°£
§_«hexcel¤´»{¬°¸Ó½d³ò¤w¨Ï¥Î
¥ÎCurrentRegionÄݩʸոÕ

Hsieh

For Each a In Range(Cells.SpecialCells(xlCellTypeConstants).Address)
  If a.Row > r Then r = a.Row
  If a.Column > k Then k = a.Column
Next
MsgBox Cells(r, k).Address

Hsieh

¦^´_ 7# ¤Ú§J´µ


    ¥Ñ«á©¹«e±À

1. Sub NN()
   
2. Set Rng = Sheet1.UsedRange
   
3. r = Rng.Rows.Count
   
4. k = Rng.Columns.Count
   
5. Do Until Application.CountA(Rng.Columns(k)) <> 0
   
6. k = k - 1
   
7. Loop
   
8. Do Until Application.CountA(Rng.Rows(r)) <> 0
   
9. r = r - 1
   
10. Loop
    
11. MsgBox Cells(r, k).Address
    
12. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 10# ¤Ú§J´µ

1.    Sub nn()
   
2. Set a = Cells.SpecialCells(xlCellTypeConstants).Areas
   
3. r = a(a.Count)(a(a.Count).Count).Row
   
4. k = UsedRange.SpecialCells(xlCellTypeLastCell).Column
   
5. Do Until Application.CountA(Columns(k)) > 0
   
6.    k = k - 1
   
7. Loop
   
8. MsgBox Cells(r, k).Address
   
9. End Sub

½Æ»s¥N½X