Как можно из выделенного столбца каждую вторую ячейку перенести на столбец вправо и на ячейку вверх?

@breka · Регистрация: 28.04.2009

До вчерашнего дня ни VBA ни excel-ными макросами не интересовался, да и не надо было, а вот приспичило. Объясните как можно из выделенного столбца каждую вторую ячейку перенести на столбец вправо и на ячейку вверх???? т.е.
12 12 13
13
14 => 14 15
15
16 16

вроде того...
Заранее благодарен.

@brovey · 28.04.2009, 21:22

Visual Basic

Sub vp()
 tsto = Selection.Column - 1 'определяем номер столбца, предшествующего выделенному
 i = 1
 While Range('A1').Offset(i, tsto).Value <> '' 'крутим цикл до первой пустой ячейки
  Range('A1').Offset(i - 1, tsto + 1).Value = Range('A1').Offset(i, tsto).Value 'производим перестановку
  Range('A1').Offset(i, tsto).Value = '' 'удаляем значение в каждой второй ячейке
  i = i + 2 'наращиваем цикл
 Wend
End Sub

@breka 0 / 0 / 0 Регистрация: 28.04.2009 Сообщений: 5
		1
	Как можно из выделенного столбца каждую вторую ячейку перенести на столбец вправо и на ячейку вверх? 28.04.2009, 12:05. Показов 10403. Ответов 1 Метки нет (Все метки) До вчерашнего дня ни VBA ни excel-ными макросами не интересовался, да и не надо было, а вот приспичило. Объясните как можно из выделенного столбца каждую вторую ячейку перенести на столбец вправо и на ячейку вверх???? т.е. 12 12 13 13 14 => 14 15 15 16 16 вроде того... Заранее благодарен. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы