Удаление требуемых объектов

Я выполняю функцию удаления, и я попытался удалить «требуемый объект» всякий раз, когда нет или недействительный ввод пользователя.

Однако, когда я это делаю, он не выполняет действие удаления.

Мне нужна помощь, чтобы исправить мою ошибку!

Sub deletetry2() Dim R As Range On Error Resume Next Set R = Application.InputBox("Select cells To be deleted", , , , , , , 8) On Error GoTo 0 If TypeName(rng) <> "Range" Then MsgBox "Cancelled", vbInformation Exit Sub Else R.delete End If End Sub 

Вы переменные ( R и rng ) несовместимы, вы должны использовать
If TypeName(R) <> "Range" Then

Тем не менее, предлагаю вам попробовать проверить допустимый диапазон, как показано ниже:

  Dim R As Range On Error Resume Next Set R = Application.InputBox("Select cells To be deleted", , , , , , , 8) On Error GoTo 0 If R Is Nothing Then MsgBox "Cancelled", vbInformation Exit Sub Else R.Delete End If 
Interesting Posts
Давайте будем гением компьютера.