搜索excel列单元格值

Question

Dim cmdString As String
Dim apptype As String

cmdString = InputBox("Enter Application type")

For Each Cl In ActiveSheet.Range("F3:Q54")
  If Cl.Value = cmdString Then
    Exit For
  End If
Next Cl

代码获取该列值，但我想获得同一行的另一个列单元格值。我该怎么做？

Answer 1

您可以使用Offset属性访问相对于当前单元格的单元格：

...
If Cl.Value = cmdString Then
  otherValue = Cl.Offset(0, num).Value
  Exit For
End If
...

其中num是另一个单元所在列的偏移量（当前单元格左侧列的负数，当前单元格右侧列的正数）。