教教我用VBA实现一个单元格中文字竖排数字横排显示，谢谢啦

sshinta

各位前辈、老师，如标题所述，本人现在想要实现同一个单元格中，文字竖排数字横排显示，网上找到了一个前辈老师的代码，但是因为字符串比较复杂，效果并不完美，特来求助。感谢！

sayhi95

这个只能你自己手工去实现，因为只你自己知道1415要变成1#，4#-15#，其他情况就更不用说了，没人知道你到底想要变成啥效果。

sshinta

sayhi95 发表于 2019-6-28 09:06
这个只能你自己手工去实现，因为只你自己知道1415要变成1#，4#-15#，其他情况就更不用说了，没人知道你到底 ...

不是的大佬，源数据不是1415.。1415那行是我用VBA弄只能弄成那样的效果，不符合需求。
源数据是：
XX1#、4#—15#YY（OO）ZZ
我想要变成：
X
X
1
#
、
4
#
|
15
#
Y
Y
︵
O
O
︶
Z
Z
不知道能不能实现orz

kkf5560

????单元格格式--竖排？

sshinta

kkf5560 发表于 2019-6-28 10:39
????单元格格式--竖排？

回大人，竖排格式的话是这样的效果：
X
X
1#
、
4
#
—
1
5
#
.
.
.
主要是想两位以上的数字能横排显示，不分开orz

kkf5560

1. Sub t()
   
2. Dim i%, a$, b$
   
3. For i = 1 To Len(Range("a2"))
   
4.     a = Mid(Range("a2"), i, 1)
   
5.         If IsNumeric(a) And IsNumeric(Mid(Range("a2"), i + 1, 1)) _
   
6.         Or Mid(Range("a2"), i + 1, 1) = "#" Then
   
7.             b = b & a
   
8.             Else
   
9.             b = b & a & Chr(10)
   
10.     End If
    
11. Next i
    
12. Range("d2") = b
    
13. End Sub

复制代码

sshinta

kkf5560 发表于 2019-6-28 15:50

好了我傻了……谢谢前辈！学习中！

sshinta

然后问题来了……没法达到自动换行的效果……

bright陶

感谢各位楼主，解决了我的问题

bright陶

kkf5560 发表于 2019-6-28 15:50

写的很好，能解决很多单元格的问题