Я написал эти коды 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