[]VBA 怎么实现EXCEL单元格中内容固定长度输出,如单元格中内容小于固定长度,则以空格填充

[在线等]VBA 如何实现EXCEL单元格中内容固定长度输出,如单元格中内容小于固定长度,则以空格填充?
问题如题，举例EXCEL表格中有如下数据：

编号姓名拼音         电话（可为空）      手机
001张三峰ZHANGSANFENG         13000000000
002李四LISI        12345678 13000000000

说明：编号8位，姓名10位，拼音20位，电话8位，手机11位

希望得到txt文本，输出结果如下：
001    张三峰     ZHANGSAN      13000000000
002    李四       LISI    12345678    13000000000

就是说，希望按照单元格设定的“位数”条件输出，如单元格中内容小于固定长度或者为空,则以空格填充

希望给出关键代码，即如何实现EXCEL单元格中内容固定长度输出,如单元格中内容小于固定长度,则以空格填充?
[解决办法]

引用:

例如第2列，姓名，要求10位，通过计算输入只有6位，还差4位需要补空格以满足10位要求

If Len(var2) <> 0 Then var2NullNum = 10 - Len(var3)

通过如上语句，可得var2NullNum等于4
但是，如何使其转换为4个空格，请帮忙

不需要判断

var2NullNum=var2 & space(10-len(var2))

但是你一定要考虑输入超过这个字符数，会报错。


[解决办法]
前面要加个字符串长度不能超过定值的判断。

查看更多 下一篇