Выберите строку в Excel с VBA, если завершено

Question

Я хочу выбрать каждую строку, которая завершена. Так что каждый ряд, где нет пустой ячейки. Затем выбранная строка должна быть экспортирована в список sharepoint.

пока что код, который я пробовал, работает, но экспортирует всю таблицу. Я хочу добавить строку, которая выбирает и экспортирует только те строки, которые не имеют пустых ячеек.

Я имел в виду что-то вроде следующего. Но я не знаю, как выбрать целые строки из всей таблицы вместо указания ячеек.

If Cells().Value not isnull then Range().EntireColumn.Select

Sub ExportToSharePoint ()
    ActiveSheet.ListObjects("Table1").Publish Array("https://sharepoint...", "Name of the List")_, True

    ActiveCell.Select   
End Sub

Answer 1

Вы можете перебрать таблицу и получить заполненные строки, используя следующую команду:

Option Explicit
Public Sub ExportToSharePoint()
    Dim r
    With ActiveSheet.ListObjects("Table1")
        For Each r In .DataBodyRange.Rows
            If WorksheetFunction.CountA(.Parent.Range(r.Address)) = .ListColumns.Count Then
                ' Rest of your code here
            End If
        Next r
    End With
End Sub