1.请高手写一段EXCEL代码：数字大小的对比Sub 自动计算（）
Dim n, x As Integer '定义数字变量
Columns("E:H").Select: Selection.ClearContents
Range("B5").Select
For x = 4 To 10000
If Cells(x, 2) = "" And Cells(x, 4) = "" Then Exit For
If Cells(x, 2) > Cells(x, 4) Then Cells(x, 5) = 1
If Cells(x, 2)
2.excel中数字大小写转换我正在写，写好发给你 。
QQ394901158 写好了，是大写转小写的，以下是代码 Public b(1 To 12) As Integer Const dx = "壹贰叁肆伍陆柒捌玖" Sub 转换（） Dim strtemp As String, yi As String, wang As String, jie As String Dim 第一个不为零 As Boolean, i As Integer, j As Integer, m As Integer Const fj = "亿万元" For i = 1 To 12 b(i) = 0 Next i Sheets("sheet1").Range("K7:V7").ClearContents strtemp = Sheets("sheet1").Cells(6, 2) For i = 1 To Len(fj) If InStr(1, strtemp, Mid(fj, i, 1)) <> 0 Then a = InStr(1, strtemp, Mid(fj, i, 1)) Call 分解（Left(strtemp, a - 1), i) strtemp = Right(strtemp, Len(strtemp) - a) End If Next i Const fjj = "角分" For j = 1 To Len(fjj) If InStr(1, strtemp, Mid(fjj, j, 1)) <> 0 Then a = InStr(1, strtemp, Mid(fjj, j, 1)) b(10 + j) = InStr(1, dx, Left(strtemp, 1)) strtemp = Right(strtemp, Len(strtemp) - a) End If Next j For m = 1 To 12 If 第一个不为零 = False And b(m) >= 1 Then 第一个不为零 = True Sheets("sheet1").Cells(7, 9 + m) = "￥" Sheets("sheet1").Cells(7, 10 + m) = b(m) ElseIf 第一个不为零 Then Sheets("sheet1").Cells(7, 10 + m) = b(m) End If Next m End Sub Function 分解（strtemp As String, jie As Integer） Const fj = "千百拾" Dim se As String '数额 Dim s_Num As Integer For i = 1 To Len(fj) If InStr(1, strtemp, Mid(fj, i, 1)) <> 0 Then a = InStr(1, strtemp, Mid(fj, i, 1)) se = Left(strtemp, a - 1) If se = "" Then se = "壹" If Len(se) > 1 Then s_Num = InStr(1, dx, Right(se, 1)) Else s_Num = InStr(1, dx, se) End If If jie = 1 Then b(i - 2) = s_Num ElseIf jie = 2 Then b(i + 2) = s_Num ElseIf jie = 3 Then b(i + 6) = s_Num End If strtemp = Right(strtemp, Len(strtemp) - a) If strtemp = "" Then Exit Function End If Next i If Len(strtemp) = 2 Then If jie = 1 Then b(2) = InStr(1, dx, Right(strtemp, 1)) ElseIf jie = 2 Then b(6) = InStr(1, dx, Right(strtemp, 1)) Else b(10) = InStr(1, dx, Right(strtemp, 1)) End If ElseIf Len(strtemp) = 1 Then If jie = 1 Then b(2) = InStr(1, dx, strtemp) ElseIf jie = 2 Then b(6) = InStr(1, dx, strtemp) Else b(10) = InStr(1, dx, strtemp) End If End If End Function 在B7单元格输入大写的金额，回车后，在小写框中会自动转换过来 。注意大写的数字必须是“壹贰叁肆伍陆柒捌玖”中的文字，比如：伍拾，不能写成五拾 。
“亿万千百拾”不能是“亿万仟佰拾” 。
3.2012Excel怎么使用数字转大写代码你是要设置单元格小写自动转换成大写的的吗？不用代码也可以呀
假如在A1输入数值，想在B1自动转换成大写的，可以这样设置：
第一步：在B1那里右键“数字”“特殊”选择“中文大写数字”
第二步：在B1右键“数字”“自定义”选择“[DBNum2][$-804]G/通用格式”，假如你想在前面加“人民币（大写）”之类的就在“[DBNU 。.]”前面直接输入就可以了，同理，后面的就直接在后面输入就可以 。
第三步：在B1输入公式"=SUM(A1)” 这样就可以全部自动更换了
4.Excel数字怎么转换为中文大写一、单元格格式法
选中那些数字所在的单元格，点击右键，在弹出菜单中选择“设置单元格格式”命令，打开“设置单元格格式”对话框 。点击“数字”选项卡，在左侧的“分类”列表中选择“特殊”，然后在右侧的“类型”列表中点击“中文大写数字”，如图1所示 。确定后就可以了 。若点击上方的那个“中文小写数字”，可以得到“一十二亿三千四百五十六万七千八百九十” 。很简单吧？
图1：选择“中文大写数字”