Мазмұны
Excel бағдарламасында біріктіру – бір жолды құру үшін екі жолды біріктіру процесі. Қарапайым сөзбен айтқанда, егер бір бағанда аттары бар кесте болса, екіншісінде тегі болса, біз оларды бір секундта бір ұяшыққа біріктіру және біріктіру үшін біріктіру процедурасын пайдалана аламыз. Excel бағдарламасында бізде осы біріктіруді орындауға мүмкіндік беретін CONCATENATE () деп аталатын функция бар. Дегенмен, VBA ішінде функцияның бұл түріне рұқсат етілмейді. VBA кодында CONCATENATE () пайдалана алмаймыз, себебі ол жұмыс істемейді. Өйткені VBA -де кірістірілген функциялар жоқ және біз электрондық кесте функцияларын пайдалана алмаймыз. Сонымен, бұл сабақ сізге Excel бағдарламасында бірнеше ұяшықтарды, бағандарды және жолдарды біріктіру үшін VBA біріктіруді қалай пайдалану керектігін көрсетеді.
Тәжірибе жұмыс кітабын жүктеп алу
Осы тәжірибе жұмыс кітабын жүктеп алыңыз. осы мақаланы оқып жатқанда жаттығу жасау.
VBA Concatenate Function.xlsm
VBA Concatenate функциясына кіріспе
Бізде бар Excel бағдарламасында VBA Concatenate үшін кірістірілген функция жоқ екенін айтты, бірақ біз оны әртүрлі жолдарды операторлармен біріктіру арқылы функция ретінде жұмыс істей аламыз. Мұнда біз оператор ретінде (&) амперсанды қолданамыз.
⟴ Синтаксис
String1 = “ Бірінші мәтін”
2-жол = “ Екінші мәтін”
⟴ Қайтару мәні
Қайтару_мәні = Жол1 & String2
4 VBA конкатенатының әртүрлі қолданылуыExcel бағдарламасындағы функция
Мұнда біріктіру процесін орындау үшін 4 түрлі тәсілді қолданамыз. Бұған қол жеткізу үшін біз әртүрлі операторларды VBA кодымен бірге қолданамыз.
1. VBA Concatenate
көрсетілгендей ұяшықтарды біріктіру үшін амперсанды (&) операторын пайдаланыңыз. Төмендегі скриншотта бізде бір бағанда аттары және екіншісінде тегі бар екі бағанды деректер жинағы бар. Екі бағанды біріктіру арқылы біз енді бүкіл атауларды ала аламыз. VBA біріктіруге арналған ешқандай кірістірілген әдістер болмағандықтан, біз төмендегі нұсқауларда егжей-тегжейлі көрсетілген (&) операторын қолданамыз.
1-қадам:
- Ең алдымен Alt + F11 пернесін басыңыз. Макроқосылған жұмыс парағы.
- Одан кейін
- Модуль таңдаңыз.
2-қадам:
- Екі ұяшықты бір ұяшыққа біріктіру үшін келесі VBA
2163
көшіріп, қойыңыз. Мұнда
- Жол1 = Ұяшықтар(5, 2). Мән - бірінші ұяшық орны B5 , 5, және баған 2 .
- 2-жол = Ұяшықтар(5, 3). Мән - екінші ұяшық орны C5 , 5-жол, және 3 бағаны.
- Ұяшықтар(5, 5).Мән = Жол1 & Жол2 - нәтиже ұяшығының орны E5 , жол 5 және 5 бағаны.
- Жол1 & 2-жол амперсанд арқылы қосылған екі жол (&)
Қадам3:
- Сақтау және бағдарламаны іске қосу үшін F5 пернесін басыңыз.
Сондықтан нәтижесін аласыз. E5 ағымдағы жұмыс парағының ұяшығы.
4-қадам:
- Ағымдағы жұмыс парағы үшін қадамдарды орындаңыз және қайталаңыз. ұяшықтарды демалдырып, төмендегі суретте көрсетілгендей нәтижелерді алыңыз.
Ескертпе. VBA<2 іске қосу үшін> кодын пайдалансаңыз, Excel файлыңыз Excel Macro-Enabled Worksheet (xlsm.) пішімінде сақталғанына көз жеткізіңіз.
Толығырақ оқу: Excel бағдарламасында VBA StrComp пайдалану жолы ( 5 Жалпы мысалдар)
2. VBA конкатенатында ұяшықтарды біріктіру үшін Plus (+) операторын пайдаланыңыз
Алдыңғы бөлімде сипатталғандай, біз амперсанды (&) қолдандық. ;) ұяшықтар жолдарын қосу операторы. (&) операторының орнына плюс (+) таңбасын қолдану арқылы бірдей нәтижеге қол жеткізуге болады. Оны орындау үшін мына қадамдарды орындаңыз.
1-қадам:
- Макросты ашу үшін Excel бағдарламасында Alt + F11 пернелерін басыңыз.
- Кірістіру және
- Бағдарлама бетін ашқаннан кейін таңдаңыз. келесі VBA
8255
Мұнда,
- Ұяшықтар(5, 5). Мән = Жол1 + Жол2 - бұл жол амперандтың орнына (+) плюс белгісін қолданамыз (&)
2-қадам :
- Қоюдан кейін сақтаңыз және бағдарламаны іске қосу үшін F5 басыңыз. Нәтижесінде сіз ұяшықтағы өзгерісті көресіз E5 .
- Түпкілікті нәтижелерді алу үшін алдыңғы қадамдарды қайта орындау арқылы қажетті ұяшықтарды толтырыңыз.
Толығырақ оқу: VBA StrConv функциясын пайдалану жолы (5 мысал)
Ұқсас Оқылымдар:
- Excel бағдарламасында VBA-да қосалқыға қалай қоңырау шалу керек (4 мысал)
- VBA функциясында мәнді қайтару (екеуі де Массив және массив емес мәндер)
- Excel бағдарламасында VBA DIR функциясын пайдалану жолы (7 мысал)
- Excel бағдарламасында VBA UCASE функциясын пайдалану ( 4 мысал)
- VBA жүйесінде InStr функциясын пайдалану жолы (3 мысал)
3. VBA біріктіру арқылы бірнеше бағандарды қосу
Алдыңғы екі тәсілде біз екі ұяшықты біріктіру жолын талқыладық. Дегенмен, егер біз оны бүкіл бағанға қолданғымыз келсе, бір-бірлеп қосу көп уақытты алады. Біз сізге бұл үшін VBA коды арқылы бірнеше бағандарды қалай қосу керектігін үйретеміз.
1-қадам:
- Біріншіден, Макросты ашу үшін Alt + F11
- <ішінен Модуль таңдаңыз. 1> қойындыны
- енгізу>Содан кейін келесі VBA
2478
осы жерге,
- бар Жұмыс парақтары(“Sheet3”) – ағымдағы жұмыс парағыңыздың аты.
- Соңғы қатар = .Ұяшықтар(.Rows.Count, “B”).End(xlUp).Row – бұл бірінші баған атауы.
- .Ауқымымен(“E5:E” & LastRow) нәтиже қайтаратын ұяшық ауқымы.
- .Формула = “= B5&C5” – қосылатын формуладиапазонның бірінші ұяшығы.
2-қадам:
- Содан соң, сақтап, <түймесін басыңыз. 1>F5 бағдарламаны іске қосу үшін.
Нәтижесінде сіз нәтижелерді толығымен бағанда аласыз.
Толығырақ: Excel бағдарламасында VBA Rnd пайдалану жолы (4 әдіс)
4. VBA конкатенатын пайдаланып бірнеше жолдарға қосылу
Бірнеше бағандарды қосумен қатар, біз де қолдана аламыз. VBA бірнеше жолды біріктіру коды. Төмендегі скриншотта көрсетілгендей, біз үш жолды бір жолға біріктіргіміз келеді. Жолдарды біріктіру үшін төмендегі қарапайым қадамдарды орындаңыз.
1-қадам:
- Excel бағдарламасында Макросты белсендендіру үшін, Alt + F11 пернесін басыңыз.
- Одан кейін Кірістіру
- біріктіру үшін Модуль опциясын таңдаңыз. жолдарға VBA
8703
осы жерге қойыңыз,
- Set SourceRange = Range(“B5:D5”) бастапқы ұяшық диапазоны болып табылады.
- Ауқым («B8»).Мән = Трим(i) - қайтарылатын ұяшық нөмірі.
2-қадам:
- Соңында бағдарламаны сақтаңыз және іске қосу үшін F5 пернесін басыңыз.
Осылайша , үш жолды біріктіретін соңғы нәтиже B8 ұяшығында көрсетіледі.
Толығырақ: Қалай Excel бағдарламасындағы жоғарғы жолдарды көрсету (7 әдіс)
Қорытынды
Қорытындылау үшін, бұл постта VBA біріктіруді пайдалану туралы нақты нұсқаулар берілген деп үміттенемін. Excel әртүрлі жолдармен. Барлығыбұл әдістерді үйреніп, деректеріңізде пайдалану керек. Тәжірибе кітабын қарап шығыңыз және жаңа біліміңізді қолданыңыз. Сіздің мейірімді қолдауыңыздың арқасында біз осындай семинарлар құруды жалғастырамыз.
Сұрақтарыңыз болса, бізге хабарласудан тартынбаңыз. Төмендегі пікірлер аймағында бізге ойыңызды білдіріңіз.
Exceldemy Команда сұрақтарыңызға үнемі жауап береді.