程式碼執行結果：
程式碼截圖：
程式碼文字：
Public Sub 技巧（） Dim myRange1 As Range， myRange2 As Range Set myRange1 = ActiveSheet。UsedRange ‘指定任意的單元格區域 Set myRange2 = myRange1。SpecialCells（xlCellTypeConstants） myRange2。Select MsgBox “指定單元格區域內輸入有常量的單元格的地址為：” & myRange2。Address Set myRange1 = Nothing Set myRange2 = NothingEnd Sub
註釋：
Range。SpecialCells 方法可以返回一個 Range 物件，該物件代表與指定型別和值匹配的所有單元格。
其語法如下：
表示式：SpecialCells（Type，Value）
其Type引數的可選XlCellType常量及對應值的表格大家可以問度娘哦。
程式碼執行結果：
程式碼截圖：
程式碼文字：
Public Sub 技巧（）
Dim myRange1 As Range， myRange2 As Range
Set myRange1 = ActiveSheet。UsedRange ’指定任意的單元格區域
Set myRange2 = myRange1。SpecialCells（xlCellTypeConstants）
myRange2。Select
MsgBox “指定單元格區域內輸入有常量的單元格的地址為：” & myRange2。Address
Set myRange1 = Nothing
Set myRange2 = Nothing
End Sub
註釋：
Range。SpecialCells 方法可以返回一個 Range 物件，該物件代表與指定型別和值匹配的所有單元格。
其語法如下：
表示式：SpecialCells（Type，Value）
其Type引數的可選XlCellType常量及對應值的表格大家可以問度娘哦。
VBA編輯神器放送
VBA程式設計神器 VBA程式碼助手 可以極大提高程式設計速度，降低程式設計門檻歡迎使用
私信回覆
程式碼助手
即可獲得
VBA密碼破解 程式碼混淆保護加密 程式碼庫輸入提示
本提示資料庫可完全自定義！
本人微信公眾號 EXCEL880 每天分享Excel實戰技術私信回覆 教程 可領取7天免費教程
