如何把未分列的数据快速分列

lyhlyhlyh · 发表于 2021-11-19 09:34

本帖最后由 lyhlyhlyh 于 2021-11-19 09:40 编辑

类如大量这种数据行，需要分成三行并去掉空格，且身份证信息以文本形式呈现而不是科学计数法形式：
[1]杨辉龙 423224197307183622
变成如下：

11.rar (5.01 KB, 下载次数: 20)

liulang0808 · 发表于 2021-11-19 10:01

Sub 按钮1_Click()
Dim brr()
arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 3)
r = 0
With CreateObject("vbscript.regexp")
      .Pattern = "(\[\d+])([^\s]+)\s+(\d+X?)"
      For j = 1 To UBound(arr)
         If .test(arr(j, 1)) Then
            r = r + 1
            Set m = .Execute(arr(j, 1))
            brr(r, 1) = m(0).submatches(0)
            brr(r, 2) = m(0).submatches(1)
            brr(r, 3) = "'" & m(0).submatches(2)
         End If
      Next j
End With
[d1].Resize(r, 3) = brr
End Sub

liulang0808 · 发表于 2021-11-19 10:02

。。。。。。。。。。。。。。

minchar · 发表于 2021-11-19 10:33

本帖最后由 minchar 于 2021-11-19 10:35 编辑

数据分列：先按空格分（勾选多空格），再用］去分列

xfmxd52 · 发表于 2021-11-19 10:43

单元格列设置为文本，然后点击数据，分列

lyhlyhlyh · 发表于 2021-11-19 10:48

minchar 发表于 2021-11-19 10:33
数据分列：先按空格分（勾选多空格），再用］去分列

身份证信息全变科学计数法了。

lyhlyhlyh · 发表于 2021-11-19 10:49

liulang0808 发表于 2021-11-19 10:01
Sub 按钮1_Click()
Dim brr()
arr = [a1].CurrentRegion

不会用啊，稍说详细一点。

lyhlyhlyh · 发表于 2021-11-19 10:50

xfmxd52 发表于 2021-11-19 10:43
单元格列设置为文本，然后点击数据，分列

不行，你说的这个我会的

minchar · 发表于 2021-11-19 10:57

lyhlyhlyh 发表于 2021-11-19 10:48
身份证信息全变科学计数法了。

右键单元格属性文本

f8b1987 · 发表于 2021-11-19 11:14

函数走起吧
=LEFT(A1,FIND("]",A1))

=RIGHT(LEFT(A1,FIND(" ",A1)-1),LEN(LEFT(A1,FIND(" ",A1)-1))-FIND("]",A1))

=RIGHT(A1,18)

		自动登录	找回密码
密码			免费注册

[求助] 如何把未分列的数据快速分列

评分

评分