选样快速拆分内容？

学上网 · 发表于 2020-1-12 16:42

把左边拆分成右边。

学上网 · 发表于 2020-1-12 16:54

逗号用word可以拆分，连续号不会拆分

jiangxiaoyun · 发表于 2020-1-12 20:34

这种用powerquery处理可以的.以目前数据

varytina · 发表于 2020-1-12 20:54

前面字符只有一位吗? 会出现R1-4,R7-9 这样的情况吗?

学上网 · 发表于 2020-1-12 22:40

varytina 发表于 2020-1-12 20:54
前面字符只有一位吗? 会出现R1-4,R7-9 这样的情况吗?

会出现R4,RB7,R11-16,RB18-22 RA3 RA33
有时是逗号分隔，有时是空格分隔，混的。

学上网 · 发表于 2020-1-12 22:48

jiangxiaoyun 发表于 2020-1-12 20:34
这种用powerquery处理可以的.以目前数据

找不到powerquery在哪？2007有吗？

varytina · 发表于 2020-1-12 23:16

学上网发表于 2020-1-12 22:40
会出现R4,RB7,R11-16,RB18-22 RA3 RA33
有时是逗号分隔，有时是空格分隔，混的。

这个吧用Power Query 比较简单, 讲个思路吧,Power Query 思路
1.利用逗号第一次拆分
2.利用Record功能,去除字母,得到- 前后的数字,并生成序列List,例如11-15;
剔除数字获取字母,组合list生成{R11,R12,R13,R14,R15}
3.展开
4.将"数量"列变为1
可以参照之前的回答 (4楼)
http://club.excelhome.net/forum.php?mod=viewthread&tid=1517131

VBA思路
1.利用[逗号]分割循环,
2.利用[-]分割循环,(开始=第一个元素的"-"前面的数字,结束=第二个元素的"-"前面的数字)
注意:如果只有一个元素的时候,需要增加一个IF判断开始=结束=第一个元素的数字
3.在循环中,建立一个足够大的数组逐一添加即可,(第一个元素前面的字母及第二次循环的变量),例如 R & i=11 to 15
难点在于剔除字符串(String)中的字母,或者剔除数字
可以自建正则函数
剔除掉字母[^A-Za-z],剔除掉数字[^0-9]

回答的有点啰嗦,仅供楼主参考
望大佬斧正

ggmmlol · 发表于 2020-1-13 12:47

ggmmlol · 发表于 2020-1-13 12:53

先上图片对付着，再上代码

Sub test()
Dim ar, r, Reg, i&, s$, Rng As Range, cel As Range, br()
ar = Range("A1").CurrentRegion
r = UBound(ar)
Set Reg = CreateObject("VBScript.RegExp")
Reg.Global = True
Reg.Pattern = "([A-Za-z]+)(\d+)-(\d+)"
For i = 2 To UBound(ar)
s = Replace(Reg.Replace(WorksheetFunction.Trim(ar(i, 3)), "$1$2:$1$3"), " ", ",")
For Each Rng In Range(s).Areas
For Each cel In Rng.Cells
n = n + 1
ReDim Preserve br(1 To 3, 1 To n)
br(1, n) = ar(i, 1)
br(2, n) = 1
br(3, n) = Replace(cel.Address, "$", "")
Next
Next
Next
Range("F2:H1048576").ClearContents
Range("F2").Resize(n, 3) = Excel.WorksheetFunction.Transpose(br)
End Sub

复制代码

varytina · 发表于 2020-1-13 15:13

ggmmlol 发表于 2020-1-13 12:53
先上图片对付着，再上代码

如果如果前面字母是FORDESAX这样的字符串，Range的方法就失效了

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

[求助] 选样快速拆分内容？

评分

评分

最新热点 /1