作者：绿色风
分类：
时间：2022-08-17
浏览：175
楼主
kevinchengcw |
Q: 如何设置单元格文字内部分列对齐？
A: 利用VBA代码可以实现单元格内部类似分栏的效果，实现效果如下：
以下方法仅对单元格内容全部为汉字或字母时效果良好（图2代码）- Sub test3()
- For N = 1 To 5
- Cells(N, 1) = Space(6 - Len(10 ^ N)) & 10 ^ N & "," & Space(6 - Len(10 ^ N)) & 10 ^ N & " : " & 10 ^ N * 10 ^ N & Space(11 - Len(N * N))
- Next N
- End Sub
以上是利用space()函数生成一定数量的空格补充位数不足的空间，所以本方法需要预先算出栏宽最大字符数，或者在数据处理完成后取得栏宽最大字符数，然后进行格式化显示
技巧提示：将space()函数接在对应字符串的右侧则会形成左对齐效果，放在左侧是右对齐效果，居中方式请自行研究
 Demo.rar
|
2楼
wjc2090742 |
http://www.exceltip.net/thread-8183-1-1.html
内容当然是不一样的，题目不如改成“如何用vba实现多排文字以某个符号对齐(在一个单元格内)？”，或者“如何用vba在单元格内实现分栏效果”，类似这样，辨识度会高一些。
纯属个人建议。vba我看不懂。 |
3楼
kevinchengcw |
谢谢楼上的建议，现在改了一下标题，确实要感觉好理解一些了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一