[發問] 轉換文字形式搜尋

wayne0303

如何以公式將文字的形式轉換，然後去搜尋對照的料號呢？

謝謝

samwang

回復 1# wayne0303

不好意思看不太懂，可否解釋詳細一點，謝謝

wayne0303

回復 2# samwang

抱歉！samwang大

LR220仰角25°轉180°        →LR220/25 對照表格為左螺旋底下的213
RR230仰角30°轉180°        →RR230/30 對照表格為右螺旋底下的124
RR230仰角20°轉180°        →RR230/20 對照表格為右螺旋底下的122
R390轉90°→R390 對照表格為平彎底下的318       

用公式找出對照出來的213、124、122、318...這些數字

這樣...不知道您能看得懂嗎(汗)

samwang

回復 3# wayne0303

請測試看看，謝謝

Sub test()
Dim Arr, xD, T$, w1$, w2$, i&, j&, k%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range("d3:w16")
For i = 2 To UBound(Arr) Step 6
    k = k + 1
    For j = 1 To UBound(Arr, 2)
        T = Arr(i, j): If T = "" Then GoTo 99
        xD(T & "_" & k) = Arr(i - 1, j)
    Next j
99: Next i
Arr = Range("a5:a" & [a5].End(4).Row)
For i = 1 To UBound(Arr)
    w1 = Left(Arr(i, 1), 1)
    w2 = Mid(Arr(i, 1), 2, 1)
    If Asc(w1) > 64 And Asc(w1) < 123 And Asc(w2) > 64 And Asc(w2) < 123 Then
        If UCase(w1) = "L" Then
            T = Mid(Arr(i, 1), 2, 4) & "/" & Mid(Arr(i, 1), 8, 2) & "_" & 2
            Arr(i, 1) = xD(T)
        End If
        If UCase(w1) = "R" Then
            T = Mid(Arr(i, 1), 2, 4) & "/" & Mid(Arr(i, 1), 8, 2) & "_" & 1
            Arr(i, 1) = xD(T)
        End If
    Else
        T = Left(Arr(i, 1), 4) & "_" & 3
        Arr(i, 1) = xD(T)
    End If
Next
Range("b5").Resize(UBound(Arr)) = Arr
End Sub

hcm19522

C5=OFFSET(C$1,IF(LEFT(A5)="L",8,IF(LEFT(A5,2)="RR",2,14)),MATCH(MID(SUBSTITUTE(A5,"仰角","/"),1+(MID(A5,2,1)="R"),4+(MID(A5,2,1)="R")*3),OFFSET(D$1,IF(LEFT(A5)="L",9,IF(LEFT(A5,2)="RR",3,15)),,,20),))

wayne0303

回復 5# hcm19522

請教hcm19522大！

我是取其它工作表的資料搜尋
引用C$1、D$1會有影響嗎？因為我會出現#N/A...

wayne0303

回復 4# samwang


感謝samwang大大幫忙！！

wayne0303

回復  hcm19522

請教hcm19522大！

我是取其它工作表的資料搜尋
引用C$1、D$1會有影響嗎？因為我會出 ...
wayne0303 發表於 2021-8-21 13:57

謝謝hcm19522大大！

不好意思，我看懂了


謝謝您的幫忙！！

wayne0303

回復 5# hcm19522



不好意思要再請問一下hcm19522大！如果我的數字會到4位數那公式要怎麼改寫呢？

謝謝

wayne0303

如果是引用其它工作表為搜尋資料的情況下，有其它公式的寫法嗎？
R後數字為3~4位數

(用OFFSET的公式，必需開啟引用的工作表，不然會出現#VALUE!)