วิธีการต่อสตริงใน vba (พร้อมตัวอย่าง)

คุณสามารถใช้วิธีต่อไปนี้เพื่อเชื่อมสตริงใน VBA:

วิธีที่ 1: เชื่อมต่อสองสายเข้าด้วยกัน

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

ตัวอย่างนี้จะเชื่อมสตริงในเซลล์ A2 และ B2 และแสดงผลลัพธ์ในเซลล์ C2

วิธีที่ 2: เชื่อมต่อสองสายด้วยตัวคั่น

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

ตัวอย่างนี้จะเชื่อมสตริงในเซลล์ A2 และ B2 ด้วยช่องว่างระหว่างสตริงและแสดงผลลัพธ์ในเซลล์ C2

วิธีที่ 3: เชื่อมต่อสองคอลัมน์ด้วยตัวคั่น

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

ตัวอย่างนี้จะเชื่อมสตริงในช่วง A2:A6 และ B2:B6 ด้วยเครื่องหมายขีดล่างระหว่างสตริง และแสดงผลลัพธ์ในเซลล์ C2:C6

ตัวอย่างต่อไปนี้แสดงวิธีการใช้แต่ละวิธีในทางปฏิบัติ

ตัวอย่างที่ 1: เชื่อมต่อสองสายเข้าด้วยกัน

เราสามารถสร้างแมโครต่อไปนี้เพื่อเชื่อมสองสตริงเข้าด้วยกัน:

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

โปรดทราบว่าสตริงจากเซลล์ A2 และ B2 ได้รับการต่อเข้ากับเซลล์ C2

ตัวอย่างที่ 2: เชื่อมต่อสองสตริงด้วยตัวคั่น

เราสามารถสร้างแมโครต่อไปนี้เพื่อเชื่อมสองสตริงเข้าด้วยกันโดยมีช่องว่างเป็นตัวคั่น:

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

โปรดทราบว่าสตริงในเซลล์ A2 และ B2 ได้รับการต่อด้วยช่องว่างระหว่างกัน และผลลัพธ์จะแสดงในเซลล์ C2

ตัวอย่างที่ 3: เชื่อมต่อสองคอลัมน์ด้วยตัวคั่น

เราสามารถสร้างแมโครต่อไปนี้เพื่อเชื่อมสตริงออกเป็นสองคอลัมน์โดยมีขีดล่างเป็นตัวคั่น:

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

โปรดทราบว่าสตริงในช่วง A2:A6 และ B2:B6 ได้รับการต่อกันด้วยเครื่องหมายขีดล่างระหว่างสตริงเหล่านั้น และผลลัพธ์จะแสดงในช่วง C2:C6

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีนับจำนวนอักขระในสตริง
VBA: วิธีตรวจสอบว่าสตริงมีสตริงอื่นหรือไม่
VBA: วิธีนับเซลล์ด้วยข้อความเฉพาะ