VBA常用小代碼：一鍵批量取消工作表隱藏

VBA常用小代碼：一鍵批量取消工作表隱藏

我們今天分享的VBA小代碼的內容有兩個，分別是：

1. 批量取消隱藏工作表 2. 批量提取單元格內的超鏈接地址

●? 如何批量取消隱藏工作表

可以使用以下VBA小代碼：

Sub qxyc() ??? Dim sht As Worksheet ??? ‘定義變量 ??? For Each sht In Worksheets ??? ‘循環工作簿里的每一個工作表 ??????? sht.Visible = xlSheetVisible ??????? ‘將工作表的狀態設置為非隱藏 ??? Next End Sub

●? 如何批量提取單元格內的超鏈接網址

Function GetAdrs(Rng) ??? Application.Volatile True ??? With Rng.Hyperlinks(1) ??????? GetAdrs = IIf(.Address = “”, .SubAddress, .Address) ??? End With End Function

將代碼復制黏貼到工作簿的VBE界面新建的模塊中，在B1單元格輸入公式=getadrs(A1)，并復制填充到B3單元格，就可以得到結果了。

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

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