使用VBA将小写转换成大写

1、打开Excel表格之后，按下键盘上面的【Alt+F11】组合键打开VBA编辑器。

3、在模块代码窗口里边输入以下程序代码：Sub NumberCapital()Dim i, n, k1, k2, k3, k4, k5, k6On Error Resume Next '忽略运行过程中出现的错误Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表mysheet1.Range("C2:C1000") = "" '清空C2:C1000单元格里边的内容For n = 2 To 1000 '从第二行开始到1000行If mysheet1.Cells(n, 2) <> "" And IsNumeric(mysheet1.Cells(n, 2)) = True Then'如果单元格不为空白且为数值，则 If mysheet1.Cells(n, 2) = Int(mysheet1.Cells(n, 2)) Then '如果单元格里边的数值为整数，则 mysheet1.Cells(n, 3) = Application.WorksheetFunction.Text(mysheet1.Cells(n, 2), "[DBNum2]") & "元整" '把单元格里边的数值转换成大写，并在末尾添加“元整” Else i = InStr(1, mysheet1.Cells(n, 2), ".") '获取字符“.”所在的位置 k1 = Mid(mysheet1.Cells(n, 2), 1, i - 1) '截取整数部分 k2 = Mid(mysheet1.Cells(n, 2), i + 1, 1) '截取第一位小数 k3 = Mid(mysheet1.Cells(n, 2), i + 2, 1) '截取第二位小数 k4 = Application.WorksheetFunction.Text(k1, "[DBNum2]") '把整数部分转换成大写 k5 = Application.WorksheetFunction.Text(k2, "[DBNum2]") '把第一位小数转换成大写 k6 = Application.WorksheetFunction.Text(k3, "[DBNum2]") '把第二位小数转换成大写 mysheet1.Cells(n, 3) = k4 & "元" & k5 & "角" & k6 & "分" '截取的大写数值拼凑起来 End IfEnd IfNextEnd Sub

6、回到工作表界面，将会看到VBA程序运行的结果。