Показать сообщение отдельно
Старый 27.06.2014, 10:00   #1
dark
Читодел
Аватар для dark
OFFLINE
Регистрация: 09.04.2007
Сообщений: 965
Благодарностей:
36,577 всего
Мнения: + 37726
Репутация: 116394
Отправить сообщение для dark с помощью ICQ Отправить сообщение для dark с помощью Skype™

Помощь с excel


Пацаны, кто тут гуру в экселе? Подскажите нубу.. Есть такого плана таблица:



Надо её продлить (размножить) вниз с сохранением пустых ячеек и инкрементом всех значений. То есть в идеале вот так:



Когда беру, растягиваю, получаю вот такую грустную картину:




Подскажите, что тут не так или дайте ещё вариантов решения задачи.

Добавлено через 1 час 10 минут
Решил задачу вот таким нубокодом

Код:
Sub Primer()
    Dim offset1 As Integer
    Dim offset2 As Integer
    Dim offset3 As Integer
    Dim offset4 As Integer

    offset1 = 6
    offset2 = 12
    offset3 = 15
    offset4 = 18
    

  For i = 1 To 98 Step 1

    Cells(offset1 + 23, 5) = Cells(offset1, 5) + 4
    Cells(offset2 + 23, 5) = Cells(offset2, 5) + 4
    Cells(offset3 + 23, 5) = Cells(offset3, 5) + 4
    Cells(offset4 + 23, 5) = Cells(offset4, 5) + 4
    
    
    offset1 = offset1 + 23
    offset2 = offset2 + 23
    offset3 = offset3 + 23
    offset4 = offset4 + 23
    

  Next i



End Sub

Последний раз редактировалось dark; 27.06.2014 в 11:11. Причина: Добавлено сообщение

Cheats Development | Создание читов на заказ

Я не оказываю услуги гаранта!
База данных кидал: blacklist.rf-cheats.ru
Обязательно проверяйте человека через чёрный список прежде чем совершать с ним сделку.
 
Ответить с цитированием