以下是引用风吹过b在2013-3-28 11:38:59的发言：

你自定义一个函数，负责给数据增加前导空格，那就可以对齐了。
调用时很简单：
print #1,spacelen(1,3);spacelen("东",12);spacelen("45272",8)
函数会自动到前面添加空格，使字符串为指定的长度，那就可以对齐了。
 
 
-----------------------------------------------------------------
Public Function spacelen(cs As Variant, slen As Long)
Dim i As Long
Dim s() As Byte
'不使用len函数，是因为 中文字符宽度问题
s = StrConv(cs, vbFromUnicode)
i = UBound(s) + 1
If i < slen Then
    spacelen = Space(slen - i) & cs
Else
spacelen = cs
End If
End Function

以下是引用风吹过b在2013-3-29 09:06:12的发言：

左边齐，就是在尾部加空格。那么你再复制一个 函数 ，改一下函数里的 添加空格的位置就是了。
然后这些中文就换过函数就是了。
 
----------------------------------
Public Function spacelen(cs As Variant, slen As Long)         '在头添加空格以达到指定长度
Dim i As Long  
Dim s() As Byte  
'不使用len函数，是因为 中文字符宽度问题  
s = StrConv(cs, vbFromUnicode)  
i = UBound(s) + 1  
If i < slen Then  
    spacelen = Space(slen - i) & cs                 '空格加到头
Else  
spacelen = cs  
End If  
End Function
 
Public Function spacelenR(cs As Variant, slen As Long)         '在尾添加空格以达到指定长度
Dim i As Long  
Dim s() As Byte  
'不使用len函数，是因为 中文字符宽度问题  
s = StrConv(cs, vbFromUnicode)  
i = UBound(s) + 1  
If i < slen Then  
    spacelen = cs & Space(slen - i)              '空格加到尾
Else  
spacelen = cs  
End If  
End Function