Сдвиг диапазона ячеек.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Сдвиг диапазона ячеек. (Формулы/Formulas)

pavelpasha

Дата: Воскресенье, 10.05.2015, 23:47 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Довольно нестандартная задача. На скриншоте показано: В таблицу вводятся данные(обведено зеленым, с 1 по 14 строки), которые затем, приводятся в технический вид ( обведено синим,19-20 и 23 строки) путем простого приравнивания. Количество данных может меняться, но в техническом виде нельзя допустить пропусков.
Ломаю голову уже очень долго. Было бы идеально, если бы при обнаружении пропуска, ячейка просто исчезала/скрывалась, при этом остальная часть сдвигалась влево, но увы, такие маневры на сколько я знаю в программе не предусмотрены. Нужна логика вида: ЕСЛИ A11=0, то СДВИГ (B11-Q11) влево на 1 позицию. Поиск в интернете не помог, еще и потому что что очень сложно сформулировать проблему. Чаще всего натыкался на гайды по ф-ции СМЕЩ, которая мне не подходит. Вот набрел на Ваш форум, и надеюсь на помощь. Спасибо!

К сообщению приложен файл: Programma_dlya_.xlsx (28.1 Kb)

Сообщение отредактировал pavelpasha - Понедельник, 11.05.2015, 00:42

Ответить

МВТ

Дата: Понедельник, 11.05.2015, 08:00 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

Думаю, примерно так [vba]

Код

Sub DelCell()
Dim Arr
Arr = Array(19, 20, 23)
Application.ScreenUpdating = False
For i = 0 To 2
For J = Cells(Arr(i), Columns.Count).End(xlToLeft).Column To 18 Step -1
If Cells(Arr(i), J) = "" Then Cells(Arr(i), J).Delete (xlToLeft)
Next J
Next i
Application.ScreenUpdating = True
End Sub

[/vba]