Question

摘要：我正在编写一个宏，它从excel文件中的许多不同工作表中获取名称，并在“主列表”中将它们一起编译，但我在引用单元格时遇到问题另一张纸。

问题：当我使用工作表名称作为Sheets("MasterList").ActiveCell.Offset(0, 1)的参考来引用特定单元格时，没有任何内容被拾取。但是，当我删除Sheets("MasterList")时，宏工作正常（宏当前在“MasterList”上，这是唯一可行的方法）。此外，我的代码中表格的拼写是正确的。

问题：为什么会这样？代码背后的逻辑似乎很合理，我正确拼写我的工作表名称。

代码：

Do              

   If Sheets("MasterList").ActiveCell.Offset(0, 1) = firstName Then        'IF FIRST AND LAST NAMES MATCH, EXIT THE CHECK

          Exit Do

   End If

   On Error Resume Next

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

Loop Until Err.Number > 0

Answer 1

ActiveCell是Application对象的属性，而不是Sheet。

只有一个ActiveCell，它是当前活动工作表上的活动单元格。

目前还不完全清楚你要做什么。但一般来说，您应该使用此类代码避免使用Select和Activate。请使用类似的东西：

Dim wsMasterList as Worksheet
Set wsMasterList = Thisworkbook.WorkSheets("MasterList")  ' assuming the vba code is in the workbook containing MasterList

要跟踪MasterList中最后使用的单元格，请使用类似

的变量

Dim rMasterList as Range
Set rMasterList = wsMasterList.Cells( ...  ' Specify the cell you want

然后使用rMasterList.Offset(0, 1)来引用相对于该单元格的单元格

使用MasterList搜索：

Dim cl as Range
Set cl = wsMasterList.UsedRange.Find( ... )
If Not cl Is Nothing Then
    ' cl will be Nothing if the search term is not found
    ' ...

VBA引用使用“工作表名称”无法正常工作的单元格

1 个答案: