在Excel表格里,如何将一个数字每位数各占一格,包括原始数字那格
发布网友
发布时间：2023-03-24 01:46
共5个回答
热心网友
时间：2023-10-16 01:00
是不是准备做成这样子啊？
追问是啊是啊、、、类似的、、、是 记账凭证 。求解答、、、非常感谢~~追答
这科目汇总表是用VBA做的。我做过一个凭证，但不是很成功，说一思路给你：
先用Excel设计一完整的记账凭证出来，我用两个textbox控件来处理。textbox1控制输入科目代码时填写科目名称及明细科目，textbox2控制金额的填写。
直接说控制金额的textbox。首先要控制textbox的显示位置，并且只能输入0到9的数字，及负号、小数点，*只能两位小数。输入完成回车后，将这金额写到凭证外面的单独一列（假设放在第28列）存放，然后再进行分割。
一、自定义一个分割函数：
Function weishu(n, wei) '定义，n是待分割数，wei是凭证上的位数1为分，2为角，3为元......
If wei > Len(CStr(n * 100)) Then
weishu = ""
Else
If n = 0 Then
weishu = ""
Else
weishu = VBA.Mid(CStr(n * 100), Len(CStr(n * 100)) - wei + 1, 1)
End If
End If
End Function
二、在固定的某列到某列之间循环，填入合适的单个数字
wei = 1
For ylie = 24 To 3 Step -1 '假设分在第24列，角在第23列，依此类推
Cells(hang, ylie).Value = weishu(Cells(hang, 28).Value, wei) '自定义分割，原值在同行28列
wei = wei + 1
Next ylie
热心网友
时间：2023-10-16 01:01
如图，在B1输入公式，右、下填充公式，完了再把数据复制要想要的地方，选择性粘贴，数值
热心网友
时间：2023-10-16 01:01
用VBA的方法不知是否需要。
下面说一下“数据分列”的方法
假设数据在A列
将数据拷贝到B列
选中B列
数据---分列----固定宽度----在每个分度处单击（要多于最长数字）----完成
即可达到目的
热心网友
时间：2023-10-16 01:02
B1公式
=MID($A1,COLUMN(A1),1)
右拉
热心网友
时间：2023-10-16 01:02
A1：12345
B1：=MID($A$1,COLUMN()-1,1)
水平拖拽即可得到分解的内容。
