excel用VBA選擇工作表中所有包含超鏈接的單元格

excel用VBA選擇工作表中所有包含超鏈接的單元格

要選擇工作表中所有包含超鏈接的單元格，用定位或查找的方法無法實現。下面的VBA代碼可以實現這一目的。

按Alt+F11，打開VBA編輯器，在“工程”窗口中雙擊某個工作表，在右側的代碼窗口中輸入下列代碼：

Sub SelectHyperlinkCells()Dim hHlink As HyperlinkDim rRange As RangeDim NotFirstlink As BooleanOn Error Resume NextFor Each hHlink In ActiveSheet.HyperlinksIf NotFirstlink ThenSet rRange = Application.Union(rRange, hHlink.Range)ElseSet rRange = hHlink.RangeNotFirstlink = TrueEnd IfNextIf rRange Is Nothing Then EndrRange.SelectEnd Sub關閉VBA編輯器返回工作表界面，按Alt+F8打開“宏”對話框，運行“SelectHyperlinkCells”宏即可選擇工作表中所有包含超鏈接的單元格。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。