types不匹配Excel VBA

看看下面的代码：

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 

上面是我试图运行的代码在Excel表格中search的代码，当在第一列find这个值我search如果ms和cr的值满足从同一行的另一列，如果条件是true我使tickscaletype和tickscale等于来自同一行中另一列的值。

我得到的types不匹配

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

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

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