返回列表 上一主題 發帖

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

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

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

謝謝

活頁簿2.rar (10.26 KB)

回復 1# wayne0303

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

TOP

回復 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...這些數字

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

TOP

回復 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

TOP

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),))
隨意窩 "EXCEL迷"  blog  或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

TOP

回復 5# hcm19522

請教hcm19522大!

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

TOP

回復 4# samwang


感謝samwang大大幫忙!!

TOP

回復  hcm19522

請教hcm19522大!

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



謝謝hcm19522大大!

不好意思,我看懂了


謝謝您的幫忙!!

TOP

回復 5# hcm19522



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

謝謝

TOP

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

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

TOP

        靜思自在 : 人生沒有所有權,只有生命的使用權。
返回列表 上一主題