Проверка ячейки не пуста в цикле If

Question

Я не могу вложиться, если L oop работает правильно.

Я хочу, чтобы данные в столбце TestTable были скопированы, ЕСЛИ там есть цифра, если ячейка пуста, я хочу, чтобы она была go для следующего i.

Никаких ошибок во время выполнения, однако, по какой-то причине он просто копирует каждую ячейку, полностью игнорируя часть NOT IsEmpty?

Sub MoveData
Dim InTbl As ListObject, TeTbl As ListObject, i As Long, LastRow As Long, AmendedCCY

Set InTbl = ThisWorkbook.Sheets("Input").Range("Input").ListObject
Set TeTbl = ThisWorkbook.Sheets("Input").Range("TestTab").ListObject
Set AmendedCCY = InTbl.ListColumns(4).DataBodyRange

LastRow = AmendedCCY.Rows.Count

    For i = 1 To LastRow

        If Not IsEmpty("Input[Amended]") Then
         TeTbl.DataBodyRange(i, 2).Value = InTbl.DataBodyRange(i, 4).Value
        End If

    Next
End Sub

Я также использовал следующее:

If ("Input[Amended]") <> "" Then

If IsEmpty("Input[Amended]") = False Then

Я предполагаю, что есть проблема с ("Ввод [исправлено]"), но я не могу понять, что.

Answer 1

"Input[Amended]" - это просто константная строка, заполненная символами, поэтому она никогда не будет пустой.

Вам необходимо получить доступ к ячейке, содержащей искомую информацию, что-то вроде:

IsEmpty(InTbl.DataBodyRange(i, 4).Value)

Очевидно, я не знаю, следует ли вам смотреть в столбце 4 или в другом, поэтому, пожалуйста, измените это значение 4 соответственно.