两个字的名字怎么自动与三个字的名字对齐
不用VBA:
最简单的,选中要对齐的单元格,设置单元格格式,对齐,水平对齐中选择“分散对齐”,列宽调整为最适合的列宽 别说是与三个字,四个,五个都没问题 优点:不改变内容,不影响筛选和查询。
VBA:
Range("**:**").Select'**:**为要设置区域
Selection.HorizontalAlignment = xlDistributed
Selection.Columns.AutoFit
针对前面有帖,说分散对齐后 原本三个字的字符间距拉大了,可以通过以下方式
不用VBA:
先把列宽调整为最适合的列宽
然后自定义筛选,筛选出 不包含 ??? 即筛选出3个字符以下的 选中筛选出的结果 进行 分散对齐
VBA:
Range("**:**").Select'**:**为要设置区域
Selection.Columns.AutoFit
For Each rng In Selection
If Len(rng.Value) < 3 Then rng.HorizontalAlignment = xlDistributed
Next
[此贴子已经被作者于2005-6-10 14:08:23编辑过]