如何分裂成功，但是身份号要正确，不能出现尾数为000

lg747699

具体参考附件，谢谢

08yj2001

分列的时候选择身份证号一列设置为文本格式

08yj2001

分列的时候把身份证号一列设置为文本格式

lsc900707

1. Sub gj23w98()
   
2.     arr = [a1].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To 12)
   
4.     For i = 1 To UBound(arr)
   
5.         s = Split(arr(i, 1), ",")
   
6.         For j = 0 To UBound(s)
   
7.             brr(i, j + 1) = s(j)
   
8.         Next
   
9.     Next
   
10.     Range("i:j").NumberFormatLocal = "@"
    
11.     [c1].Resize(UBound(brr), 12) = brr
    
12. End Sub

复制代码

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, t
  arr = Sheets("sheet1").[a1].CurrentRegion
  For i = 1 To UBound(arr, 1)
    t = Split(arr(i, 1), ",")
    If i = 1 Then ReDim brr(1 To UBound(arr, 1), UBound(t))
    For j = 0 To UBound(t)
      brr(i, j) = t(j)
  Next j, i
  With Sheets("sheet2").[a1].Resize(UBound(brr, 1), UBound(brr, 2) + 1)
    .NumberFormatLocal = "@"
    .Value = brr
  End With
End Sub

lsc900707

参考附件：

lg747699

08yj2001 发表于 2018-9-25 11:43
分列的时候选择身份证号一列设置为文本格式

不行，后面会出现000

08yj2001

lg747699 发表于 2018-9-26 09:46
不行，后面会出现000

我电脑上测试是没问题的