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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.10.2017, 19:25   #1
Sasha_Texnik
Новичок
Джуниор
 
Регистрация: 17.10.2017
Сообщений: 1
По умолчанию Добавить название столбца, в ячейку с результатом

Добрый день!
Нужно добавить название столбца в соседнюю ячейку с минимальным/максимальным значением диапазона.
Для примера написал, как это должно выглядеть (яч. P2:Q6).
Соответственно, нужно сделать это "автоматически", ибо в исходной таблице получается около 300 строк.
Заранее спасибо за помощь.
Вложения
Тип файла: xlsx Тиля.xlsx (10.6 Кб, 23 просмотров)
Sasha_Texnik вне форума Ответить с цитированием
Старый 23.11.2017, 09:38   #2
ПаВлА
Пользователь
 
Регистрация: 20.11.2017
Сообщений: 16
По умолчанию

Код:
Sub FindMin()
Dim i&, y&, kl&, lstr&, x As Range, str As Range
Application.ScreenUpdating = False
lstr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lstr
    Set str = Range(Cells(i, 1), Cells(i, 13))
    kl = Application.WorksheetFunction.CountIf(str, Cells(i, 16))
    Set x = str.Find(Cells(i, 16), , xlValues, xlWhole)
    For y = 1 To kl
        If y = 1 Then
            Cells(i, 17) = Cells(1, x.Column)
        Else
            Cells(i, 17) = Cells(i, 17) & ", " & Cells(1, x.Column)
        End If
        Set x = str.FindNext(x)
    Next
Next
Application.ScreenUpdating = True
End Sub
ПаВлА вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вставка название файла в ячейку листа gling Microsoft Office Excel 22 30.10.2018 18:22
Как записать в ячейку название книги 2 RusLAN174 Microsoft Office Excel 12 14.08.2011 09:47
Перенести название книга в ячейку drNabla Microsoft Office Excel 3 03.11.2010 21:25
Формула, возвращающая название листа в ячейку _Nina_ Microsoft Office Excel 6 24.08.2009 18:22
Как записать в ячейку название киги oks27 Microsoft Office Excel 2 24.02.2009 13:37