模糊匹配的取值问题

ljxy925

请求各位大神帮助,我已经想了好几天了
需求填写第三列数据
根据第一列的值,取9列中取值
举例:第一列为CF809,查找到第7列有CF809,则取第9列的值4.5;
        第一列为IC1808,查找到第7列没有有IC1808,有IC则取第9列的值0;
有点模糊匹配的意思
我原来用下面公式
=VLOOKUP(A33,$G$2:$K$32,5,0)
现在没办法了

合约	ctp保证金	开仓手续费	保证金差额	开平手续费差额	平今手续费差额	合约代码	开仓手续费(按金额)	开仓手续费(按手数)
IC1808	0.3					IC	0.0000238	0
IC1809	0.3					IF	0.0000238	0
IC1810	0.3					IH	0.0000238	0
IC1812	0.3					T	0	3.8
IC1903	0.3					TF	0	3.8
IF1808	0.15					AP	0	20.4
IF1809	0.15					CF	0	4.5
IF1810	0.15					CF809	0	4.5
IF1812	0.15					CF901	0	4.5
IF1903	0.15					CY	0	4.2
IH1808	0.15					FG	0	3.1
IH1809	0.15					JR	0	3.1
IH1810	0.15					LR	0	3.1
IH1812	0.15					MA	0	2.1
IH1903	0.15					MA809	0	6.1
T1809	0.025					MA811	0	0.51
T1812	0.025					MA903	0	0.51
T1903	0.025					MA907	0	0.51
TF1809	0.017					OI	0	2.1
TF1812	0.017					PM	0	5.2
TF1903	0.017					RI	0	2.6
TS1812	0.005					RM	0	1.6
TS1903	0.005					RS	0	2.1
TS1906	0.005					SF	0	3.1
AP810	0.17					SM	0	3.1
AP811	0.17					SR	0	3.1
AP812	0.17					TA	0	3.1
AP901	0.17					TA809	0	6.1
AP903	0.17					TA811	0	0.51
AP905	0.17					TA903	0	0.51
AP907	0.26					TA907	0	0.51
CF809	0.11					TC	0	40
CF811	0.11					WH	0	2.6
CF901	0.11					ZC	0	4.2
CF903	0.11					ZC811	0	0.51
CF905	0.11					ZC903	0	0.51
CF907	0.11					ZC907	0	0.51

sa3131

=iferror(VLOOKUP(A33,$G$2:$K$32,5,0),VLOOKUP(left(A33,2),$G$2:$K$32,5,0))

ljxy925

谢谢,回复太及时了

ljxy925

受前面大师启发
我写了一个基础版的,请大师指正

On Error Resume Next
For i = 2 To a
        Range("c" & i) = Application.VLookup(Range("a" & i), Range("o:w"), 4, False)
        If Range("c" & i) = "" Then
            Range("c" & i) = Application.VLookup(Left(Range("a" & i), 2), Range("o:w"), 4, False)
            If Range("c" & i) = "" Then
                Range("c" & i) = Application.VLookup(Left(Range("a" & i), 1), Range("o:w"), 4, False)
            End If
        End If
     ActiveCell.Offset(1, 0).Select
    Next
    On Error GoTo 0