Условие: ЕСЛИ ячейка непустая, то ... - как?

[Brandon Skywalker]

на листе А имеется таблица. На листе Б - выборочные строки этой таблицы. Нужно пройтись по столбцу X таблицы А, и если ячейка непустая, то скопировать всю строку в таблицу Б. Как это будет выглядеть на VBA?

[IgorGO]

приблизительно так:

Sub CopyNoBlank()
  X = 6
  Application.Union(Columns(X).SpecialCells(2), Columns(X).SpecialCells(-4123)).EntireRow.Copy Destination:=Sheets(2).[a1]
End Sub

[Brandon Skywalker]

IgorGO, как вы обошлись без цикла? Ведь нужно последовательно перебрать все ячейки в столбце. Если в ячейке что-то есть, то скопировать ВСЮ строку на другой лист.
ЗЫ У меня не работает, выдает ошибку 1004.

[kuklp]

Игорь, так можно, если уверен, что есть и константы и формулы. Вариант:

Sub CopyRows()
    Dim c As Range
    Set c = [f:f].Find(what:="", LookAt:=xlWhole)
    [f:f].ColumnDifferences(c).EntireRow.Copy Sheets(2).[a1]
End Sub

Вариант Игоря можно так:

Sub CopyNoBlank()
    Dim c As Range: X = 6: On Error Resume Next
    Set c = Columns(X).SpecialCells(2)
    If Not c Is Nothing Then
        Set c = Application.Union(c, Columns(X).SpecialCells(-4123))
    Else
        Set c = Columns(X).SpecialCells(-4123)
    End If
    c.EntireRow.Copy Destination:=Sheets(2).[a1]
End Sub

[IgorGO]

Brandon Skywalker, приведенный мною пример кода будет работать если в столце Х таблицы А есть хоть одна формула и хоть одна константа - то все будет работать. Если формул нет - впишите в одну из ячеек вместо находящегося там значения значения формулу =значение. И все заработает.
или если в стобце только константы:

Sub CopyNoBlank()
  X = 6
  Columns(X).SpecialCells(2).EntireRow.Copy Destination:=Sheets(2).[a1]
End Sub

а если только формулы:

Sub CopyNoBlank()
  X = 6
  Columns(X).SpecialCells(-4123).EntireRow.Copy Destination:=Sheets(2).[a1]
End Sub

Сережа, это понятно, спасибо!. Человек задал общий вопрос - получил общий ответ. при желании он мог из ответа выбрать подходящюю для себя часть.

[kuklp]

Игорь, я по этому:

Сообщение от Brandon Skywalker

IgorGO, как вы обошлись без цикла? Ведь нужно последовательно перебрать все ячейки в столбце.

понял, что он не мог из ответа выбрать подходящюю для себя часть:-)

[Brandon Skywalker]

Спасибо, друзья, работает! А можно разжевать мезанизм программы? Что за числа -4123, операторы SpecialCells, EntireRow?

[EducatedFool]

А можно разжевать мезанизм программы?

Предлагаете всю справку по VBA вам здесь переписать?
Неужто сложно поставить курсор на непонятное слово в коде, и нажать F1?

[IgorGO]

ключевая функция тут SpecialCells - читайте справку по ней.
Там же прочитаете о XlCellType.

Успехов!

[Amaus]

Игорь, подскажите, пожалуйста, как залить цветом все непустые ячейки в определенном диапазоне? Формат данных при этом может быть разный (и текст, и число и дата).