Note: The other languages of the website are Google-translated. Back to English

如何在Excel中自動突出顯示活動單元格的行和列?

當您查看包含大量數據的大型工作表時,您可能希望突出顯示所選單元格的行和列,以便您可以輕鬆直觀地讀取數據,以避免誤讀數據。 在這裡,我可以向您介紹一些有趣的技巧,以突出顯示當前單元格的行和列,當單元格更改時,新單元格的列和行將自動突出顯示,如以下屏幕截圖所示:

使用VBA代碼自動突出顯示所選單元格的行和列
一鍵突出顯示所選單元格的行和列


使用VBA代碼自動突出顯示所選單元格的行和列

以下VBA代碼可以幫助您自動突出顯示工作表中當前單元格的整個列和行,請執行以下步驟:

1。 打開工作表,您將自動突出顯示活動單元格的行和列,右鍵單擊工作表選項卡,然後選擇 查看代碼 從上下文菜單。

2。 然後將以下VBA代碼複製並粘貼到空白代碼窗口中:

VBA代碼:自動突出顯示所選單元格的行和列

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20200430
Static xRow
Static xColumn
If xColumn <> "" Then
    With Columns(xColumn).Interior
        .ColorIndex = xlNone
    End With
    With Rows(xRow).Interior
        .ColorIndex = xlNone
    End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
With Rows(pRow).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
End Sub

3。 然後按 其他 + Q 鍵一起返回工作表,現在當您選擇一個單元格時,該單元格的整個行和列都已突出顯示。 並且它將隨著所選單元格的變化而動態移動。

文檔閱讀佈局4

筆記:

  • 1.在上面的代碼中,您可以更改 .ColorIndex = 6 顏色變為您喜歡的其他顏色。
  • 2.此VBA代碼僅適用於您在上述步驟2中選擇的工作表。
  • 3.如果您不想再次突出顯示所選單元格的列和行,則需要刪除上面的VBA,並通過單擊以下按鈕為所選行和列設置不填充 首頁 > 填色 > 沒有填充.
  • 4.如果工作表中有一些彩色的單元格,則單擊該單元格然後移至其他單元格時,該顏色將丟失。

使用Kutools for Excel自動突出顯示所選單元格的行和列

如果您是VBA的新手,請在此處推薦 Excel的Kutools's 閱讀版式 效用。 此實用程序有助於輕鬆突出顯示Excel中所選單元格的行和列,如下所示。 立即下載並試用! (30 天免費試用)

讓我們看看如何應用 Excel的Kutools閱讀版式 突出顯示一系列單元格的整個行和列的功能。

1。 點擊 庫工具 > 閱讀版式。 看截圖:

然後啟用了閱讀佈局,您可以看到活動單元格的行和列立即突出顯示。 並且它將隨著所選單元格的變化而動態移動。

筆記:

  • 1.您可以根據需要更改閱讀佈局設置,如下圖所示。
  • 2.您可以通過取消選中 閱讀版式閱讀 下拉列表。
  • 3。 此 閱讀版式視圖 功能將應用於您的工作簿中的所有工作表。
  • 4。 此 閱讀版式視圖 下次啟動工作簿時,該功能將被禁用。

一鍵突出顯示所選單元格的行和列


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

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

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (56)
5中的5評分 · 1評級
網站主持人對此評論進行了最小化
嗨,給定的代碼可以很好地突出顯示活動單元格的行和列。 但是原始單元格顏色以及列和行顏色設置會丟失。 如何克服這一點?
網站主持人對此評論進行了最小化
這是我突出顯示當前行的版本(從 A 到 AK)。 為了避免消除單元格顏色,我改用紅色邊框......另外,它將我喜歡的邊框恢復到剛剛離開的行。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lRow As Long, lCol As Long Static lPrevRow As Long '將上一個活動行恢復到...淺藍色虛線 If lPrevRow > 0 Then Range("A" & lPrevRow, "AK" & lPrevRow).BorderAround Weight:=xlHairline, Color:=RGB(162, 200, 255) End If '用紅色邊框高亮當前行 lRow = Target.Row Range("A" & lRow, "AK" & lRow) .BorderAround Weight:=xlThin, Color:=RGB(255, 0, 0) lPrevRow = lRow End Sub
網站主持人對此評論進行了最小化
哦! 男人,就像一個魅力! 偉大的
網站主持人對此評論進行了最小化
你現在是個天才,怎麼知道行和列?
網站主持人對此評論進行了最小化
嗨,我對 SURESH 也有同樣的問題,能否請您提供完整的修改後的代碼,以防止我使用它:Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow Static xColumn If xColumn "" Then With Columns(xColumn).Interior .ColorIndex = xlNone End With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns( pColumn).Interior .ColorIndex = 6 .Pattern = xlSolid End With With Rows(pRow).Interior .ColorIndex = 6 .Pattern = xlSolid End With End Sub
網站主持人對此評論進行了最小化
無法讓它工作 - 請幫助,謝謝:-)
網站主持人對此評論進行了最小化
“請幫忙”——您是否期望得到這樣一個模糊請求的答案,並且不努力解釋問題?
網站主持人對此評論進行了最小化
謝謝!
網站主持人對此評論進行了最小化
這是完美的代碼謝謝!!!!!!! 從一個單元格移動到另一個單元格並留下高光和輪廓的軌跡沒有問題。
網站主持人對此評論進行了最小化
我在我的數據中使用插入表,它不會改變原始顏色
網站主持人對此評論進行了最小化
只要您擁有“開發人員”選項卡,此選項現在在 2010 年可供非編碼人員使用。 在開發人員下,單擊屬性。 將 EnableOutlining 設置為 True。 限制:這似乎一次只適用於一個工作表,儘管通過單擊底部的選項卡很容易為其他工作表設置(同時保持“屬性”對話框打開)。 為什麼 Excel 在選項下不提供此功能,嗯,它是 Microsoft。
網站主持人對此評論進行了最小化
您好,輸入代碼後,“撤消”功能不再起作用。 有人可以幫忙嗎?
網站主持人對此評論進行了最小化
你好! 我真的很喜歡這段代碼,但就像 Suresh 說的,它刪除了原始單元格顏色! 我怎樣才能保持我原來的細胞顏色? 請回复,謝謝!
網站主持人對此評論進行了最小化
這非常有效。 有沒有辦法讓它不顯示在打印上?
網站主持人對此評論進行了最小化
正是我想要的。 謝謝!
網站主持人對此評論進行了最小化
要保持單元格顏色,您必須為單元格創建條件格式。
網站主持人對此評論進行了最小化
有計劃為 Kutools 添加 Mac 功能嗎?
網站主持人對此評論進行了最小化
如何更改條的顏色? 感謝這個偉大的解決方案。 問候,噸
網站主持人對此評論進行了最小化
如果我想讓它停止,我該如何停止它??
網站主持人對此評論進行了最小化
這是我僅用於行的代碼(灰色突出顯示): Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow If xRow "" Then With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows(pRow).Interior .ColorIndex = 15 .Pattern = xlSolid End With End Sub
網站主持人對此評論進行了最小化
複製和粘貼您的代碼無法正常工作,但在修復語法錯誤後,它的效果驚人! 謝謝你。 這是僅突出顯示(黃色)該行的工作代碼: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow If xRow "" Then With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows(pRow).Interior .ColorIndex = 6 .Pattern = xlSolid End With End Sub
網站主持人對此評論進行了最小化
太棒了……正是我要找的……非常感謝!!
網站主持人對此評論進行了最小化
當我重新打開我的工作簿時,上一個會話中突出顯示的列仍然存在 - 當我在新會話中移動工作表時確實會發生變化。 每次打開工作簿時,有沒有辦法“清除”前一個會話?
網站主持人對此評論進行了最小化
如果您沒有非條件格式的顏色,則此方法有效。 只需添加兩個循環。 Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow Static xColumn If xColumn "" Then With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows(pRow) .Interior .ColorIndex = 6 .Pattern = xlSolid End With Rows(pRow - 1).Interior .ColorIndex = 0 .Pattern = x1Solid End With Rows(pRow + 1).Interior .ColorIndex = 0 .Pattern = x1Solid End With結束子
網站主持人對此評論進行了最小化
如果有已經上色的紙張,我怎樣才能使它成為可能。
網站主持人對此評論進行了最小化
好文章! 為我保命。 如果您希望實際單元格以黃色突出顯示,行/單元格以灰色突出顯示,則代碼如下: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20151216 Static xRow Static xColumn If xColumn "" Then With Columns(xColumn ).Interior .ColorIndex = xlNone End With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 15 .Pattern = xlSolid End With Rows(pRow).Interior .ColorIndex = 15 .Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 End Sub
網站主持人對此評論進行了最小化
正確代碼如下: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20151216 Static xRow Static xColumn If xColumn "" Then With Columns(xColumn).Interior .ColorIndex = xlNone End With With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 15 .Pattern = xlSolid End With Rows(pRow).Interior .ColorIndex = 15 。 Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 End Sub [quote]好文章!。 為我保命。 如果您希望實際單元格以黃色突出顯示,行/單元格以灰色突出顯示,則代碼如下: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20151216 Static xRow Static xColumn If xColumn "" Then With Columns(xColumn ).Interior .ColorIndex = xlNone End With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 15 .Pattern = xlSolid End With Rows(pRow).Interior .ColorIndex = 15 .Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 End Sub由維森特[/ quote]
網站主持人對此評論進行了最小化
你好。 如果其中一個單元格合併,我如何突出顯示整行。 我看到 kutool 可以在合併單元格上劃一條線。 請幫我解決這個問題
網站主持人對此評論進行了最小化
我將您的代碼從突出顯示內部更改為製作紅色邊框。
.BorderAround 重量:=xlThick,顏色:=vbRed
我選擇一個單元格,邊框變為紅色。 偉大的。 我複制,選擇另一個單元格,那些邊框變成紅色,但剪貼板清除。 我不知道如何使用邊框,並保留複製/粘貼功能。
有什麼建議嗎?
網站主持人對此評論進行了最小化
你能分享整個代碼嗎?
網站主持人對此評論進行了最小化
子工作表_SelectionChange(ByVal Target As Excel.Range)

'更新 20192021
靜態 xRow
如果 xRow <> "" 那麼
行(xRow).BorderAround 重量:=xlThin,顏色:=vbBlack
如果結束
pRow = Selection.Row
xRow = pRow
Rows(pRow).BorderAround 重量:=xlThick,顏色:=vbRed
END SUB
網站主持人對此評論進行了最小化
你如何防止撤消和重做按鈕被這個宏不使用 Kutools 刪除
網站主持人對此評論進行了最小化
美好的一天,
對於那個很抱歉。 無法解決宏中的撤消和重做問題。
網站主持人對此評論進行了最小化
突出顯示單個單元格的 VBA 有效,但這個無效。
網站主持人對此評論進行了最小化
謝謝你張貼這個! 它在通過電子表格進行支票核對時非常有用。
這裡還沒有評論
載入更多
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護