空格键数量不一致的字符提取问题？

liujuntao · 发表于 2018-3-20 21:55

如附件，按照附件要求提取字符，但是空格键数量不一致如何提取？多谢高人指点。谢谢！

mengrs · 发表于 2018-3-20 22:03

数据——分列

七夕、 · 发表于 2018-3-20 22:11

分列,或者公式:

=TRIM(MID(SUBSTITUTE(TRIM($A2),"　",REPT(" ",99)),COLUMN(B1)*99-98,99))

复制代码

吧123456789 · 发表于 2018-3-20 22:14

#在这Sub cf() Dim dr(1 To 1000, 1 To 10) ar = Range("a2").CurrentRegion For i = 1 To UBound(ar) br = Split(ar(i, 1), "　") For Each cr In br If cr <> "" Then n = n + 1 dr(i, n) = cr End If Next n = 0 Next Range("n1").Resize(1000, 10) = dr End Sub里快速回复#

吧123456789 · 发表于 2018-3-20 22:16

Sub cf()
Dim dr(1 To 1000, 1 To 10)
  ar = Range("a2").CurrentRegion
For i = 1 To UBound(ar)
br = Split(ar(i, 1), "　")
For Each cr In br
      If cr <> "" Then
      n = n + 1
      dr(i, n) = cr
      End If
Next
n = 0
Next
Range("n1").Resize(1000, 10) = dr
End Sub
注意split  第二参数需要在表里复制不是一般的空格

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

[已解决] 空格键数量不一致的字符提取问题？