Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.03.2011, 13:50   #1
sweyle
 
Регистрация: 23.03.2011
Сообщений: 4
По умолчанию Пересчет массива

Здравствуйте помогите написать макрос для пересчета массива:
1 надо чтобы в ячейке А2 была разность А3-А2, В2=В3-В2,.....,N2=N3-N2...
...в ячейке А3=А4-А3,.....,N3=N4-N3 и так далее пока не закончатся строчки с данными....
2 ширина массива постоянна (A-N), длина массива бесконечна, сейчас заканчивается на 33, а будет и на 1000 и на 3000 и тд.
3 после завершения пересчета удалить последнюю строчку, так как данные в ней будут не корректны.
Изображения
Тип файла: gif chf1.GIF (55.5 Кб, 64 просмотров)
sweyle вне форума Ответить с цитированием
Старый 23.03.2011, 17:49   #2
nilem
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 616
По умолчанию

Так? Новый массив пишем рядом, начиная с Р2:
Код:
Sub rtyrty()
Dim x, y(), i As Long, j As Long
x = Range("A2:N" & Cells(Rows.Count, 1).End(xlUp).Row).Value
ReDim y(1 To UBound(x) - 1, 1 To 14)
For i = 1 To UBound(x) - 1
    For j = 1 To 14
        y(i, j) = x(i + 1, j) - x(i, j)
    Next j
Next i
[p2].Resize(i - 1, 14).Value = y
End Sub
nilem вне форума Ответить с цитированием
Старый 24.03.2011, 11:46   #3
sweyle
 
Регистрация: 23.03.2011
Сообщений: 4
По умолчанию

Огромное спасибо, я не ожидал что так быстро кто-нибудь ответит.
Немножко не так как я хотел, но так тоже все прекрасно работает, я просто дописал код чтобы удалять старый массив.
Еще раз огромное спасибо!
sweyle вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С++ Пересчет фунтов. Усложненная! Fier Помощь студентам 2 12.02.2011 23:11
Пересчет формул Uralmaster Microsoft Office Excel 4 03.02.2011 13:00
Пересчет даты atenon Microsoft Office Access 3 10.12.2010 19:17
пересчет данных в таблице по примеру. vkopitsa Microsoft Office Word 7 14.03.2010 11:39
пересчет таблицы с использованием макроса shematov Microsoft Office Excel 14 02.09.2008 11:24