EXCEL 单行拆分成多行

2427228339

这个用VB如何实现啊，求指点。。。

半百

请测试。。。

3190496160

Sub 拆分()
Application.ScreenUpdating = False
Dim ar As Variant
Dim br()
With Sheets("表1")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "表1为空！": End
    ar = .Range(.Cells(1, 1), .Cells(r, 5))
End With
ReDim br(1 To 50000, 1 To 5)
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        If InStr(ar(i, 1), "~") = 0 Then
            n = n + 1
            For j = 1 To UBound(ar, 2)
                br(n, j) = ar(i, j)
            Next j
        Else
            rr = Split(ar(i, 1), "~")
            ks = Right(rr(0), 1)
            js = rr(1)
            ks_1 = Range(ks & 1).Column
            js_1 = Range(js & 1).Column
            For s = ks_1 To js_1
                n = n + 1
                For j = 4 To UBound(ar, 2)
                    br(n, j) = ar(i, j)
                Next j
                For j = 1 To 3
                    wz = InStr(ar(i, j), "~") - 2
                    br(n, j) = Left(ar(i, j), wz) & Left(Cells(1, s).Address(0, 0), 1)
                Next j
            Next s
       End If
    End If
Next i
With Sheets("表2")
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(n, UBound(br, 2)) = br
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

拆封字母1.rar (16.77 KB, 下载次数: 10)

2023-6-1 09:04 上传

点击文件名下载附件

gwjkkkkk

参与一下。。。

今铭昔

2427228339

gwjkkkkk 发表于 2023-6-1 20:27
参与一下。。。

([A-Z]?\d+)([A-Z~]*)这个是只能读第一个字母加数字，如果我的数据是 CWS1234A~B，输出会变成S1234A，这个这么修改啊大佬

今铭昔

2427228339 发表于 2023-6-2 01:58
([A-Z]?\d+)([A-Z~]*)这个是只能读第一个字母加数字，如果我的数据是 CWS1234A~B，输出会变成S1234A，这 ...

([A-Z]?\d+)([A-Z~]*)
改成
([A-Z]*?\d+)([A-Z~]*)