Excel 字体竖排后,如何让数字依然是横体

　　当单元格文字方向设置为竖排时，单元格会按字符一个一个的竖向排列，数字自然就会拆开了

解决这个问题的办法有下边几个：

1. 将单元格设置为“自动换行”，将列宽调整至大约一个文字的宽度，这样文字也能竖向显示，而且因为数字较汉字的宽度较窄，两个数字的宽度跟一个汉字的宽度一致，能横排显示，缺点是但最高于三位数，而且列宽受限，不能太宽；

   

2. 利用强制换行，在需要换行的字符后添加一个强制换行符，“alt+enter”，缺点就是如果字符很多，会很麻烦；

   

3. 利用VBA自定义函数

   

   代码如下

Function sx(x)

s1 = ""
For i = 1 To Len(x)
b = Mid(x, i, 1)
c = Asc(b)
If c < 48 Or c > 57 Then s1 = s1 & b Else GoTo line1
Next i
line1:
s2 = ""
For i = 1 To Len(x)
b = Mid(x, i, 1)
c = Asc(b)
If c >= 48 And c <= 57 Then s2 = s2 & b
Next i
s3 = ""
For i = Len(x) To 1 Step -1
b = Mid(x, i, 1)
c = Asc(b)
If c >= 48 And c <= 57 Then
For j = i + 1 To Len(x)
s3 = s3 & Mid(x, j, 1)
Next j
 GoTo line100
End If
Next i
line100:
s = ""
For i = 1 To Len(s1)
b = Mid(s1, i, 1)
s = s & Chr(10) & b
Next i
s = s & Chr(10) & s2
For i = 1 To Len(s3)
b = Mid(s3, i, 1)
s = s & Chr(10) & b
Next i
sx = s
End Functio

设置单元格格式－对齐－方向，选定左侧竖排横字格式框，即可。

不知道你说的是不是改变字体的方向,你可以试一下这个:
选中你要改变的单元格,
点右键"设置单元格格式"
打开对话框,第二项"对齐"
按你想要的方向,旋转角度即可!