Code Excel VBA ขึ้นข้อความ Error ว่า Overflow

[niwat2811]

Code Excel VBA ขึ้นข้อความ Error ว่า Overflow จากไฟล์ตัวอย่างที่แนบมานี้ Code VBA สามารถรันได้เป็นปกติ
แต่พอนำไปใช้กับข้อมูลจริง ซึ่งมีประมาณ 60,000 แถว ขึ้นฟ้องว่า Overflow ไม่ทราบว่าควรปรับ Code อย่างไรดีครับ

Code: Select all

Sub test1()
Dim r As Range
For Each r In Range("B1", Range("B" & Rows.Count).End(xlUp))
    If r.Offset(0, 11) = "" And r.Offset(0, 10) = "" And r.Offset(0, 9) = "" And r.Offset(0, 8) = "" And r.Offset(0, 7) = "" And r.Offset(0, 6) = "" Then        
        r.Offset(0, 2).Resize(1, 4).Copy r.Offset(0, 8)
        r.Offset(0, 2).Resize(1, 4).Clear
    End If
Next r
End Sub

Error ตรง If r.Offset(0, 11) = "" And r.Offset(0, 10) = "" And r.Offset(0, 9) = "" And r.Offset(0, 8) = "" And r.Offset(0, 7) = "" And r.Offset(0, 6) = "" Then

[snasui]

ผมทดสอบ Run ที่ 82791 บรรทัด ไม่พบว่า Error ครับ

[niwat2811]

ขอบคุณครับ นั่งหาสาเหตุอยู่เป็นเพราะว่า ผมได้แปลงไฟล์จาก PDF เพื่อให้เป็น Database บน Excel
ซึ่งได้พบสาเหตุของเป็นหาแล้วคือว่า บาง Cells ที่แปลงออกมา Format มันไม่ถูกต้องเลยทำให้เกิด Error ครับ
จึงได้จัดรูปแบบของ Format ใหม่ แล้วได้ลอง Run Code ดูอีกทีไม่พบปัญหาอีกแล้วครับ
อย่างไรก็ต้องขอขอบคุณท่านอาจารย์ที่ช่วยทดสอบให้ด้วยครับ