EXCEL中如何输入银行帐号时每四个自动空一空格?再追问
提问:EXCEL中如何输入银行帐号时每四个自动空一空格?再追问
这个问题对我非常重要,已经苦恼很长时间了。1.位数不定,可长可短,不固定是几位2.只对其中一个单元格设置这个语言,不是一列例:6213 4500 12 6213 4500 2453 18962 6213 4500 2453 1896 26 6213 4500 2453 1896 264 6213 4500 2453 1896 2642整体达到这种效果,你能帮忙吗?
网友回答:
函数与VBA两种方法供你参考,如下:
函数法:
=LEFT(A2,4)&" "&MID(A2,5,4)&" "&MID(A2,9,4)&" "&MID(A2,13,4)&" "&MID(A2,17,4)
VBA方法:
Sub pwst()
Dim x, y, z As Long
Dim ar, br
ar = Sheet2.Range("a2:a11")
ReDim br(1 To UBound(ar), 1 To 1)
For x = 1 To UBound(ar)
z = z + 1
For y = 1 To Len(ar(x, 1)) + 1 Step 4
If y = 1 Then
br(z, 1) = Mid(ar(x, 1), 1, 4)
Else
br(z, 1) = br(z, 1) & " " & Mid(ar(x, 1), y, 4)
End If
Next y
Next x
Sheet2.Range("b2").Resize(UBound(br), 1) = ""
Sheet2.Range("b2").Resize(UBound(br), 1) = br
End Sub