Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/вставка строки со значением при условии - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » вставка строки со значением при условии (Макросы/Sub)
вставка строки со значением при условии
Dimon_N Дата: Воскресенье, 22.03.2015, 14:04 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый нужно решение как говориться еще вчера, сам в этом ничего не понимаю. Файл с исходными данными и то что должно получиться во вложении


Сообщение отредактировал Dimon_N - Воскресенье, 22.03.2015, 14:08
 
Ответить
СообщениеДобрый нужно решение как говориться еще вчера, сам в этом ничего не понимаю. Файл с исходными данными и то что должно получиться во вложении
Автор - Dimon_N
Дата добавления - 22.03.2015 в 14:04
Dimon_N Дата: Воскресенье, 22.03.2015, 14:06 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
фаил с исходными данными
К сообщению приложен файл: 0883057.xlsx (18.5 Kb)


Сообщение отредактировал Dimon_N - Воскресенье, 22.03.2015, 14:07
 
Ответить
Сообщениефаил с исходными данными
Автор - Dimon_N
Дата добавления - 22.03.2015 в 14:06
Dimon_N Дата: Воскресенье, 22.03.2015, 14:07 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
фаил что должно получиться
К сообщению приложен файл: 6062162.xlsx (20.0 Kb)
 
Ответить
Сообщениефаил что должно получиться
Автор - Dimon_N
Дата добавления - 22.03.2015 в 14:07
nilem Дата: Воскресенье, 22.03.2015, 15:54 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Цитата Dimon_N, 22.03.2015 в 14:04, в сообщении № 1
Добрый нужно решение как говори...

Добрый вот
[vba]
Код
Sub ertert()
Dim x, y(), i&, j&, k&, n&
x = Range("A1").CurrentRegion.Value
ReDim y(1 To 500000, 1 To 4)
For i = 2 To UBound(x)
     For j = 4 To UBound(x, 2)
         For k = 1 To x(i, j)
             n = n + 1
             y(n, 1) = x(i, 1)
             y(n, 2) = x(i, 2)
             y(n, 3) = x(i, 3)
             y(n, 4) = x(1, j)
         Next k
     Next j
Next i
Range("Q2:T2").Resize(n).Value = y
End Sub
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
Сообщение
Цитата Dimon_N, 22.03.2015 в 14:04, в сообщении № 1
Добрый нужно решение как говори...

Добрый вот
[vba]
Код
Sub ertert()
Dim x, y(), i&, j&, k&, n&
x = Range("A1").CurrentRegion.Value
ReDim y(1 To 500000, 1 To 4)
For i = 2 To UBound(x)
     For j = 4 To UBound(x, 2)
         For k = 1 To x(i, j)
             n = n + 1
             y(n, 1) = x(i, 1)
             y(n, 2) = x(i, 2)
             y(n, 3) = x(i, 3)
             y(n, 4) = x(1, j)
         Next k
     Next j
Next i
Range("Q2:T2").Resize(n).Value = y
End Sub
[/vba]
Автор - nilem
Дата добавления - 22.03.2015 в 15:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » вставка строки со значением при условии (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!