ลบข้อความที่เป็นค่าศูนย์

[kongnatthawut]

ขอคำชี้แนะครับ คือผมต้องการลบข้อความที่column : C โดยเมื่อ column : D มีค่าค่าเป็น0 ขอคำชี้แนะ ปรับ Code ให้ที่ครับ

Sub Project1()
Range("D1").Select
Do Until Selection.Value = ""
If Selection.Value = "0" Then
Selection.ClearContents '.Delete
Else
Selection.Offset(1, 0).Select
End If
Loop
End Sub

[snasui]

การโพสต์ Code กรุณาโพสต์ให้แสดงเป็น Code ดูตัวอย่างได้ที่กฎการใช้บอร์ดข้อ 5 ด้านบนครับ

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

Code: Select all

Sub Project1()
    Range("D1").Select
    Do Until Selection.Value = ""
        If Selection.Value = 0 Then
            Selection.Offset(0, -1).ClearContents '.Delete
        End If
        Selection.Offset(1, 0).Select
    Loop
End Sub

[kongnatthawut]

ใช้ได้แล้วครับ ขอบคุณมากครับอาจารย์


และต้องขออภัยในข้อผิดพลาดเรื่องการโพส Code ด้วยครับ