[分享] 使用 SpecialCells 方法的迷思

GBKEE

如指定的範圍中的儲存格有隱藏時 此時使用到SpecialCells的方法
就會觸動到工作表的Worksheet_SelectionChange
ThisWorkbook 的 Workbook_SheetSelectionChange 兩程序
使用參數 xlCellTypeLastCell  
永遠是傳回  UsedRange 的範圍中最後一個 Cell,  你無法傳回 在一指定 的範圍中最後一個 Cell

1. Sub Ex()
   
2.     With ActiveSheet
   
3.        .[A15] = "TEST"
   
4.        .[H1] = "TEST"
   
5.         MsgBox .[A:A].SpecialCells(xlCellTypeLastCell).Address
   
6.         MsgBox .UsedRange.SpecialCells(xlCellTypeLastCell).Address
   
7.         .[A15] = ""
   
8.         .[A10] = "TEST"
   
9.         MsgBox .[A:A].SpecialCells(xlCellTypeLastCell).Address
   
10.         MsgBox .UsedRange.SpecialCells(xlCellTypeLastCell).Address
    
11.    End With
    
12. End Sub

複製代碼

et5323

第一次发现这个问题,谢谢!

apolloooo

試了一下，果然如此

davidoff

"使用參數 xlCellTypeLastCell 永遠是傳回  UsedRange 的範圍中最後一個 Cell"
除了這個須要特別注意之外，

.[A:A].SpecialCells(xlCellTypeLastCell).Address
.UsedRange.SpecialCells(xlCellTypeLastCell).Address
上面兩條真的是很少會去想到會有差別。
剛看到還想半天，怎麼得到的值會有差。
原來兩者的UsedRange是由不同的方式定義出來的。