Браво, Билял! Реально актуально, ёмко, идеально выверено и преподнесено!!! Спасибо за урок! Вижу, что коллег интересуют все больше вопросы работы с «умными таблицами»: и действительно, на просторах интернета эти таблицы только восхваляются, в основном; но найти порой конкретное решение по манипуляциям с ними в решении разных задач - это проблема! У Вас есть замечательные видео об этих умных таблицах, но было бы просто супер, если бы Вы более глубоко коснулись трюков по решению разных задач: это - как предложение!) Спасибо заранее, буду ждать с нетерпением.
Пользуйтесь словарями и массивами. Так и быстрее и правильнее. Public Sub pUniqueValue() Dim lo As ListObject Dim iC As Long Dim vArray As Variant Dim UniqueV As Scripting.Dictionary Set lo = ThisWorkbook.Worksheets("ww").ListObjects("tt") Set UniqueV = New Scripting.Dictionary ReDim vArray(1 To lo.ListColumns(1).DataBodyRange.Count) vArray = lo.ListColumns(16).DataBodyRange.Value2 For iC = 1 To UBound(vArray) If Not UniqueV.Exists(vArray(iC, 1)) Then UniqueV.Add Key:=vArray(iC, 1), Item:=vArray(iC, 1) End If Next iC ReDim vArray(0 To UniqueV.Count) vArray = UniqueV.Items For iC = 0 To UBound(vArray) ThisWorkbook.Worksheets("ww").Range("M" & iC + 2).Value2 = vArray(iC) Next iC Set lo = Nothing Set UniqueV = Nothing Erase vArray End Sub
Браво, Билял! Реально актуально, ёмко, идеально выверено и преподнесено!!! Спасибо за урок! Вижу, что коллег интересуют все больше вопросы работы с «умными таблицами»: и действительно, на просторах интернета эти таблицы только восхваляются, в основном; но найти порой конкретное решение по манипуляциям с ними в решении разных задач - это проблема! У Вас есть замечательные видео об этих умных таблицах, но было бы просто супер, если бы Вы более глубоко коснулись трюков по решению разных задач: это - как предложение!) Спасибо заранее, буду ждать с нетерпением.
Очень полезные уроки по VBA. Спасибо Билял!
Класс 👍 как всегда коротко и понятно
Билял, это восхитительно! Вот уж действительно, "Когда знаешь, все просто"
Спасибо за труд!
да действительно, очень крутое видео просто бомба :)
Вроде 9 минут, не так уж и много, но даже в таком видео есть пара крутых приёмов.
ух ты круто, новое видео по VBA.
Большое спасибо Билял. Ставлю лайк сразу не глядя, так как знаю что видео будет точно крутым и интересным.
Билял, благодарю! Отличный урок! Всё на высшем уровне, всё понятно, всё получилось повторить.
Круто, а можно пожалуйста такие же примеры с использованием умных таблиц)
Умная таблица это объект listobjects
Спасибо)
Шикарный урок! Спасибо)
Когда урок про классы будет?
Тоже хотел бы посмотреть видео на тему классы!
Спасибо! Очень круто. Подскажите, как вывести результат на Лист в ячейки?
Спасибо за урок, а как вывести список уникальных значений на другой лист в рабочей книге?
2021
Пользуйтесь словарями и массивами. Так и быстрее и правильнее.
Public Sub pUniqueValue()
Dim lo As ListObject
Dim iC As Long
Dim vArray As Variant
Dim UniqueV As Scripting.Dictionary
Set lo = ThisWorkbook.Worksheets("ww").ListObjects("tt")
Set UniqueV = New Scripting.Dictionary
ReDim vArray(1 To lo.ListColumns(1).DataBodyRange.Count)
vArray = lo.ListColumns(16).DataBodyRange.Value2
For iC = 1 To UBound(vArray)
If Not UniqueV.Exists(vArray(iC, 1)) Then
UniqueV.Add Key:=vArray(iC, 1), Item:=vArray(iC, 1)
End If
Next iC
ReDim vArray(0 To UniqueV.Count)
vArray = UniqueV.Items
For iC = 0 To UBound(vArray)
ThisWorkbook.Worksheets("ww").Range("M" & iC + 2).Value2 = vArray(iC)
Next iC
Set lo = Nothing
Set UniqueV = Nothing
Erase vArray
End Sub
А уникальные значения по условиям получить реально?
На мой взгляд слишком мудрено. Всегда стараюсь использовать решения более простые