หาค่าตัวเลข 10หลัก จาก sheet ทั้งหมดที่มีใน file

[pichetppp]

หาค่าตัวเลข 10หลัก จาก sheet ทั้งหมดที่มีใน file
สวัสดีครับอาจารย์Excel ทุกท่าน
ผมยังไม่เก่งกับการใช้งาน Excel เลยอยากทราบการใช้งานแบบที่ใช้งานได้ง่ายขึ้นนะครับ
คือ ต้องการหาเลข 10หลักที่มีอยู่ใน sheet ทั้งหมดในเอกสาร และนำมาแสดงใน Sheet
ที่สั่งการ จะทำได้ไหมครับ

[snasui]

จากตัวอย่างข้อมูลในไฟล์ที่แนบมา ผมเขียนตัวอย่าง Code มาให้ตามด้านล่างมาให้ลองปรับใช้ ดูไฟล์แนบประกอบครับ

Code: Select all

Sub CollectData()
Dim r As Range, r1 As Range, r2 As Range
Dim whs As Worksheet
Application.ScreenUpdating = False
For Each whs In Worksheets
    If whs.Name <> "ผลลัพธ์" Then
            Set r = Worksheets("ผลลัพธ์").Range("A" & Rows.Count) _
                .End(xlUp).Offset(1, 0)
            With whs
                Set r1 = .Range("B2", .Range("C" & Rows.Count).End(xlUp))
                Set r2 = .Range("F2", .Range("G" & Rows.Count).End(xlUp))
            End With
            If r1.Range("A1") <> "" Then
                r1.Copy
                r.PasteSpecial xlPasteValues
            End If
            Set r = Worksheets("ผลลัพธ์").Range("A" & Rows.Count) _
                .End(xlUp).Offset(1, 0)
            If r2.Range("A1") <> "" Then
                r2.Copy
                r.PasteSpecial xlPasteValues
            End If
        End If
Next whs
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

[pichetppp]

ขอบคุณมากๆครับ
ผมดีใจจังที่มีวิธีการแบบนี้เพราะต้องใช้หาข้อมูลมากกว่า 40-50 หน้าหรือมากกว่านั้น
ผมจะลองศึกษาดูและถ้าติดตรงไหนจะรบกวนอีกครั้งนะครับ
ดีใจมากเลย
ขอบคุณมากๆจริงๆ