Sub Uppercase() ' 小写替换成大写 Dim i As Integer For i = 97 To 122 Cells.Replace What:=Chr(i), Replacement:=Chr(i - 32), _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, _ SearchFormat:=False, ReplaceFormat:=False Next i End Sub Sub Lowercase() ' 大写替换成小写 Dim i As Integer For i = 65 To 90 Cells.Replace What:=Chr(i), Replacement:=Chr(i + 32), _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, _ SearchFormat:=False, ReplaceFormat:=False Next i End Sub |
评论