Excel-də birləşmə iki sətirin bir sətir yaratmaq üçün birləşdirilməsi prosesidir. Sadə dillə desək, əgər bir sütunda adlar, digərində isə soyadlar olan cədvəlimiz varsa, onları bir saniyə ərzində bir xanada birləşdirib birləşdirmək üçün birləşmə prosedurundan istifadə edə bilərik. Excel-də bu birləşməni etməyə imkan verən CONCATENATE () adlı funksiyamız var. Lakin VBA -də bu tip funksiyaya icazə verilmir. VBA kodunda CONCATENATE () işləməyəcəyi üçün istifadə edə bilmərik. Çünki VBA daxili funksiyalar yoxdur və biz cədvəl funksiyalarından istifadə edə bilmirik. Beləliklə, bu dərs sizə Excel-də çoxlu xanaları, sütunları və sətirləri birləşdirmək üçün VBA concatenate-dən necə istifadə edəcəyinizi nümayiş etdirəcək.

Təcrübə İş Kitabını endirin

Bu təcrübə iş kitabını endirin bu məqaləni oxuyarkən məşq etmək.

VBA Concatenate Function-a giriş

Bizdə olduğu kimi qeyd etdi ki, Excel-in VBA Concatenate üçün daxili funksiyası yoxdur, lakin biz müxtəlif sətirləri operatorlarla birləşdirərək onun funksiya kimi işləməsini təmin edə bilərik. Burada operatorumuz kimi (&) işarəsindən istifadə edirik.

⟴ Sintaksis

String1 = “ İlk Mətn”

String2 = “ İkinci Mətn”

⟴ Qaytarma Dəyəri

Geri_dəyər = String1 & String2

VBA Concatenate-in 4 Fərqli İstifadəsiExcel-də funksiya

Burada birləşmə prosesini yerinə yetirmək üçün 4 fərqli yanaşmadan istifadə edəcəyik. Biz buna nail olmaq üçün VBA kodu ilə birlikdə müxtəlif operatorları tətbiq edəcəyik.

1. VBA Concatenate

-də göstərildiyi kimi Hüceyrələrə Qoşulmaq üçün İşaret (&) Operatorundan istifadə edin. aşağıdakı ekran görüntüsündə bir sütunda adlar, digərində isə soyadlar olan iki sütunlu məlumat kolleksiyamız var. İki sütunu birləşdirərək, indi bütün adları əldə edə bilərik. VBA birləşdirmə üçün daxili metodlara malik olmadığına görə, biz aşağıdakı təlimatlarda ətraflı göstərildiyi kimi (&) operatorundan istifadə edəcəyik.

Addım 1:

• İlk olaraq, Alt + F11 düymələrini basın. Makro ilə aktivləşdirilən iş vərəqi.
• Sonra klikləyin
• Modulu seçin.

Addım 2:

• İki xananı birinə birləşdirmək üçün aşağıdakı VBA

7826

-ni kopyalayın və yapışdırın Burada,

• String1 = Cells(5, 2). Value ilk xana yeridir B5 , sıra 5, və sütun 2 .
• String2 = Cells(5, 3). Value ikinci xana yeridir C5 , sətir 5, və sütun 3 .
• Hüceyrələr(5, 5).Dəyər = String1 & String2 nəticə xanasının yeri E5 , sətir 5 və sütun 5 .
• String1 & String2 ampersand ilə birləşdirilən iki sətirdir (&)

Addım3:

• Saxla və proqramı işə salmaq üçün F5 düyməsini basın.

Ona görə də -də nəticə əldə edəcəksiniz. E5 cari iş vərəqinizin xanası.

Addım 4:

• Addımları izləyin və təkrarlayın hüceyrələri istirahət edin və aşağıdakı şəkildə göstərildiyi kimi nəticələri əldə edin.

Ətraflı oxuyun: Excel-də VBA StrComp-dan necə istifadə etməli ( 5 Ümumi Nümunələr)

2. VBA Concatenate-də Hüceyrələrə Qoşulmaq üçün Plus (+) Operatorundan istifadə edin

Əvvəlki bölmədə təsvir olunduğu kimi, biz (&) işarəsindən istifadə etdik. ;) xana sətirlərini birləşdirən operator. Eyni nəticəni ampersand (&) operatoru əvəzinə üstəgəl (+) işarəsini tətbiq etməklə əldə edə bilərsiniz. Bunu etmək üçün bu addımları yerinə yetirin.

Addım 1:

• Makro -ni açmaq üçün Excel-də Alt + F11 düymələrini basın.
• Daxil et və seçin
• Proqram səhifəsini açdıqdan sonra onu yapışdırın. aşağıdakı VBA

