发布网友 发布时间:2022-04-22 20:42
共5个回答
热心网友 时间:2023-09-14 18:13
这里给你介绍一种新的办法:
做了一个宏来完成:(增加辅助列或使用分列功能再用函数合并也是办法)
1、在A1中输入:“ '+数字或者字母 ”,转换为文本格式
例如输入:'123412341234
'njbjtepaccsabvrgwyez
2、选中需要变更格式的区域A1,然后点击“工具”工具栏下的“宏”项下的“Visual Basic(编辑器)或者按(ALT+F11快捷方式)”,在弹出的对话编辑区域在英文状态下输入一下代码:
Sub li()
Dim s(100) '定义数组s,处理100*3位,即300位
For Each c In Selection
Cells(c.Row, c.Column + 1).Value = "'" & c.Value
temp = c.Value '临时变量存储当前单元格的值
Do Until Len(temp) <= 5 '循环,直到temp的长度小于等于5
i = i + 1 '数组变量递增
s(i) = Right(temp, 5) '从temp的右边取数,每五个存为数组
temp = Left(temp, Len(temp) - 5) '更改临时变量为当前值去掉后面五位
Loop
For i = 100 To 1 Step -1 '在数组中循环
If s(i) <> "" Then '如果数组的值不为空
temp = temp & "-" & s(i) '临时变量等于自身+-+当前数组的值
End If
Next i
c.Value = "'" & temp '转换成文本形式,赋予该单元格新的值
Next
End Sub
输入完后:再次点击工具栏中“工具”下的“宏”,在弹出的“宏”对话框选择输入“执行”即可。
热心网友 时间:2023-09-14 18:13
应该在设置单元格格式显有,找一下。热心网友 时间:2023-09-14 18:14
若是纯数字且少于11位,可以设置单元格式,自定义为#####-#####。热心网友 时间:2023-09-14 18:14
2004wyw的回答受教了热心网友 时间:2023-09-14 18:15
=TEXT(LEFT(A1,9),"0,000.00") & RIGHT(A1,2)