类型不匹配Excel VBA

Question

查看以下代码：

Sub tickscale_table()

exch = Cells(I, 13).Value
Worksheets("tickscale").Activate
Range("A1").Activate


Cells.Find(What:=exch, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True _
    , SearchFormat:=False).Activate

 If ms = ActiveCell.Offset(0, 1) And cr = ActiveCell.Offset(0, 3) Then
     tickscaletype = ActiveCell.Offset(0, 4).Value2 And tickcale = ActiveCell.Offset(0,5).Value2

End If

上面是我试图运行以搜索excelsheet表中的值的代码，当在第一列中找到此值时，我搜索ms和cr的值是否满足同一行中的另一列，如果条件是我使tickscaletype和tickscale等于同一行中另一列的值。

我的类型不匹配

tickscaletype=ActiveCell.Offset(0,4).value

我已经尝试将tisckscaletype和tickscale声明为变体，范围，字符串，留空，但仍然得到错误。

Answer 1

这段代码对我来说没有意义

tickscaletype = ActiveCell.Offset(0, 4).Value2 And tickcale = ActiveCell.Offset(0,5).Value2

你应该有

tickscaletype = ActiveCell.Offset(0, 4).Value2 
tickcale = ActiveCell.Offset(0,5).Value2