分列取值问题

杨建营

1、提取各列的在“-”之前的数值填写到另一个工作表的1.5.9等列的列中；列数不是固定的，有时多有时少。行数一般不超过51行。
2、建立边框，如在sheet2中的样式，列宽根据填入的字符串设置一般最多11位。
3、在sheet2的2.6.10等列填写表1小括号中的1；3.7.11等列中填写2，列宽保持2个字符就可以。

先谢为敬。

3190496160

Sub 提取数据()
Dim ar As Variant
Dim br()
With Sheet1
    ar = .[a1].CurrentRegion
End With
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2) * 4)
lh = 1
For j = 1 To UBound(ar, 2)
    n = 0
    For i = 1 To UBound(ar)
        If Trim(ar(i, j)) <> "" Then
            If InStr(ar(i, j), "-") > 0 Then
                n = n + 1
                br(n, lh) = Split(ar(i, j), "-")(0)
            End If
        End If
    Next i
    lh = lh + 4
Next j
With Sheet2
    .UsedRange = Empty
    .[a1].Resize(UBound(br), UBound(br, 2)) = br
End With
MsgBox "OK!"
End Sub

3190496160

分列取值.rar (20.22 KB, 下载次数: 5)

2022-11-29 12:54 上传

点击文件名下载附件

3190496160

以此为准
分列取值.rar (21.53 KB, 下载次数: 5)

2022-11-29 13:02 上传

点击文件名下载附件

杨建营

3190496160 发表于 2022-11-29 12:54

虽然没有把我的要求全部实现，但也解决了最大的问题，谢谢。

ykcbf1100

这个可以不用正则

杨建营

3190496160 发表于 2022-11-29 13:02
以此为准

麻烦再订正一下

杨建营

ykcbf1100 发表于 2022-11-29 13:06
这个可以不用正则

老师这个是把列固定了，我的数据是没有固定的，所以超过老师设置的数量就不能成功了。补充一点，数值前面的L最好可以保留，谢谢。

清风竹-

请看附件。

杨建营

清风竹- 发表于 2022-11-29 13:33
请看附件。

老师的代码大部分功能都可以实现，只有一点小小的瑕疵。