3577

Burada,

• Cells(5, 5).Dəyər = String1 + String2 bu sətirdir biz ampersand əvəzinə (+) işarəsindən istifadə edirik (&)

Addım 2 :

• Yapışdırdıqdan sonra proqramı işə salmaq üçün yadda saxlayın və F5 düyməsinə basın. Nəticədə, hüceyrədə dəyişiklik görəcəksiniz E5 .

• Yekun nəticələri əldə etmək üçün əvvəlki addımları yenidən yerinə yetirərək tələb olunan xanaları doldurun.

Ətraflı oxuyun: VBA StrConv funksiyasından necə istifadə etməli (5 Nümunə)

Oxşar Oxumalar:

• Excel-də VBA-da Sub-a Necə Zəng etməli (4 Nümunə)
• VBA Funksiyasında Dəyəri qaytarın (hər ikisi) Massiv və Qeyri Massiv Dəyərləri)
• Excel-də VBA DIR funksiyasından necə istifadə etməli (7 Nümunə)
• Excel-də VBA UCASE funksiyasından istifadə edin ( 4 Nümunə)
• VBA-da InStr Funksiyasından Necə İstifadə Edilir (3 Nümunə)

3. VBA Concatenate istifadə edərək Çoxlu Sütunlar əlavə edin

Əvvəlki iki yanaşmada iki hüceyrəni necə birləşdirməyi müzakirə etdik. Ancaq onu bütün sütuna tətbiq etmək istəsək, bir-bir əlavə etmək çox vaxt aparacaq. Bunun üçün VBA kodu ilə çoxlu sütunları necə əlavə etməyi sizə öyrədəcəyik.

Addım 1:

• İlk olaraq, Makro açmaq üçün Alt + F11
• <-dan Modulu seçin. 1>Daxil edin tab
• Sonra aşağıdakı VBA

1188

Buraya,

• İlə yapışdırın Worksheets(“Sheet3”) cari iş vərəqinizin adıdır.
• LastRow = .Cells(.Rows.Count, “B”).End(xlUp).Row birinci sütunun adı.
• .Range ilə(“E5:E” & LastRow) nəticə qaytarılan xana aralığıdır.
• .Formula = “= B5&C5” qoşulmaq üçün düsturdurdiapazonun ilk xanası.

Addım 2:

• Sonra, nəhayət, yadda saxla və F5 proqramı işə salmaq üçün.

Nəticədə siz nəticələri tamamilə sütunda əldə edəcəksiniz.

Daha çox oxuyun: Excel-də VBA Rnd-dən necə istifadə etməli (4 Metod)

4. VBA Concatenate-dən istifadə edərək Çoxlu Sıralara Qoşulun

Birdən çox sütun əlavə etməklə yanaşı, biz də tətbiq edə bilərik VBA çox cərgəni birinə birləşdirmək üçün kod. Aşağıdakı ekran görüntüsündə göstərildiyi kimi, biz üç sıranı birinə birləşdirmək istəyirik. Sətirləri birləşdirmək üçün aşağıdakı sadə addımları yerinə yetirin.

Addım 1:

• Excel-də Makro i aktivləşdirmək üçün, Alt + F11 düyməsini basın.
• Sonra Daxil edin
• Birləşdirmək üçün Modulu seçin. sətirlərə VBA

9885

Buraya yapışdırın,

• Set SourceRange = Range(“B5:D5”) mənbə xana diapazonudur.
• Range(“B8”).Dəyər = Trim(i) qaytarılan xana nömrəsidir.

Addım 2:

• Nəhayət, proqramı yadda saxlayın və işə salmaq üçün F5 basın.

Beləliklə , üç sıranı birləşdirən yekun nəticə B8 xanasında göstəriləcək.

Ətraflı oxuyun: Necə etmək olar Excel-də yuxarı sətirləri göstərin (7 üsul)

Nəticə

Xülasə etmək üçün ümid edirəm ki, bu yazıda VBA concatenate-dən necə istifadə olunacağına dair aydın təlimatlar verilmişdir. Excel müxtəlif yollarla. Hamısıbu üsullar öyrənilməli və məlumatlarınızda istifadə edilməlidir. Təcrübə kitabını araşdırın və əldə etdiyiniz yeni bilikləri istifadə edin. Sizin mehriban dəstəyinizə görə, biz bu kimi seminarlar yaratmağa davam etməkdə həvəsliyik.

Hər hansı sualınız olarsa, bizimlə əlaqə saxlamaqdan çəkinməyin. Zəhmət olmasa, aşağıdakı şərh bölməsində nə düşündüyünüzü bizə bildirin.

Exceldemy Komanda daim suallarınıza cavab verəcək.