Question

我正在尝试建立一个代码，该代码将使用find函数查找一个单元格，然后在该列中选择另一个单元格。我将列号存储为变量，然后尝试使用该变量将其移动到同一列中的单元格，但它不起作用。

我尝试更改它，以便将列存储为字符串而不是整数，并尝试使用.Cells方法，但均无效。

Dim numCol As String

Cells.Find(what:="e", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= 
_
    False, SearchFormat:=False).Activate

numCol = ActiveCell.Column

Range(numCol & "4").Select

从最后一行代码中获取1004“对象全局失败的方法范围”错误。

Answer 1

这是您查询中一些经过修改的代码，可能很有用。您想尝试使用properties of the range。在下面的示例中，我定义了一个范围，即找到的单元格fcell。您可以在那里做的几个例子。

Dim numCol As Long
Dim fcell As Range

'this will find the cell and set it as a variable of fcell
Set fcell = Cells.Find(what:="e", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

'you can select it
fcell.Select

'you can select the whole column
fcell.EntireColumn.Select

 'you can select the column number (if one column)
 numCol = fcell.Column

'you can return the address
MsgBox "the address is " & fcell.Address

祝你好运。

尝试选择一个具有变量作为列号的单元格

1 个答案: