Форум по Эксель

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Форум по Эксель » Форум по Excel » как пропустить пустые ячейки


как пропустить пустые ячейки

Сообщений 1 страница 3 из 3

1

Есть столбец "А" с данными, но данные идут не подряд, а вразнобой, т.е. 1 ячека с данными следующие 4 пустые, затем опять с данными, следующие 3 пустые и т.д. закономерности нет. Нужна формула, чтобы например эти данные копировались в соседний столбец "B" и причём без пустот - друг за другом, т.е. формулой можно заполнить весь диапазон столбца "B" и когда появляется в столбце "А" следующее значение, то оно сразу копируется в "B", но только друг за другом без пустых строк.
Заранее спасибо.

0

2

Нужно именно формулами? Или макрос покатит? Если да, то для начальной обработки(увас уже введены данные в столбец А)
Public Sub KuklP()
Dim i As Long, Lr As Long
[A:A].Copy [B:B]
Lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = Lr To 1 Step -1
If IsEmpty(Cells(i, 2)) Then Cells(i, 2).Delete xlUp
Next
End Sub
После этого макрос можно удалить.

Далее в модуль листа:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lr As Long
If Target.Column <> 1 Then Exit Sub
Lr = Cells(Rows.Count, 2).End(xlUp).Row
Cells(Lr + 1, 2) = Target
End Sub

Все. Макросы должны быть включены.

Отредактировано kuklp (2010-08-10 09:25:15)

0

3

Тема перенесена на http://excel.ucoz.ru/forum/2-17-1

0


Вы здесь » Форум по Эксель » Форум по Excel » как пропустить пустые ячейки