2009-10-22から1日間の記事一覧
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…