怎么将Excel表中行中的阿拉伯数字转换成英文字母ABC表示?
1、首先需要打开Excel的软件,如图所示,可以看到上面的行标现在是数字。
2、然后接下来,点击左上角的表格选项。
3、然后出来的左侧菜单栏,点击左下角的选项进入。
4、接下来就是弹出对话框,点击左侧常规与保存的选项,出来之后,需要把R1C1 引用样式的勾选去掉,回车确定。
5、最后,再返回到Excel页面,可以看到已经由数字变为字母了。
1.创建一个模块: 在SHEET上,右键-》查看代码。选中“模块”-》插入模块。2.写代码:Option Explicit
Dim StrNO(19) As String
Dim Unit(8) As String
Dim StrTens(9) As StringPublic Function NumberToString(Number As Double) As String
Dim Str As String, BeforePoint As String, AfterPoint As String, tmpStr As String
Dim Point As Integer
Dim nBit As Integer
Dim CurString As String
Dim nNumLen As Integer
Dim T As String
Call Init Str = CStr(Round(Number, 2))
' Str = Number
If InStr(1, Str, ".") = 0 Then
BeforePoint = Str
AfterPoint = ""
Else
BeforePoint = Left(Str, InStr(1, Str, ".") - 1)
T = Right(Str, Len(Str) - InStr(1, Str, "."))
If Len(T) < 2 Then AfterPoint = Val(T) * 10
If Len(T) = 2 Then AfterPoint = Val(T)
If Len(T) > 2 Then AfterPoint = Val(Left(T, 2))
End If If Len(BeforePoint) > 12 Then
NumberToString = "Too Big."
Exit Function
End If
Str = ""
Do While Len(BeforePoint) > 0
nNumLen = Len(BeforePoint)
If nNumLen Mod 3 = 0 Then
CurString = Left(BeforePoint, 3)
BeforePoint = Right(BeforePoint, nNumLen - 3)
Else
CurString = Left(BeforePoint, (nNumLen Mod 3))
BeforePoint = Right(BeforePoint, nNumLen - (nNumLen Mod 3))
End If
nBit = Len(BeforePoint) / 3
tmpStr = DecodeHundred(CurString)
If (BeforePoint = String(Len(BeforePoint), "0") Or nBit = 0) And Len(CurString) = 3 Then
If CInt(Left(CurString, 1)) 0 And CInt(Right(CurString, 2)) 0 Then
'tmpStr = Left(tmpStr, InStr(1, tmpStr, Unit(4)) + Len(Unit(4))) & Unit(8) & " " & Right(tmpStr, Len(tmpStr) - (InStr(1, tmpStr, Unit(4)) + Len(Unit(4))))
Else 'If CInt(Left(CurString, 1)) 0 And CInt(Right(CurString, 2)) = 0 Then
'tmpStr = Unit(8) & " " & tmpStr
End If
End If If nBit = 0 Then
Str = Trim(Str & " " & tmpStr)
Else
Str = Trim(Str & " " & tmpStr & " " & Unit(nBit))
End If
If Left(Str, 3) = Unit(8) Then Str = Trim(Right(Str, Len(Str) - 3))
If BeforePoint = String(Len(BeforePoint), "0") Then Exit Do
'Debug.Print Str
Loop
BeforePoint = Str If Len(AfterPoint) > 0 Then
AfterPoint = Unit(8) & " " & Unit(7) & " " & DecodeHundred(AfterPoint) & " " & Unit(5)
Else
AfterPoint = Unit(5)
End If
NumberToString = BeforePoint & " " & AfterPoint
End Function
Private Function DecodeHundred(HundredString As String) As String
Dim tmp As Integer
If Len(HundredString) > 0 And Len(HundredString) <= 3 Then
Select Case Len(HundredString)
Case 1
tmp = CInt(HundredString)
If tmp 0 Then DecodeHundred = StrNO(tmp)
Case 2
tmp = CInt(HundredString)
If tmp 0 Then
If (tmp < 20) Then
DecodeHundred = StrNO(tmp)
Else
If CInt(Right(HundredString, 1)) = 0 Then
DecodeHundred = StrTens(Int(tmp / 10))
Else
DecodeHundred = StrTens(Int(tmp / 10)) & "-" & StrNO(CInt(Right(HundredString, 1)))
End If
End If
End If
Case 3
If CInt(Left(HundredString, 1)) 0 Then
DecodeHundred = StrNO(CInt(Left(HundredString, 1))) & " " & Unit(4) & " " & DecodeHundred(Right(HundredString, 2))
Else
DecodeHundred = DecodeHundred(Right(HundredString, 2))
End If
Case Else
End Select
End IfEnd Function
Private Sub Init()
If StrNO(1) "One" Then
StrNO(1) = "One"
StrNO(2) = "Two"
StrNO(3) = "Three"
StrNO(4) = "Four"
StrNO(5) = "Five"
StrNO(6) = "Six"
StrNO(7) = "Seven"
StrNO(8) = "Eight"
StrNO(9) = "Nine"
StrNO(10) = "Ten"
StrNO(11) = "Eleven"
StrNO(12) = "Twelve"
StrNO(13) = "Thirteen"
StrNO(14) = "Fourteen"
StrNO(15) = "Fifteen"
StrNO(16) = "Sixteen"
StrNO(17) = "Seventeen"
StrNO(18) = "Eighteen"
StrNO(19) = "Nineteen" StrTens(1) = "Ten"
StrTens(2) = "Twenty"
StrTens(3) = "Thirty"
StrTens(4) = "Forty"
StrTens(5) = "Fifty"
StrTens(6) = "Sixty"
StrTens(7) = "Seventy"
StrTens(8) = "Eighty"
StrTens(9) = "Ninety" Unit(1) = "Thousand" '材�熌��
Unit(2) = "Million" '材�熌��
Unit(3) = "Billion" '材�熌��
Unit(4) = "Hundred"
Unit(5) = "Only"
Unit(6) = "Point"
Unit(7) = "Cents"
Unit(8) = "And"
End If
End Sub保存此代码到本地3.模块中已经定义了函数名称:NumberToString直接当作EXCEL本地函数使用,例如在A1=7,在B1中输入=NumberToString(A1)就可以拉!
工具 选项 常规 设置 不勾选 R1C1引用样式(C) 确定
excel中如何将中文数字转换为阿拉伯数字呢?
1、首先我们打开excel办公软件,通过指定内容作为样例进行使用。2、在开始菜单中默认选择开始选项,其中选择智能工具箱。3、首先我们选中要处理的单元格区域。4、然后选择工具栏中单元格处理,在下拉三角中选择保留内容。5、弹出批量提取窗口,其中提取类型选择数字,因为上面我们提到中文和数字混合只保留数字,...
电脑excel软件中阿拉伯数字怎么一键转化为中文大写数字
excel软件是我们现在经常使用的数据处理工具之一,我们经常会使用这个软件将数据制作成表格。接下来小编就教大家怎样在软件中一键将阿拉伯数字转化为中文大写数字。具体如下:1.首先我们打开电脑进入到桌面,然后找到想要转换的图表点击打开。进入到软件界面之后,我们找到想要转换的数据选中。2.接下来我们鼠标...
Excel中怎样设置数字格式为阿拉伯数字?
步骤三: 确认设置无误后,点击“确定”按钮,回到Excel表格。这时,你会发现原先的中文大写数字已顺利转换为常规的阿拉伯数字,报销单看起来更加专业整洁。以上就是快速解决Excel数字大写问题的简单方法,希望对你在处理报表时提供帮助。继续探索Excel的更多功能,让你的工作更加高效。如果你在使用过程中还有...
EXCEL 按阿拉伯数字排序
第一步:在B2单元格输入公式 =mid(a2,4,100),将A列的数字提取出来。第二步:选中B列,在B列的任意一个单元格上右键单击,在弹出的菜单里选择复制,然后再右击B列的任意一个单元格,在弹出的菜单里选择“选择性粘贴”在弹出的窗口中选择“粘贴值”。第三步:按照B列排序即可。
怎么将Excel表中行中的阿拉伯数字转换成英文字母ABC表示?
回答:工具 选项 常规 设置 不勾选 R1C1引用样式(C) 确定
excel如何把阿拉伯数字自动转换成大写金额(含元角分)
答案:在Excel中,将阿拉伯数字自动转换成大写金额可以通过以下步骤实现:1. 打开Excel表格,找到需要转换的单元格。2. 输入大写金额对应的阿拉伯数字。3. 在旁边空白单元格中输入公式,使用IF和TEXT函数结合,实现自动转换。例如,使用公式“=IF,"###亿"),IF,"###万"),TEXT))”来识别...
怎么将excel中的1.34E-05化为阿拉伯数值?
可以设置格式数值,将小数点现在位数加大 也可以把单元格长度拉宽一点,让数字都能显示出来
怎样在Excel电子表格中把阿拉伯数字转换成大写
选择数据所在单元格,单击鼠标右键,“设置单元格格式”“特殊”中选择“阿拉伯数字中文大写”或“阿拉伯数字中文小写”,确定,即可。
Excel中如何将阿拉伯数值进行大小写转换?
点个关注 关注我们吧~在Excel表格操作中,将阿拉伯数字转换为大写汉字是常见的需求。NumberString函数能帮助我们实现这一目标,它有三个参数供选择,让我们一起来看看如何操作。首先,我们使用J7单元格输入任意阿拉伯数字,如12340(这里仅用于示例)。接下来,双击K8单元格,输入=numberstring(),并在括号内...
如何将excel中的阿拉伯数字形式转换为中文小写和中文大写
1. 打开Excel表格,选中需要转换的阿拉伯数字单元格。2. 在选中的单元格中输入函数“=NUMBERSTRING”,其中“原数字”指的是阿拉伯数字所在的单元格引用。3. 按下回车键,即可将阿拉伯数字转换为中文小写。二、将Excel中的阿拉伯数字转换为中文大写 转换Excel中的阿拉伯数字为中文大写...