Функция InStr - введите параметр поиска

Да, используйте элемент <supportedRuntime> в файле .exe.config. Например:

<configuration>
   <startup>
      <supportedRuntime version="v2.0.50727"/>
   </startup>
</configuration>
0
задан Pᴇʜ 19 March 2019 в 08:58
поделиться

2 ответа

Просто используйте term = Worksheets("Sheet1").Cells(1, 1).Value

Sheets коллекция содержит также диаграммы и т. Д., Поэтому лучше использовать worksheets IMO.

Кроме того, не используйте Select, поскольку это плохая практика ( Избегайте использования SELECT или ACTIVATE )

0
ответ дан Michał Turczyn 19 March 2019 в 08:58
поделиться

Вы можете попробовать следующее:

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]

0
ответ дан Error 1004 19 March 2019 в 08:58
поделиться
Другие вопросы по тегам:

Похожие вопросы: