Як вибрати стовпець на основі заголовка стовпця в Excel?
Припустимо, у вас є великий аркуш, який містить кілька стовпців, і тепер ви хотіли б вибрати конкретний стовпець на основі імені заголовка стовпця. Щоб знайти стовпець за стовпчиком на великому аркуші, ви витратите багато часу, у цій статті я представив швидкий метод вирішення цієї роботи в Excel.
Виберіть стовпець на основі назви заголовка стовпця з кодом VBA
Виберіть стовпець на основі назви заголовка стовпця з кодом VBA
Наступний код VBA може допомогти вам вибрати стовпці на основі конкретного імені заголовка, будь-ласка, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: Виберіть стовпець на основі назви заголовка стовпця:
Sub FindAddressColumn()
'Updateby Extendoffcie
Dim xRg As Range
Dim xRgUni As Range
Dim xFirstAddress As String
Dim xStr As String
On Error Resume Next
xStr = "Name"
Set xRg = Range("A1:P1").Find(xStr, , xlValues, xlWhole, , , True)
If Not xRg Is Nothing Then
xFirstAddress = xRg.Address
Do
Set xRg = Range("A1:P1").FindNext(xRg)
If xRgUni Is Nothing Then
Set xRgUni = xRg
Else
Set xRgUni = Application.Union(xRgUni, xRg)
End If
Loop While (Not xRg Is Nothing) And (xRg.Address <> xFirstAddress)
End If
xRgUni.EntireColumn.Select
End Sub
примітки: У наведеному вище коді, A1: P1 - діапазон заголовків, з яких потрібно вибрати стовпці, і “ІМ'Я”У сценарії xStr = "Ім'я" - це назва заголовка, на основі якого потрібно вибрати стовпці. Будь ласка, змініть їх на свої потреби.
3. Після копіювання та вставки коду, натисніть F5 для запуску цього коду, і всі стовпці з конкретним іменем заголовка були вибрані відразу, див. знімок екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!