การ Update data with multiple items with VBA

[apichat.ti]

สวัสดีครับ ผมได้ตัวอย่างมาจาก Excel Tips and Tricks by Santipong Nasui แต่ต้องการ update ค่าที่เป็นข้อความ อยากให้ช่วยแนะนำด้วยครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

'Other code
With Sheets("sheet3")
    For Each rt In .Range("b2", .Range("b" & .Rows.Count).End(xlUp))
        If d.exists(rt.Value) Then
            t = Split(d.Item(rt.Value), "|")
            rt.Offset(0, 1).Value = CLng(t(0))
            rt.Offset(0, 2).Value = CLng(t(1))
            rt.Offset(0, 3).Value = CLng(t(2))
            rt.Offset(0, 4).Value = t(3)
        End If
    Next rt
End With
'Other code