數(shù)據(jù)拆分提取，難度有點(diǎn)大請大家?guī)兔?/span>

GOODWIN

整理前數(shù)據(jù)：

MV站別	料號	規(guī)格	用量	零件位置	零件類型	料架類型	S
Z-01	0341-012-306	1/10W  10ohm F 0603	3	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)>	1608R	8*4P
Z-04	0341-041-306	1/10W  1Kohm F 0603	11	R638,R742,R746,R785     <0341041332(1/10W 11Kohm F 0603)>     <0341041333(1/10W 1Kohm F 0603)	1608R	8*4P
Z-85	2610-049-742	M24C02-WMN6TP	1	IC603<2610-049-755(M24C02-WMN8TP)>	SOIC-8P	12*8E
Z-86	2610-894-137	PIC18F26K22T-I/SS	1	IC803	SOIC-28P	16*12E
Z-87	2610-756-437	DSPIC33FJ64GS606T-I/PT	1	IC703	QFP-64P	24*16E

整理后數(shù)據(jù)：

料號	規(guī)格	用量	零件位置	S
0341-012-306	1/10W  10ohm F 0603	3	R816,R861,R897
0341012315	1/10W  10ohm F 0603	3	R816,R861,R897	S
0341012332	1/10W  11ohm F 0603	3	R816,R861,R897	S
0341012333	1/10W  12ohm F 0603	3	R816,R861,R897	S
0341012334	1/10W  13ohm F 0603	3	R816,R861,R897	S
0341012335	1/10W  14ohm F 0603	3	R816,R861,R897	S
0341-041-306	1/10W  1Kohm F 0603	11	R638,R742,R746,R785
0341041332	1/10W  11Kohm F 0603)	11	R638,R742,R746,R785	S
0341041333	1/10W  1Kohm F 0603	11	R638,R742,R746,R785	S
2610-049-742	M24C02-WMN6TP	1	IC603
2610-049-755	M24C02-WMN8TP	1	IC603	S
2610-894-137	PIC18F26K22T-I/SS	1	IC803
2610-756-437	DSPIC33FJ64GS606T-I/PT	1	IC703

需要將替代的物料與原物料一起提取出來顯示，并對提取的物料在S列進(jìn)行標(biāo)注S，表示該物料為替代料

位置說明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個替代物料，紅色代表第一個替代料，藍(lán)色代表第一替代料的規(guī)格，依照<()>來區(qū)分一共有幾個，對替代物料進(jìn)行分解顯示，并在分解后的替代物料S欄用S表示己分解的替代料

GOODWIN

    Dim strsql1 As String
    strsql1 = "SELECT Mid([零件位置],InStr([零件位置],'<')+1,(InStr([零件位置],'(')-1)-(InStr([零件位置],'<'))) " _
    & "AS 料號, Mid([零件位置],InStr([零件位置],'(')+1,(InStr([零件位置],')')-1)-(InStr([零件位置],'('))) " _
    & "AS 規(guī)格, 整理前.用量, Mid([零件位置],1,InStr([零件位置],'<')-2) " _
    & "AS 整理后零件位置 INTO 整理后 " _
    & "FROM 整理前 " _
    & "WHERE (((InStr([零件位置],'<'))>0))"
    DoCmd.RunSQL strsql1
這樣執(zhí)行只能處理一個<()>內(nèi)的數(shù)據(jù)，當(dāng)有多個時就只能保留第一個

麻煩各位老師幫忙解決，謝謝

GOODWIN

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的代碼？

Henry D. Sy

看不懂

accessir

給你一個例子，供參考。

GOODWIN

accessir 發(fā)表于 2021-8-12 14:00
給你一個例子，供參考。

謝謝大神的指導(dǎo)，己完美解決！感謝

lingjiang

學(xué)習(xí)

灰太郎

收到