如何用VBA分拆逗号和连接号混排的字符串？

作者：绿色风分类：时间：2022-08-18 浏览：94

楼主
herelazy

Q：如何用VBA把C列中的逗号和连接号混排的标签分拆在单独的一列中？
如图所示：

A：

Sub fenjie()
'适合逗号与连接号~混排
Dim arr, r&, i&, brr(), j&, n&, a, a1, a2, b, k&
With Sheets("sheet1")
r = .Cells(Rows.Count, 1).End(3).Row
arr = .Range("a1:c" & r)
.[d1].Resize(Rows.Count, 3).ClearContents
For i = 1 To r
a = Split(arr(i, 3), ",")
For k = 0 To UBound(a)
b = Split(a(k), "~")
If UBound(b) Then
a1 = "": a2 = ""
For n = 1 To Len(b(0))
If IsNumeric(Mid(b(0), n, 1)) Then
a1 = Mid(b(0), n)
a2 = Mid(b(1), n)
Exit For
End If
Next
j = j + a2 - a1 + 1
ReDim Preserve brr(1 To 3, 1 To j)
For n = a1 To a2
brr(1, j - a2 + n) = arr(i, 2)
brr(2, j - a2 + n) = arr(i, 1)
brr(3, j - a2 + n) = Replace(b(0), a1, "") & n
Next
Else
j = j + 1
ReDim Preserve brr(1 To 3, 1 To j)
brr(1, j) = arr(i, 2)
brr(2, j) = arr(i, 1)
brr(3, j) = a(k)
End If
Next
Next
.[d1].Resize(j, 3) = Application.Transpose(brr)
End With
End Sub

分解2.rar

2楼
亡者天下

过来学习，谢谢

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表