|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
或者
Sub 按钮1_Click()
arr = [d1].CurrentRegion
Application.ScreenUpdating = False
For j = 1 To UBound(arr)
str1 = ""
For i = 1 To UBound(arr, 2)
lenbb = LenB(StrConv(arr(j, i), vbFromUnicode)) '区分单双字节
x = Split(",5, 15, 5, 6", ",")
str1 = str1 & "│" & arr(j, i) & Space(x(i) - lenbb)
Next i
arr(j, 1) = Mid(Trim(str1), 2)
Next j
[a1].Resize(UBound(arr)) = arr
Application.ScreenUpdating = True
Columns("A:A").Font.Name = "楷体_GB2312"
End Sub
|
评分
-
1
查看全部评分
-
|