Removing Japanese characters from workbook

[tvsramesha]

Hi All -
Thanks in advance, I'm using OCR conversion and importing into excel, the label from contains Japanese characters apart from alphanumeric(western) characters, want to only clean the Japanese characters, please help me with a macro to remove the Japanese characters(copied below)

Ramesha

[TABLE="width: 913"]
<colgroup><col><col><col span="2"><col><col span="2"><col><col><col><col><col><col></colgroup><tbody>[TR]
[TD]品番 1889816-1[/TD]
[TD][/TD]
[TD]サイズ[/TD]
[TD]胸囲[/TD]
[TD]90[/TD]
[TD]丫 4[/TD]
[TD][/TD]
[TD]品質表示[/TD]
[TD][/TD]
[TD]表地 毛 5 2%[/TD]
[TD][/TD]
[TD]ポリエステル4 8%[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]品番 1889813-1 1[/TD]
[TD]サイズ[/TD]
[TD]胸囲胴囲[/TD]
[TD]94 82[/TD]
[TD]A6 |[/TD]
[TD]品質表不[/TD]
[TD]表地 毛 ん八丨丨丁フニ[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Kamolga]

Hi,

The following macro will take the region around A1 (that means that you can not have empty rows and columns) and delete content from cells that are 100% Japanese

Sub Jap100()
Dim Rng As Range
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "[^\d^\w^\s-\.\,]"
    For Each Rng In Range("A1").CurrentRegion
        Rng = .Replace(Rng, "")
    Next Rng
End With
End Sub

If you prefer to select the area and being able to delete all Japanese caracters (cleaner) , even if some cells are mixed, then use following

Sub CleanText(ByVal Rng As Range)
    Dim Cell As Range
        
        With CreateObject("vbscript.regexp")
            .Global = True
            .Pattern = "[^\u0020-\u007F]"
            For Each Cell In Rng
                Cell = .Replace(Cell, "")
            Next Cell
        End With
        
End Sub
Sub ToClean()
Call Module1.CleanText(Selection)
End Sub

Source:excelforum

 

[tvsramesha]

Hi,

Thanks a lot, it worked like smoothie. Super!!

 

[Kamolga]

You are welcome, thanks for the feedback!