Snasui Excel Forum

Code: Select all

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

Code: Select all

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

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