数据提取整理

goodwin168

整理前数据：

整理后数据：

说明：


位置说明R816,R861,R897
<0341012315(1/10W 10ohm F 0603)>
<0341012332(1/11W 10ohm F 0603)>
<0341012333(1/12W 10ohm F 0603)>
<0341012334(1/13W 10ohm F 0603)>
<0341012335(1/14W 10ohm F 0603)>
表示0341-012-306有5个替代物料，红色代表第一个替代料，蓝色代表第一替代料的规格，依照<()>来区分一共有几个，对替代物料进行分解显示，并在分解后的替代物料S栏用S表示己分解的替代料

数据批量提取与分解.zip (41.43 KB, 下载次数: 4)

2021-8-2 16:32 上传

点击文件名下载附件

goodwin168

请各位老师和高手帮忙，感谢

goodwin168

    'Dim strsql1 As String
    'strsql1 = "SELECT Mid([零件位置],InStr([零件位置],'<')+1,(InStr([零件位置],'(')-1)-(InStr([零件位置],'<'))) " _
    '& "AS 料号, Mid([零件位置],InStr([零件位置],'(')+1,(InStr([零件位置],')')-1)-(InStr([零件位置],'('))) " _
    '& "AS 规格, 整理前.用量, Mid([零件位置],1,InStr([零件位置],'<')-2) " _
    '& "AS 整理后零件位置 INTO 整理后 " _
    '& "FROM 整理前 " _
    '& "WHERE (((InStr([零件位置],'<'))>0))"
    'DoCmd.RunSQL strsql1
这样执行只能处理一个<()>内的数据，当有多个时就只能保留第一个

goodwin168

    'Dim strsql1 As String
    'strsql1 = "SELECT Mid([零件位置],InStr([零件位置],'<')+1,(InStr([零件位置],'(')-1)-(InStr([零件位置],'<'))) " _
    '& "AS 料号, Mid([零件位置],InStr([零件位置],'(')+1,(InStr([零件位置],')')-1)-(InStr([零件位置],'('))) " _
    '& "AS 规格, 整理前.用量, Mid([零件位置],1,InStr([零件位置],'<')-2) " _
    '& "AS 整理后零件位置 INTO 整理后 " _
    '& "FROM 整理前 " _
    '& "WHERE (((InStr([零件位置],'<'))>0))"
    'DoCmd.RunSQL strsql1
现在目前的方法只能处理一组数据，当有多个时候只能保留第一个，一直解决不了，请大家帮帮忙！

zpy2

goodwin168 发表于 2021-8-2 16:38
'Dim strsql1 As String
    'strsql1 = "SELECT Mid([零件位置],InStr([零件位置],'

这个单纯用sql,比较难，建议还是vba编程，循环解决。
另外，上传excel文件，转换成excel问题，可能回复的人会多些。

goodwin168

zpy2 发表于 2021-8-2 17:50
这个单纯用sql,比较难，建议还是vba编程，循环解决。
另外，上传excel文件，转换成excel问题，可能回复 ...

想学习ACCESS,VBA更好，期待你的帮忙

ly

希望提供更多有规则的信息：
如<>和（）之间的内容长度是固定的吗？
.....
规则越多，则代码写起来就简约了！

goodwin168

ly 发表于 2021-8-2 19:31
希望提供更多有规则的信息：
如和（）之间的内容长度是固定的吗？
.....

<0341012315(1/10W 10ohm F 0603)><0341012332(1/11W 10ohm F 0603)><0341012333(1/12W 10ohm F 0603)><0341012334(1/13W 10ohm F 0603)><0341012335(1/14W 10ohm F 0603)>
你好长度不固定，<0341012315(1/10W 10ohm F 0603)>这样是一组数据，<尖刮号与(刮号之前红色为新的替用料号，（）之间的蓝色为替代料的规格，长度不用管，只要依尖刮号和圆刮号来区分即可！

goodwin168

ly 发表于 2021-8-2 19:31
希望提供更多有规则的信息：
如和（）之间的内容长度是固定的吗？
.....

高手就是高手啊，回答的如些轻便！向您多学习

goodwin168

Sub test()
    Dim i%, j%, k%, arr, arr1
    arr = Sheet1.[a1].CurrentRegion
    j = 2
    For i = 2 To UBound(arr)
        With Sheets(2)
            Sheets(1).Activate
            Range(Cells(i, 2), Cells(i, 4)).Copy .Cells(j, 1)
            If InStr(arr(i, 5), "<") Then
                arr1 = Split(arr(i, 5), "<")
                .Cells(j, 4) = arr1(0): j = j + 1

                For k = 1 To UBound(arr1)
                    .Cells(j, 1) = Split(arr1(k), "(")(0)
                    .Cells(j, 2) = Split(Replace(arr1(k), ")", "("), "(")(1)
                    .Range(.Cells(j - 1, 3), .Cells(j - 1, 4)).Copy .Cells(j, 3)
                    j = j + 1
                    
                    Next
            Else
               Sheet1.Cells(i, 5).Copy .Cells(j, 4)
               j = j + 1
            End If
        End With
    Next
End Sub

这个代表怎样改成ACCESS代码？各位老师指导一下