И снова я Имеется ячеек в столбце, в котором есть пустые ячейки (файл в приложении). Я его копирую. Скажите, пожалуйста, как вставить его без пустых ячеек?
И снова я Имеется ячеек в столбце, в котором есть пустые ячейки (файл в приложении). Я его копирую. Скажите, пожалуйста, как вставить его без пустых ячеек?Фомулист
Serge_007, Не получается. Выбираю выделить константы, копирую, вставляю - вставляется весь диапазон, включая пустые ячейки. Может что не так делаю?
Serge_007, Не получается. Выбираю выделить константы, копирую, вставляю - вставляется весь диапазон, включая пустые ячейки. Может что не так делаю?Фомулист
У меня Эксель 2010 Проверил в файле ещё раз. 1) Выделяет все не пустые ячейки в файле, а мне нужен один столбец (столбец Проблема в приложенном файле) 2) В нужном столбце выделяет почти весь столбец. Что можно сделать?
У меня Эксель 2010 Проверил в файле ещё раз. 1) Выделяет все не пустые ячейки в файле, а мне нужен один столбец (столбец Проблема в приложенном файле) 2) В нужном столбце выделяет почти весь столбец. Что можно сделать?Фомулист
Sub Без_пустых() Dim r&, nr&, arr arr = Range("H3:H" & Cells(Rows.Count, 8).End(xlUp).Row) ReDim b(1 To UBound(arr), 1 To 1) For r = 1 To UBound(arr) If arr(r, 1) <> "" Then nr = nr + 1 b(nr, 1) = arr(r, 1) End If Next r Range("G3").Resize(nr) = b End Sub
[/vba]
Фомулист, проверяйте: [vba]
Код
Sub Без_пустых() Dim r&, nr&, arr arr = Range("H3:H" & Cells(Rows.Count, 8).End(xlUp).Row) ReDim b(1 To UBound(arr), 1 To 1) For r = 1 To UBound(arr) If arr(r, 1) <> "" Then nr = nr + 1 b(nr, 1) = arr(r, 1) End If Next r Range("G3").Resize(nr) = b End Sub