วิธีการเชื่อมช่วงของเซลล์เข้าด้วยกัน

ใน Excel 2003 มีวิธีรวมค่าในช่วงเซลล์ด้วยเครื่องหมายจุลภาคคั่นระหว่างโดยไม่ต้องพิมพ์แต่ละอ้างอิงเซลล์เช่น concatenate A86: A90 และ concatenate A193: A198 กับคั่นด้วยเครื่องหมายจุลภาคระหว่างแต่ละเซลล์แต่ละเซลล์; เพื่อรับผลลัพธ์เช่นเดียวกับ

= (A86 & "," A87 & "," & A88 & "," A89 & "," & A90 & "," & A193 & "," & A194 & "," & A195 & "," & A197 & "," & A197 "

เนื่องจากคุณต้องการต่อบล็อกเซลล์ให้พิจารณาใช้ฟังก์ชันที่กำหนดโดยผู้ใช้ต่อไปนี้:

Public Function KonKat(ParamArray rngs()) As String
    Dim r As Range, i As Long, rr As Range, s As String

    For i = LBound(rngs) To UBound(rngs)
        Set rr = rngs(i)
        For Each r In rr
            If s = "" Then
                s = r.Text
            Else
                s = s & "," & r.Text
            End If
        Next r
    Next i

    KonKat = s
End Function

ตัวอย่างเช่น:

ฟังก์ชั่นที่ผู้ใช้กำหนด (UDF) นั้นง่ายต่อการติดตั้งและใช้งาน:

1. ALT-F11 เปิดหน้าต่าง VBE ขึ้นมา
2. ALT-I ALT-M เปิดโมดูลใหม่
3. วางสิ่งต่างๆลงในและปิดหน้าต่าง VBE

หากคุณบันทึกเวิร์กบุ๊ก UDF จะถูกบันทึกไว้ด้วย หากคุณกำลังใช้ Excel รุ่นที่ใหม่กว่าในปี 2003 คุณต้องบันทึกไฟล์เป็น. xlsmแทนที่จะเป็น. xlsx

ในการลบ UDF:

1. เปิดหน้าต่าง VBE ขึ้นด้านบน
2. ล้างรหัสออก
3. ปิดหน้าต่าง VBE

วิธีใช้ UDF จาก Excel:

=KonKat(B1:D1,C3:E3)

หากต้องการเรียนรู้เพิ่มเติมเกี่ยวกับมาโครโดยทั่วไปโปรดดู:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

และ

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

สำหรับข้อมูลเฉพาะของ UDF โปรดดู:

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

สำหรับข้อมูลเฉพาะเกี่ยวกับParamArrayดู:

http://www.tushar-mehta.com/publish_train/xl_vba_cases/1005%20ParamArray.shtml

ต้องเปิดใช้งานแมโครเพื่อให้สิ่งนี้ทำงาน!