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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для вывода количества строк - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос для вывода количества строк (Формулы/Formulas)
Макрос для вывода количества строк
corp-ipgoltsovvladimiriur Дата: Четверг, 16.01.2025, 11:17 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

5
Здравствуйте! Помогите пожалуйста сделать макрос или возможно есть какая то формула. В прикрепленном файле макрос который преобразует строки с одинаковыми значениями в общее количество справа. Нужен макрос с обратным действием, который общее количество раскидывал на такое же количество строк.
К сообщению приложен файл: macro_v.xlsm (29.2 Kb)
 
Ответить
СообщениеЗдравствуйте! Помогите пожалуйста сделать макрос или возможно есть какая то формула. В прикрепленном файле макрос который преобразует строки с одинаковыми значениями в общее количество справа. Нужен макрос с обратным действием, который общее количество раскидывал на такое же количество строк.
Автор - corp-ipgoltsovvladimiriur
Дата добавления - 16.01.2025 в 11:17
Nic70y Дата: Четверг, 16.01.2025, 12:17 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9043
Репутация: 2382 ±
Замечаний: 0% ±

Excel 2010
формула
Код
=ЕСЛИ(--ПОДСТАВИТЬ(ВПР(A1;E:F;2;);F$1;0)>СТРОКА()-ПОИСКПОЗ(A1;A$1:A1;);A1;ИНДЕКС(E:E;ПОИСКПОЗ(A1;E:E;)+1))
макрос
[vba]
Код
Sub u_14()
    Application.ScreenUpdating = False
    a = Cells(Rows.Count, "e").End(xlUp).Row
    If a > 1 Then
        b = Cells(Rows.Count, "c").End(xlUp).Row + 1
        Range("c2:c" & b).Clear
        For c = 2 To a
            d = Range("f" & c).Value
            e = Cells(Rows.Count, "c").End(xlUp).Row + 1
            f = d + e - 1
            Range("e" & c).Copy Range("c" & e & ":c" & f)
        Next
    End If
End Sub
[/vba]
К сообщению приложен файл: macro_w.xlsm (30.8 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщениеформула
Код
=ЕСЛИ(--ПОДСТАВИТЬ(ВПР(A1;E:F;2;);F$1;0)>СТРОКА()-ПОИСКПОЗ(A1;A$1:A1;);A1;ИНДЕКС(E:E;ПОИСКПОЗ(A1;E:E;)+1))
макрос
[vba]
Код
Sub u_14()
    Application.ScreenUpdating = False
    a = Cells(Rows.Count, "e").End(xlUp).Row
    If a > 1 Then
        b = Cells(Rows.Count, "c").End(xlUp).Row + 1
        Range("c2:c" & b).Clear
        For c = 2 To a
            d = Range("f" & c).Value
            e = Cells(Rows.Count, "c").End(xlUp).Row + 1
            f = d + e - 1
            Range("e" & c).Copy Range("c" & e & ":c" & f)
        Next
    End If
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 16.01.2025 в 12:17
corp-ipgoltsovvladimiriur Дата: Пятница, 17.01.2025, 09:28 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

5
Nic70y, Здравствуйте. Спасибо за помощь. Не очень хорошо владеем данной программой и не совсем поняли что куда вставлять. Для примера сделали файл что есть и что нужно получить. Если Вас не затруднит, можете ли вставить данную формулу в прикрепленный файл? Заранее спасибо
К сообщению приложен файл: arbuzy.xlsx (8.6 Kb)
 
Ответить
СообщениеNic70y, Здравствуйте. Спасибо за помощь. Не очень хорошо владеем данной программой и не совсем поняли что куда вставлять. Для примера сделали файл что есть и что нужно получить. Если Вас не затруднит, можете ли вставить данную формулу в прикрепленный файл? Заранее спасибо
Автор - corp-ipgoltsovvladimiriur
Дата добавления - 17.01.2025 в 09:28
Nic70y Дата: Пятница, 17.01.2025, 09:47 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9043
Репутация: 2382 ±
Замечаний: 0% ±

Excel 2010
corp-ipgoltsovvladimiriur, для упрощения формулы, можно начать со второй* строки, а в первой сделать прямую ссылку,
что бы не зависеть от заголовков
К сообщению приложен файл: arbuzy18.xlsx (10.5 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщениеcorp-ipgoltsovvladimiriur, для упрощения формулы, можно начать со второй* строки, а в первой сделать прямую ссылку,
что бы не зависеть от заголовков
Автор - Nic70y
Дата добавления - 17.01.2025 в 09:47
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос для вывода количества строк (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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