วิธีเชื่อมต่อเฉพาะเซลล์ที่มองเห็นได้ใน Excel

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

เชื่อมเฉพาะค่าของเซลล์ที่มองเห็นได้ให้เป็นเซลล์เดียวด้วยรหัส VBA

เชื่อมเฉพาะค่าของเซลล์ที่มองเห็นได้ให้เป็นเซลล์เดียวด้วยรหัส VBA

คุณสามารถสร้าง a ฟังก์ชันที่ผู้ใช้กำหนด ในการแก้ปัญหานี้โปรดทำตามขั้นตอนต่อไปนี้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: เชื่อมต่อเฉพาะค่าเซลล์ที่มองเห็นได้:

Private Function ConcatenateVisible(xRg As Variant, sptChar As String)
'Updateby Extendoffice
    Dim rg As Range
    For Each rg In xRg
        If (rg.EntireRow.Hidden = False) And (rg.EntireColumn.Hidden = False) Then
            ConcatenateVisible = ConcatenateVisible & rg.Value & sptChar
        End If
    Next
    ConcatenateVisible = Left(ConcatenateVisible, Len(ConcatenateVisible) - Len(sptChar))
End Function

3. จากนั้นบันทึกและปิดรหัสนี้กลับไปที่แผ่นงานและป้อนสูตรนี้: = concatenatevisible (B2: B10, "-") (B2: B10 คือช่วงข้อมูลที่กรองแล้วที่คุณต้องการรวม "-” เป็นตัวคั่นเพื่อแยกค่าที่รวมกันคุณสามารถเปลี่ยนค่าได้ตามต้องการ) ลงในเซลล์ว่างที่คุณต้องการค้นหาผลลัพธ์ที่รวมกันแล้วกด เข้าสู่ กุญแจสำคัญในการรับผลลัพธ์ ดูภาพหน้าจอ:

หมายเหตุ: ด้วยฟังก์ชันที่กำหนดโดยผู้ใช้นี้ผลลัพธ์ที่รวมจะถูกเปลี่ยนแปลงด้วยข้อมูลที่กรองของคุณแบบไดนามิกเช่นหากคุณกรองผลิตภัณฑ์ของ KTO ผลลัพธ์ที่รวมของคุณจะถูกเปลี่ยนเป็นข้อมูลที่กรองใหม่ ดูภาพหน้าจอ: