vb.net заменить метод скрыть предупреждения

Question

У меня есть следующая простая строка кода

           oBook.Sheets(sht).Range("A3:" & letter & lrow).Replace("N/A", "")

, но когда на листе нет текста, приложение Excel выводит предупреждение:

"мы не можем найтичто-нибудь заменить ... "

Есть ли способ избежать этого сообщения ??Я уже попробовал

          application.screenupdating = false and xlApp.DisplayAlerts = False

Answer 1

А как насчет цикла и проверки каждой отдельной ячейки в вашем диапазоне, состоящей из нескольких ячеек?

Dim RnG As Range

For Each RnG In oBook.Sheets(sht).Range("A3:" & letter & lrow)
    If InStr(1, RnG, "CA", vbTextCompare) > 0 Then RnG.Replace "N/A", ""
Next RnG

Answer 2

Попробуйте это (подставив в значения диапазона и, возможно, «ActiveSheet» переменную «sht»);

Dim strReplace As String
strReplace = "N/A"

Dim strReplaceWith As String
strReplaceWith = ""

ActiveSheet.Range("A3:A15").Cells.Replace strReplace, strReplaceWith

Предполагая, что вы делаете это в VBA, но не VB.NET из-зана строки обновления экрана и отображения.