请高手们帮忙看看我的代码，不知道错在哪里了？谢谢了！

lbhlbh

请高手们帮忙看看我的代码，不知道错在哪里了：1、当点击表中G7单元格，弹出的下拉序列数字供选择，当选择2-27时，会在H7单元格自动显示表1 中A\B列相对应的数值（详见表1 的内容），如选 2，H7的值是“2页(B)”,以此类推。问题是当选择1时，不会自动显示1对应的内容：“1页(A)”,而是显示10对应的内容：“10页(J)”,当表1A\B列的行数少于10时，就不会出现1和10这个相混淆的错误问题。2、单元格I7和J7也是这样的问题。具体详见附件。谢谢老师们了！代码在表2：Private Sub Worksheet_Change(ByVal t As Range)    Dim R As Double
    Application.EnableEvents = False
    With Sheet3
        R = .Cells(Rows.Count, 1).End(xlUp).Row
        If t.Address = "$G$7" Or t.Address = "$I$7" Then
            A = .Range("A4" & ":A" & R).Find(t.Value).Row
            t.Offset(0, 1) = .Cells(A, "A") & "页(" & .Cells(A, "D") & ")"
        End If
    End With
    Application.EnableEvents = True
End Sub

lbhlbh

忘记发附件了，不好意思，谢谢了