电脑网络

EXCEL中如何输入银行帐号时每四个自动空一空格?再追问

346 浏览

EXCEL中如何输入银行帐号时每四个自动空一空格?再追问

1 个回答

lmugu3qnd用户头像
lmugu3qnd 回答于 2024-07-20
已采纳

提问: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


我来回答

相关问题