ขอทราบวิธีการจับข้อมูลมาต่อกัน

[rachan]

ผมมีข้อมูลเป็นเลขที่ใบส่งของ ตามไฟล์แนบ แต่เวลาทำรายงาน ต้องจับเลขที่ใบส่งในแต่ละวันมารวมไว้ในเซลล์เดียวกัน จะมีสูตรใดที่จับข้อมูลมาต่อกันที่สะดวกกว่าใช้ "&"ได้บ้างใหมครับ ขอบคุณล่วงหน้าครับ

[bank9597]

ผมมีข้อมูลเป็นเลขที่ใบส่งของ ตามไฟล์แนบ แต่เวลาทำรายงาน ต้องจับเลขที่ใบส่งในแต่ละวันมารวมไว้ในเซลล์เดียวกัน จะมีสูตรใดที่จับข้อมูลมาต่อกันที่สะดวกกว่าใช้ "&"ได้บ้างใหมครับ ขอบคุณล่วงหน้าครับ

ถ้าไม่ใช้ & ก็ต้องใช้ vba ในการรวมรหัสครับ เดี๋ยวยังไงรอท่านอื่นมาให้คำตอบอีกครั้งครับ

[cruzz]

1.=A1 & B1
2.=CONCATENATE(A1, B1)
3. รอเซียน VBA ครับ

[ZEROV]

Code: Select all

Function MergeText(ParamArray VarArgs() As Variant) As Variant
    Dim VarArg As Variant
        For Each VarArg In VarArgs
                If TypeName(VarArg) = "Range" Then
                    For Each i In VarArg
                       If Len(i) <> 0 Then MergeText = MergeText & i & ","
                    Next
                 Else
                   If Len(VarArg) <> 0 Then MergeText = MergeText & VarArg & ","
                End If
        Next
    If Not MergeText = blank Then MergeText = Left(MergeText, Len(MergeText) - 1)
End Function

[rachan]

พอมีวิธีใช้สูตรใน Excel มั้ยครับ เพราะใช้ VBA จะค่อนข้างยากน่ะครับ

[joo]

โค๊ดที่คุณ ZEROV แนะนำนั้นใช้งานได้ครับ ลองดูครับวิธีการทำดังนี้
1. เปิดโปรแกรมไฟล์ Merge ขึ้นมาจากนั้นก็กดแป้น Alt+F11 เพื่อเข้าสู้หน้าต่าง Visual Basic
2. ให้ทำการคลิกขวาลงบนพื้นที่ว่างๆ ของ Project – VBAProject
3. เลือก Insert > Module
4. Copy โค๊ดไปวางไว้ที่ฝั่งทางด้านขวา
5. ที่ E3 คีย์ =MergeText(C3:C12)

[bank9597]

ถ้าเป็นสูตร ก็คงต้องใช้ & หรือไม่ก็ CONCATENATE หรือ PROPER ครับ เช่น
ที่ E3 คีย์ =CONCATENATE(C3,",",C4,",",C5,",",C6,",",C7,",",C8,",",C9,",",C10,",",C11,",",C12) เป็นต้น

[snasui]

ถ้าเป็นสูตร ก็คงต้องใช้ & หรือไม่ก็ CONCATENATE หรือ PROPER ครับ เช่น

Proper เอาไว้สำหรับแสดงข้อความภาษาอังกฤษให้ขึ้นต้นคำด้วยอักษรตัวใหญ่ ส่วน & กับ Concatenate เอาไว้เชื่อมข้อความครับ

[rachan]

ขอบคุณทุกความเห็นครับ ลองใช้ VBA แล้ว OK เลยครับ ขอถามเพิ่มเติมว่าถ้าข้อมูลอยู่ใน sheet1 แล้วต้องการแสดงผลที่เซลล์ E3 แต่เป็น sheet2 ต้องเพิ่มเติมสูตรอย่างไรครับ เพราะลองใช้อ้างอิงข้ามชีตแล้วไม่ได้ครับ ขอบคุณครับ

[joo]

ลองแบบนี้ดูครับที่ซีท2 E3 คีย์ =MergeText(Sheet1!C3:C12) หากไม่ใช่ลองแนบไฟล์มาดูกันอีกทีครับ

[rachan]

ผมลองทำดูแล้วปรากฎว่าได้ผลกลายเป็น text ตามข้างล่าง

=mergetext(Aug.13!F6:F14)

เหมือนกับว่าสูตรจะใช้ไม่ได้กับการอ้างอิงตามปกตินะครับ รบกวนผู้รู้ช่วยแก้ให้ด้วยครับ

[joo]

ลองแนบไฟล์ที่ติดปัญหามาดูกันหน่อยครับ

[rachan]

ผมแนบไฟล์มาให้และจากการที่ผมลองทำดู ใน sheet1 ที่ E3 ใช้สูตรที่คุณ Joo แล้ว OK แต่พอที่ sheet2 เซลล์ D3 ใช้สูตรโดยอ้างข้อมูลชุดเดียวกันจาก sheet1 ค่าที่ออกมาเป็น #Name รบกวนช่วยดูว่าผิดตรงใหนครับ (เวลาทำงานจริง ต้องแยกผลลัพท์ไว้อีกชีทเพื่อส่งรายงานครับ)

[joo]

ผมทดสอบแล้วก็แสดงได้ตามปกติไม่เกิดค่า Error ใดๆ ครับ

[rachan]

ลองทำใหม่ได้แล้วครับ แต่ยังไม่ทราบสาเหตุว่าครั้งก่อนๆทำแล้วขึ้นเป็น#Name หรือบางทีก็ขึ้น =MergeText(Sheet1!C3:C12) หรือเพราะ Macro Disable/Enable หรือเปล่าก็ไม่ทราบ แต่ก็ขอบคุณคุณ ZEROV,คุณ joo และทุกท่าน ที่ช่วยแก้ปัญหาให้ครับ