时间戳

首页 > 解决方案 > 激活方法成功时选择方法失败！！！很奇怪

vba - 激活方法成功时选择方法失败！！！很奇怪

问题描述

我已经编写了这些 VBA 代码，除了一个问题外，它们都可以正常工作。在声明 rs.activate 我之前写过的 rs.select 没有用。

我的问题是为什么 rs.activate 在这里工作但不是 rs.select

Sub Extract_Data()

Checklist.Sheets.Add.Name = "DataNew"


Set msi = ThisWorkbook.Sheets("MS Info")
Set rs = ThisWorkbook.Sheets("Result")
Set tmp = ThisWorkbook.Sheets("Temp")

Set evd = Checklist.Sheets("Evaluation Details")
Set smm = Checklist.Sheets("Summary")


'''''''''''''''''''''''''''
'''''''few more codes''''''
'''''''''''''''''''''''''''


rs.Activate

 With rs.Range("A2:H" & Range("G" & Rows.Count).End(xlUp).Row)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
 End With


 With rs.Range("N2:P" & Range("G" & Rows.Count).End(xlUp).Row)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
 End With

'''''''''''''''''''''''''''
'''''''few more codes''''''
'''''''''''''''''''''''''''

end sub

标签： vba

解决方案

如前所述，您实际上不需要使用，.Activate因为您正在指定Range来自哪个工作表。

您可以安全地删除任何.Activateor.Select并且您的代码将起作用。

希望这可以帮助。

推荐阅读