vba
Sub ZenToHan() Dim i As Integer Dim myLetter As String Dim myStr As String Dim myCell As Range For Each myCell In ActiveSheet.UsedRange myStr = myCell.Value i = 1 Do While (i myLetter = Mid(myStr, i, 1) Select Case Asc(myLetter) Case 167 T…
Sub ZenToHan() Dim i As Integer Dim myLetter As String Dim myStr As String Dim myCell As Range For Each myCell In ActiveSheet.UsedRange myStr = myCell.Value i = 1 Do While (i myLetter = Mid(myStr, i, 1) Select Case Asc(myLetter) Case 167 T…