Змест
Працуючы з VBA у Excel, нам часта даводзіцца аб'ядноўваць радкі (радкі) і зменныя (зменныя) на аркушы. Аб'яднанне радкоў (радкоў) і зменных (зменных) шырока выкарыстоўваецца практычна ва ўсіх сектарах нашых работ, пачынаючы ад падвядзення вынікаў студэнтаў да аналізу складанага бізнесу. У гэтым артыкуле я пакажу вам, як можна аб'яднаць радкі (радкі) і зменныя (зменныя) на аркушы з VBA у Excel. Я растлумачу рэчы на належных прыкладах і ілюстрацыях.
Аб'яднанне радкоў (радкоў) і зменных (зменных) у Excel VBA (хуткі прагляд)
Спампаваць практычны сшытак
Спампаваць гэты практычны сшытак, каб практыкавацца падчас чытання гэтага артыкула.
Злучыць радок і зменную.xlsm
Аб'яднанне радкоў (радкоў) і зменных (зменных) у Excel VBA (пакрокавы аналіз)
Перш за ўсё, давайце паглядзім, як мы можам аб'яднаць радкі (радкі) і зменныя (ы) у VBA крок за крокам.
⧪ Аб'яднанне радкоў (радкоў):
Каб аб'яднаць два ці больш радкоў у VBA , вы можаце выкарыстоўваць як сімвал арыфметычнага складання (+) , так і сімвал амперсанд (& ).
Напрыклад, для аб'яднання радкі “Great Expectations” і “A Tale of Two Cities” з коскай , вы можаце выкарыстоўваць:
7935
Або
3491
Запусціце любы з прыведзеных вышэй кодаў. Ён адлюструе канкатэнаваны вынік, Вялікія надзеі,Аповесць пра два гарады .
⧪ Аб'яднанне зменных(з)
Калі ўсе зменныя ўтрымліваюць радковыя значэнні, тады вы можаце выкарыстоўваць як арыфметычны сімвал складанне (+) , так і сімвал амперсанд (&) .
Але калі яны не выкарыстоўваюцца, то вы можаце выкарыстоўваць толькі сімвал амперсанд (&) для аб'яднання.
Напрыклад, давайце будзем мець дзве зменныя, A і B .
A змяшчае радок, “Аповесць пра два гарады” , а B змяшчае іншы радок, “Сорак правілаў кахання” .
Вы можаце выкарыстоўваць сімвал дадавання (+) і амперсанд (&) , каб аб'яднаць іх.
6026
Або
8505
У абодвух выпадках яны вернуць канкатэнаваны радок.
Але калі A з'яўляецца радком ( “Аповесць пра два гарады” ) і B з'яўляецца цэлым лікам ( 27 ), вы павінны выкарыстоўваць сімвал амперсанд (&) для канкатэнацыі.
6128
Ён верне канкатэнаваны вывад .
Прыклады да Concat enate радкі і зменныя ў Excel VBA (з выкарыстаннем макрасаў, UDF і UserForm)
Мы навучыліся аб'ядноўваць радкі і зменныя з VBA у Excel . На гэты раз мы разгледзім некаторыя прыклады аб'яднання радкоў (радкоў) і зменных (зменных) з дапамогай VBA .
Прыклад 1: распрацоўка макраса для аб'яднання радкоў (радкоў) і зменная(ы) у Excel VBA
Мы навучылісяаб'яднаць радкі і зменныя з VBA . На гэты раз мы распрацуем Макрас для аб'яднання радкоў і зменных некалькіх слупкоў на аркушы.
Тут у нас ёсць набор даных з імёнамі кніг , аўтары і кошты некаторых кніг кнігарні Martin Bookstore.
Давайце распрацуем макрас для аб'яднання слупкоў 1, 2, і 3 набору даных B4:D14 у ячэйцы F4 .
Код VBA будзе:
⧭ Код VBA:
3172
⧭ Вывад :
Запусціце гэты код. Вы атрымаеце слупкі 3 , аб'яднаныя ў дыяпазон F4:F14.
Больш падрабязна: Макрас для Аб'яднанне некалькіх слупкоў у Excel (з UDF і UserForm)
Прыклад 2: Стварэнне вызначанай карыстальнікам функцыі для аб'яднання радка (радкоў) і зменнай (зменных) у Excel VBA
Мы навучыліся распрацоўваць Макрас для аб'яднання некалькіх слупкоў набору даных. На гэты раз мы створым вызначаную карыстальнікам функцыю для аб'яднання радкоў або зменных у Excel.
Поўны код VBA будзе:
⧭ Код VBA:
9746
⧭ Вывад:
Выберыце слупок, у які вы хочаце аб'яднаць дыяпазон і ўвядзіце наступную формулу:
=ConcatenateValues("She","H. Rider Haggard",", ") Яна верне Яна, Х. Райдэр Хагард у якасці вываду.
Зноў увядзіце формулу:
=ConcatenateValues(B4:B14,30,", ") [ Формула масіва . Так што не забывайценацісніце CTRL + SHIFT + ENTER , калі вы не знаходзіцеся ў Office 365 .]
Гэта аб'яднае 30 з усімі значэннямі дыяпазону B4:B14 .
Нарэшце, увядзіце:
=ConcatenateValues(B4:B14,C4:C14,", ") [Зноў Формула масіву . Таму не забывайце націскаць CTRL + SHIFT + ENTER , калі вы не знаходзіцеся ў Office 365 .]
Гэта аб'яднае ўсе значэнні дыяпазону B4: B14 з C4:C14 .
Дадатковая інфармацыя: Як аб'яднаць у Excel (3 прыдатныя спосабы)
Падобныя паказанні:
- Як аб'яднаць тэкст з дзвюх ці больш вочак у адну ячэйку ў Excel (5 метадаў)
- Аб'яднанне радкоў у адну ячэйку ў Excel
- Аб'яднанне лікаў у Excel (4 хуткія формулы)
- Аб'яднанне тэксту у Excel (8 прыдатных спосабаў)
- Як злучыць апостраф у Excel (6 простых спосабаў)
Прыклад 3: распрацоўка Карыстальніцкая форма для аб'яднання радкоў (радкоў) і зменных (зменных) на іншым аркушы ў Excel VBA
Мы навучыліся распрацоўваць Макрас і Вызначаны карыстальнікам функцыя для канкатэнацыі радкоў і значэнняў. Нарэшце, мы распрацуем UserForm для аб'яднання радкоў і значэнняў у патрэбнае месца патрэбнага аркуша.
⧪ Крок 1: Устаўка UserForm
Перайдзіце да Уставіць > Параметр UserForm на панэлі інструментаў VBA , каб уставіць новы UserForm .
⧪ Крок 2: Перацягванне Інструменты длябудзе адкрыта UserForm
UserForm пад назвай UserForm1 разам з Toolbox пад назвай Control .
Навядзіце курсор мышы на панэль інструментаў і перацягніце 2 палі са спісам, 5 тэкставых палёў, 7 цэтлікаў і 1 кнопку CommanButton у форму карыстальніка .
Змяніце адлюстраванне метак , як паказана на малюнку.
Аналагічным чынам змяніце адлюстраванне CommandButton на OK .
⧪ Крок 3: Напісанне кода для TextBox1
Двойчы пстрыкніце па TextBox1 . Адкрыецца прыватная падпрацэдура пад назвай TextBox1_Change . Увядзіце там наступны код.
6494
⧪ Крок 4: Напісанне кода для TextBox3
Аналагічным чынам двойчы пстрыкніце TextBox3 . Адкрыецца іншая прыватная падпрацэдура пад назвай TextBox3_Change . Увядзіце там наступны код.
2929
⧪ Крок 5: Напісанне кода для TextBox4
Таксама двойчы пстрыкніце TextBox3 . Адкрыецца іншая прыватная падпрацэдура пад назвай TextBox3_Change . Увядзіце там наступны код.
9185
⧪ Крок 6: Напісанне кода для ListBox2
Затым двойчы пстрыкніце ListBox2 . Калі адкрыецца Прыватная падпрацэдура пад назвай ListBox2_Click , увядзіце туды гэты код.
3456
⧪ Крок 7: Напісанне кода для CommanButton1
Таксама двойчы пстрыкніце па CommandButton1 . Пасля прыватнай падпрацэдуры пад назвай CommandButton1_Change адкрыецца, устаўце туды наступны код.
5364
⧪ Крок 7: Напісанне кода для запуску UserForm
Зараз з'яўляецца апошнім крокам. Устаўце новы Модуль з панэлі інструментаў VBA і ўстаўце наступны код.
8899
⧪ Крок 8: Запуск UserForm
Ваша UserForm цяпер гатовая да выкарыстання. Каб запусціць яго, абярыце набор даных з працоўнага аркуша (уключаючы Загалоўкі ) і запусціце Макрас пад назвай Run_UserForm .
Загрузіцца UserForm з усімі параметрамі. Выбраны адрас дыяпазону будзе паказаны ў TextBox1 ( B3:D4 тут). Пры жаданні вы можаце змяніць яго. Выбраны дыяпазон на працоўным аркушы зменіцца.
Выберыце слупкі, якія вы хочаце аб'яднаць, са спісу Стоўбцы ў кантак . Тут я выбраў Назва кнігі і Кошт .
Увядзіце Раздзяляльнік . Тут я ўвёў коску ( , ).
Выберыце назву аркуша, куды вы хочаце змясціць аб'яднаны дыяпазон з Злучаны ў спіс. Тут я ўвёў Sheet3 .
(Як толькі вы вылучыце аркуш, ён будзе актываваны, нават калі ён не з'яўляецца актыўным.)
Затым устаўце Месца вываду . Гэта спасылка на першую ячэйку злучанага дыяпазону. Тут я паставіў B3 .
(У той момант, калі вы ўваходзіце ў Месца вываду , будзе абраны дыяпазон вываду).
І, нарэшце, , увядзіцеімя Вывадны загаловак (Загаловак выхаднога дыяпазону). Тут я змясціў Злучаны дыяпазон .
(У той момант, калі вы змясціце Загаловак вываду , будзе ўсталяваны загаловак слупка вываду.)
Націсніце ОК . Вы атрымаеце жаданы вывад у жаданым месцы.
Дадатковая інфармацыя: Як аб'яднаць радок і цэлы лік з дапамогай VBA
Выснова
Такім чынам, гэта некалькі прыкладаў, у якіх вы можаце выкарыстоўваць Excel VBA для канкатэнацыі радкоў і зменных. Спадзяюся, прыклады зрабілі для вас усё даволі ясным. Ў вас ёсць якія-небудзь пытанні? Не саромейцеся пытацца ў нас. І не забудзьцеся наведаць наш сайт ExcelWIKI , каб атрымаць больш паведамленняў і абнаўленняў.
