Snasui Excel Forum

snasui wrote: ควรวาง Code ให้แสดงเป็น Code เพื่อจะได้สะดวกในการอ่านและ Copy ไปทดสอบ ดูวิธีการที่นี่ครับ viewtopic.php?f=3&t=1187

สำหรับที่ถามมานั้น ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub test()
    Dim tg As Range
    Dim srAll As Range
    Dim tgAll As Range
    Dim m As Long
    With Sheets("Sheet1")
        Set srAll = .Range("a4", .Range("a" & Rows.Count).End(xlUp))
    End With
    
    With Sheets("Sheet2")
        Set tgAll = .Range("a4", .Range("a" & Rows.Count).End(xlUp))
    End With
    
    For Each tg In tgAll
        If Application.CountIf(srAll, tg) > 0 Then
            m = Application.Match(tg, srAll, 0)
            tg.Offset(0, 1).Resize(1, 8).Value = srAll(m).Offset(0, 1).Resize(1, 8).Value
        End If
    Next tg
End Sub

snasui wrote: ช่วยแนบ Code แนบไฟล์ตัวอย่างที่ลองทำเอาแล้วไม่สำเร็จมาด้วย จะได้ช่วยดูต่อไปจากนั้นครับ

สำหรับคำว่า "ครับ" ใช้ตรง ๆ ได้เลยครับ ไม่ควรใช้เป็น "อะครับ" ครับ

Sub test()
    Dim tg As Range
    Dim srAll As Range
    Dim tgAll As Range
    Dim m As Long
    With Sheets("Sheet1")
        Set srAll = .Range("a4", .Range("a" & Rows.Count).End(xlUp))
    End With
    
    With Sheets("Sheet2")
        Set tgAll = .Range("a4", .Range("a" & Rows.Count).End(xlUp))
    End With
    
    For Each tg In tgAll
        If Application.CountIf(srAll, tg) > 0 Then
            m = Application.Match(tg, srAll, 0)
            tg.Offset(0, 1).Resize(1, 8).Value = srAll(m).Offset(0, 1).Resize(1, 8).Value
        End If
    Next tg
End Sub

snasui wrote: ไม่เข้าใจบรรทัดใดบ้าง ให้ยกมาถามเฉพาะบรรทัดนั้นครับ

For Each tg In tgAll
        If Application.CountIf(srAll, tg) > 0 Then
            m = Application.Match(tg, srAll, 0)
            tg.Offset(0, 1).Resize(1, 8).Value = srAll(m).Offset(0, 1).Resize(1, 8).Value
        End If
    Next tg

        Set srAll = .Range("a4", .Range("a" & Rows.Count).End(xlUp))

        Set tgAll = .Range("a4", .Range("a" & Rows.Count).End(xlUp))

peam55 wrote:Set srAll = .Range("a4", .Range("a" & Rows.Count).End(xlUp))

peam55 wrote:For Each tg In tgAll
        If Application.CountIf(srAll, tg) > 0 Then
            m = Application.Match(tg, srAll, 0)
            tg.Offset(0, 1).Resize(1, 8).Value = srAll(m).Offset(0, 1).Resize(1, 8).Value
        End If
    Next tg

snasui wrote: จาก

peam55 wrote:Set srAll = .Range("a4", .Range("a" & Rows.Count).End(xlUp))

เป็นการกำหนดให้ตัวแปร srAll มีค่าเริ่มจากเซลล์ a4 จนถึงเซลล์ a บรรทัดสุดท้ายที่มีข้อมูล

จาก

peam55 wrote:For Each tg In tgAll
        If Application.CountIf(srAll, tg) > 0 Then
            m = Application.Match(tg, srAll, 0)
            tg.Offset(0, 1).Resize(1, 8).Value = srAll(m).Offset(0, 1).Resize(1, 8).Value
        End If
    Next tg

เป็นการ Loop ตัวแปร tg ในตัวแปร tgAll ไปทีละค่า

If Application.CountIf(srAll, tg) > 0 Then เป็นการตรวจสอบว่ามีค่า tg อยู่ในตัวแปร srAll หรือไม่

m = Application.Match(tg, srAll, 0) เป็นการกำหนดค่าตัวแปร m ให้มีค่าเท่ากับลำดับที่พบตัวแปร tg ในตัวแปร srAll

tg.Offset(0, 1).Resize(1, 8).Value = srAll(m).Offset(0, 1).Resize(1, 8).Value เป็นการกำหนดให้พื้นที่เซลล์ที่สัมพันธ์กับตัวแปร tg เท่ากับค่าที่สัมพันธ์กับตัวแปร srAll ลำดับที่ m

ค่าที่สัมพันธ์ดังกล่าวคือ ให้ขยับตัวแปร tg ไปด้านขวา 1 คอลัมน์แล้วขยายไปด้านขวา 8 คอลัมน์ เพื่อรองรับข้อมูลต้นทางที่มีขนาดเดียวกัน

.Offset(0, 1) เป็นการขยับไปทางขวา 1 คอลัมน์

.Resize(1, 8) เป็นการขยายไปทางขวา 8 คอลัมน์