跳到主要內容

如何在Excel中輕鬆撤消所選範圍的選擇?

作者:凱莉 最後修改時間:2014-03-17

假設您已經選擇了某個範圍內的某些特定單元格,現在您需要反轉選擇:取消選擇所選單元格,然後選擇其他單元格。 請參見以下屏幕截圖:

當然,您可以手動撤消選擇。 但是本文將為您帶來一些可愛的技巧,以快速撤消選擇:

使用VBA在Excel中進行反向選擇

使用Kutools for Excel在Excel中反向選擇


箭頭藍色右氣泡 使用VBA在Excel中進行反向選擇

使用VBA宏將使您可以輕鬆地在活動工作表的工作區域中撤消選擇。

Step1:選擇要反轉它們的單元格。

Step2:按住 其他 + F11 鍵,然後打開 Microsoft Visual Basic for Applications 窗口。

Step3:點擊 插入 > 模塊,然後將以下宏粘貼到“模塊窗口”中。

VBA用於反轉選擇

Sub InvertSelection()
'Updateby20140314
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
    If Application.Intersect(rng, Rng1) Is Nothing Then
        If OutRng Is Nothing Then
            Set OutRng = rng
        Else
            Set OutRng = Application.Union(OutRng, rng)
        End If
    End If
Next
OutRng.Select
End Sub
	

Step4: 按 F5 運行此宏的鍵。 然後將顯示一個對話框供您選擇一些不需要在結果中選擇的單元格。 看截圖:




步驟 5:點擊 OK,然後在另一個彈出對話框中選擇要撤消選擇的範圍。 看截圖:




步驟 6:點擊 OK。 您可以看到選擇已被撤消。


注意: 此VBA還在空白工作表中工作。


箭頭藍色右氣泡 使用Kutools for Excel在Excel中反向選擇

您可能需要快速撤消Excel中的所有選擇, 選擇範圍助手 的工具 Excel的Kutools 可以幫助您在Excel中快速反向選擇。 此技巧使您輕鬆撤消整個工作簿中的所有選擇。

Kutools for Excel包括300多個便捷的Excel工具。 30天免費試用,不受限制。 立即獲取.

Step1:選擇要反轉它們的單元格。

Step2: 點擊 庫工具 > 選擇工具 > 選擇範圍助手….

Step3:在 選擇範圍助手 對話框,檢查 逆選擇 選項。

Step4:然後拖動鼠標以選擇要撤消選擇的範圍。 釋放鼠標時,已取消選擇選定的單元格,並立即選擇了該範圍內的未選定單元格。

Step5:然後關閉 選擇範圍助手 對話框。

有關更多詳細信息 選擇範圍助手, 請拜訪 選擇範圍助手功能描述.


相關文章:

最佳辦公生產力工具

🤖 Kutools 人工智慧助手:基於以下內容徹底改變數據分析: 智慧執行   |  生成代碼  |  建立自訂公式  |  分析數據並產生圖表  |  呼叫 Kutools 函數...
熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

產品描述


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!

 

 

 

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Reverse Selections In Excel With VBA - confirmed not working.

Please fix.
This comment was minimized by the moderator on the site
Try this:


Sub InvertSelection()
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
Dim xTitleId As String
xTitleId = "Invert Selection"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
If Application.Intersect(rng, Rng1) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
End Sub
This comment was minimized by the moderator on the site
invert selection vba not working
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations