如何基于Excel中的列標(biāo)題選擇列？

假設(shè)您有一個包含多個列的大型工作表，現(xiàn)在，您想根據(jù)列標(biāo)題名稱選擇特定的列。 要在大型工作表中逐列查找會浪費(fèi)很多時間，本文將介紹一種快速的方法來解決Excel中的這一問題。

根據(jù)列標(biāo)題名稱和VBA代碼選擇一個列

根據(jù)列標(biāo)題名稱和VBA代碼選擇一個列驚人的！ 在 Excel 中使用高效的選項(xiàng)卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時間，并減少數(shù)千次鼠標(biāo)單擊！

以下VBA代碼可以幫助您根據(jù)特定的標(biāo)題名稱選擇列，請按以下步驟操作：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。

2。 點(diǎn)擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。

VBA代碼：根據(jù)列標(biāo)題名稱選擇列：

Sub FindAddressColumn()Updateby ExtendoffcieDim xRg As RangeDim xRgUni As RangeDim xFirstAddress As StringDim xStr As StringOn Error Resume NextxStr = "Name"Set xRg = Range("A1:P1").Find(xStr, , xlValues, xlWhole, , , True)If Not xRg Is Nothing ThenxFirstAddress = xRg.AddressDoSet xRg = Range("A1:P1").FindNext(xRg)If xRgUni Is Nothing ThenSet xRgUni = xRgElseSet xRgUni = Application.Union(xRgUni, xRg)End IfLoop While (Not xRg Is Nothing) And (xRg.Address <> xFirstAddress)End IfxRgUni.EntireColumn.SelectEnd SubCopy

備注：在上面的代碼中， A1：P1 是您要從中選擇列的標(biāo)題范圍，并且“Name”中的“ xStr =“名稱” 是要基于其選擇列的標(biāo)題名稱。 請根據(jù)需要更改它們。

3。 復(fù)制并粘貼代碼后，請按 F5 鍵以運(yùn)行此代碼，并且具有特定標(biāo)題名稱的所有列均已被選中，請參見屏幕截圖：

最佳辦公生產(chǎn)力工具

將小時轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！

為什么需要 Kutools for Excel