Да, используйте элемент <supportedRuntime>
в файле .exe.config. Например:
<configuration>
<startup>
<supportedRuntime version="v2.0.50727"/>
</startup>
</configuration>
Просто используйте term = Worksheets("Sheet1").Cells(1, 1).Value
Sheets
коллекция содержит также диаграммы и т. Д., Поэтому лучше использовать worksheets
IMO.
Кроме того, не используйте Select
, поскольку это плохая практика ( Избегайте использования SELECT или ACTIVATE )
Вы можете попробовать следующее:
Option Explicit
Sub test()
With ThisWorkbook.Worksheets("Sheet1")
If InStr(1, .Range("A1").Value, "@@@") = 0 Then
.Rows(1).EntireRow.Delete
End If
End With
End Sub
Примечание: Если вы планируете цикл и если условие удовлетворяет удалению строки, вы должны цикл снизу вверх. 112]