Когато пишем VBA кодиране, за да се спасим от повтарящата се работа, изборът на данни играе много важна роля. Така че в тази статия ще научите как да избирате данните по данни за ред, колона и цели документи чрез VBA кодиране в Microsoft Excel.
Ще научите:
- Как да изберем цялата колона?
- Как да изберем целия ред?
- Как да изберем цели данни?
Как да изберете цялата колона чрез VBA?
Имаме данни в диапазона A1: C19, в който колона A съдържа Име, колона B Пол и колона C съдържа Възраст.
За да изберете Цялата колона А в тези данни, следвайте дадените по-долу стъпки и код:-
- Отворете VBA страница, натиснете клавиша Alt+F11
- Поставете модул
- Напишете кода по -долу:
Sub Columnselect () Диапазон ("A1"). Цяла колона. Изберете End Sub
- Натиснете клавиша F5, за да стартирате макроса в Excel
- Колона А ще бъде избрана
Ако искате данните да бъдат избрани до последната активна клетка в колоната, следвайте посочените по-долу стъпки и код:-
- Напишете кода по-долу:-
Sub Columnselect () lastrow = Работни листове ("Sheet1"). Клетки (Rows.count, 1) .End (xlUp) .Row Worksheets ("Sheet1"). Range ("A1: A" & lastrow). Изберете End Sub
Код Обяснение:- Първо ще определим коя ще бъде последната активна клетка в данните, а след това последния ред ще използваме за дефиниране на диапазона в кодирането.
- Натиснете клавиша F5, за да стартирате макроса в Excel
- Колона A1: A19 ще бъде избрана
По този начин, като използвате VBA, можете да изберете кода, за да изберете колоната до последната активна клетка. Когато не знаем коя е последната активна клетка, можем да използваме този код, докато пишем VBA кода за селекцията в Microsoft Excel.
Как да изберете целия ред чрез VBA?
Имаме данни в диапазона A1: C19, в който колона A съдържа Име, колона B Пол и колона C съдържа Възраст.
За да изберете целия ред в тези данни, следвайте дадените по-долу стъпки и код:-
- Отворете VBA страница, натиснете клавиша Alt+F11
- Поставете модул
- Напишете кода по-долу:-
Подред подберете диапазон () Обхват ("A2"). EntireRow. Изберете Край под
- Натиснете клавиша F5, за да стартирате макроса в Excel
- Колона А ще бъде избрана
Ако искате данните трябва да бъдат избрани до последната активна клетка за реда, следвайте посочените по-долу стъпки и код:-
- Напишете кода по-долу:-
Подред подбор () Затъмняване на последната колона като Дълга последна колона = Работни листове ("Sheet1"). Клетки (1, Columns.count). Край (xlToLeft). Работни листове на колони ("Sheet1"). Изберете End Sub
Код Обяснение: В този код първо бяхме дефинирали последната колона, след това ще я използваме, за да определим диапазона.
- Натиснете F5, за да стартирате макроса в Excel
- Първият ред ще бъде избран до последната активна клетка в реда
По този начин можем да изберем целия ред или да изберем реда до последната активна клетка в Microsoft Excel чрез VBA.
Как да изберете цели данни чрез VBA?
Нека вземем пример и разберем:-
Имаме данни в диапазона A1: C19, в който колона A съдържа Име, колона B Пол и колона C съдържа Възраст.
За да изберете данните от първата клетка до последната активна клетка, следвайте дадените по-долу стъпки и код:-
- Отворете VBA страница, натиснете клавиша Alt+F11
- Поставете модул
- Напишете кода по -долу:
Подселектиране на клетъчна клетка () Затъмняване на последния запис Дълъг, последната колона Както дълъг последен = Работни листове ("Sheet1"). Клетки (Rows.count, 1) .End (xlUp) .Row lastcolumn = Работни листове ("Sheet1"). Клетки (1, колони .count) .End (xlToLeft). Работни листове на колони ("Sheet1"). Диапазон ("A1", клетки (последен ред, последна колона)). Изберете End Sub
Код Обяснение: Първо дефинирахме името на субекта на Code, след това дефинирахме всички променливи. След това сме дефинирали какъв ще бъде последният ни ред и последната колона.
- Натиснете клавиша F5, за да стартирате макроса в Excel
- В работния лист ще бъдат избрани всички данни
Сега, ако искате да копирате същите данни и да ги поставите, използвайте кода по-долу:-
Подселектиране на клетъчна клетка () Затъмняване на последния запис Дълъг, последната колона Както дълъг последен = Работни листове ("Sheet1"). Клетки (Rows.count, 1) .End (xlUp) .Row lastcolumn = Работни листове ("Sheet1"). Клетки (1, колони .count) .End (xlToLeft). Работни листове на колони ("Sheet1"). Диапазон ("A1", клетки (последен ред, последна колона)). Копиране на листове ("Sheet2"). Range ("A1") End Sub
Изпълнете кода, всички данни ще бъдат копирани и поставени в sheet2.
Това е начинът, по който можем да напишем макроса за избор на данните от първата клетка до последната активна клетка и след това да поставим в друг лист в Microsoft Excel.
Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни на имейл сайта.