การลบข้อมูลในเซลล์แบบมีเงื่อนไข

[yangkodza]

Capture.JPG

Code: Select all

Sub clear()
    Range("A1:C10").Select
    Selection.ClearContents
    Range("A1").Select
End Sub

จาก code ดังกล่าว เป็นการลบทั้งหมด
ผมมีข้อมูล A1:C10
แต่ต้องการลบข้อมูลเซลล์ใดๆ ทีมี อักษร ป ล ข
ถ้ามีอักษร ห เราไม่ลบ

ปลข.xlsm

[puriwutpokin]

ปรับเป็น

Code: Select all

Sub clear()
For Each Cell In Range("A1:C10")
If Cell.Value <> "ห" Then Cell.ClearContents
Next Cell
End Sub

[parakorn]

ตัวอย่างโค้ดแบบวนลูปครับ เผื่อมาเป็นประโยค

Code: Select all

Sub CleanData()

            Dim O As Range, p As Integer
            Dim i As String, u As String
            
            With Sheets("Sheet1")
                    
                    For Each O In .Range("a1", .Range("a" & .Rows.Count).End(xlUp))
                                        
                            u = ""
                            For p = 1 To Len(O)
                                    i = Mid(O, p, 1)
                                    If i Like "[ห]" _
                                   Then
                                    u = u & i
                                    End If
                            Next p
                                    O.Offset(0, 0).Value = u
                                    O.Offset(0, 1).Value = u
                                    O.Offset(0, 2).Value = u

                    Next O
                                    
            End With
End Sub

[yangkodza]

โอว มี 2 แบบให้เลือกใช้ แถมไม่ยาวด้วย
ของผมใช้นั่งอัด VBA โดยการสั่ง CTRL+H
ใช้การค้นหา และแทนที่ด้วยค่าว่าง
แต่ code ยาวมากครับ

ขอบคุณสำหรับคำชี้แนะครับ