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

Вход

Регистрация

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

 

= Мир MS Excel/Добавление ячеек, в зависимости от количества других ячеек - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавление ячеек, в зависимости от количества других ячеек (Формулы/Formulas)
Добавление ячеек, в зависимости от количества других ячеек
yurikfirst Дата: Понедельник, 05.02.2018, 15:31 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте, уважаемые форумчане! Я искал по ключевым словам по своей проблеме, но не нашел похожего решения(или может не так названо оно). Может кто знает, как решить эту задачу??
Нужно автоматизировать процесс вырезания ячеек и копирования с добавлением ячеек, взависимости от кол-ва других ячеек.
Наглядность задачи в файле.
К сообщению приложен файл: dobavlenie_yach.xls(11.5 Kb)


*****Меньше телодвижений - больше времени на отдых*****

Сообщение отредактировал yurikfirst - Понедельник, 05.02.2018, 15:35
 
Ответить
СообщениеЗдравствуйте, уважаемые форумчане! Я искал по ключевым словам по своей проблеме, но не нашел похожего решения(или может не так названо оно). Может кто знает, как решить эту задачу??
Нужно автоматизировать процесс вырезания ячеек и копирования с добавлением ячеек, взависимости от кол-ва других ячеек.
Наглядность задачи в файле.

Автор - yurikfirst
Дата добавления - 05.02.2018 в 15:31
Russel Дата: Понедельник, 05.02.2018, 16:07 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1292
Репутация: 293 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Макрос на соседнем форуме.


QIWI 9173973973
 
Ответить
СообщениеДобрый день!
Макрос на соседнем форуме.

Автор - Russel
Дата добавления - 05.02.2018 в 16:07
sboy Дата: Понедельник, 05.02.2018, 16:12 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2020
Репутация: 578 ±
Замечаний: 0% ±

Excel 2010
Добрый день
[vba]
Код
Option Base 1
Sub dobav()
Dim result1()
Dim result2()
ReDim result1(1)
ReDim result2(1)
    For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        arr = Range(Cells(r, 1), Cells(r, Columns.Count).End(xlToLeft)).Value
            For i = 2 To UBound(Application.Transpose(arr))
                n = n + 1
                result1(n) = Cells(r, 1).Value
                result2(n) = arr(1, i)
                ReDim Preserve result1(UBound(result1) + 1)
                ReDim Preserve result2(UBound(result2) + 1)
            Next i
    Next
    Cells(r + 3, 1).Resize(UBound(result1), 1) = Application.Transpose(result1)
    Cells(r + 3, 2).Resize(UBound(result2), 1) = Application.Transpose(result2)
End Sub
[/vba]
К сообщению приложен файл: 4524901.xls(42.5 Kb)
 
Ответить
СообщениеДобрый день
[vba]
Код
Option Base 1
Sub dobav()
Dim result1()
Dim result2()
ReDim result1(1)
ReDim result2(1)
    For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        arr = Range(Cells(r, 1), Cells(r, Columns.Count).End(xlToLeft)).Value
            For i = 2 To UBound(Application.Transpose(arr))
                n = n + 1
                result1(n) = Cells(r, 1).Value
                result2(n) = arr(1, i)
                ReDim Preserve result1(UBound(result1) + 1)
                ReDim Preserve result2(UBound(result2) + 1)
            Next i
    Next
    Cells(r + 3, 1).Resize(UBound(result1), 1) = Application.Transpose(result1)
    Cells(r + 3, 2).Resize(UBound(result2), 1) = Application.Transpose(result2)
End Sub
[/vba]

Автор - sboy
Дата добавления - 05.02.2018 в 16:12
yurikfirst Дата: Понедельник, 05.02.2018, 18:38 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Russel, полезный макрос, действительно, правда у меня создается новый лист, и там пусто.. я его еще изучу, спасибо!!
specool


*****Меньше телодвижений - больше времени на отдых*****
 
Ответить
СообщениеRussel, полезный макрос, действительно, правда у меня создается новый лист, и там пусто.. я его еще изучу, спасибо!!
specool

Автор - yurikfirst
Дата добавления - 05.02.2018 в 18:38
yurikfirst Дата: Понедельник, 05.02.2018, 18:41 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, а вот это уже самое то! Я просто подставил весь массив данных, которые нужно было скомпоновать и произошло чудо! yahoo
clap victory
Спасибо!!!


*****Меньше телодвижений - больше времени на отдых*****
 
Ответить
Сообщениеsboy, а вот это уже самое то! Я просто подставил весь массив данных, которые нужно было скомпоновать и произошло чудо! yahoo
clap victory
Спасибо!!!

Автор - yurikfirst
Дата добавления - 05.02.2018 в 18:41
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавление ячеек, в зависимости от количества других ячеек (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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