Всем привет! У меня есть столбец А в котором уникальные значения. Нужно Сделать столбец B так что б повторялось каждое значение по 3 раза в этом столбце(подряд), формлуой. Пример приложил, не как в голову не приходит как просто и не перегружая таблицу сдлеать это..
Всем привет! У меня есть столбец А в котором уникальные значения. Нужно Сделать столбец B так что б повторялось каждое значение по 3 раза в этом столбце(подряд), формлуой. Пример приложил, не как в голову не приходит как просто и не перегружая таблицу сдлеать это..negodyaj
let Источник = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content][Столбец1], a = List.Combine(List.Transform(Источник, each List.Repeat({_},3))) in a
[/vba] и макрос [vba]
Код
Sub Макрос1() arr1 = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) ReDim arr2(1 To UBound(arr1) * 3, 1 To 1) m = 1 For n = 1 To UBound(arr1) For i = 0 To 2 arr2(m + i, 1) = arr1(n, 1) Next i m = m + 3 Next n [c1].Resize(UBound(arr2)) = arr2 End Sub
[/vba] Собрал все варианты в один файл
Ну тогда ещё PQ: [vba]
Код
let Источник = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content][Столбец1], a = List.Combine(List.Transform(Источник, each List.Repeat({_},3))) in a
[/vba] и макрос [vba]
Код
Sub Макрос1() arr1 = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) ReDim arr2(1 To UBound(arr1) * 3, 1 To 1) m = 1 For n = 1 To UBound(arr1) For i = 0 To 2 arr2(m + i, 1) = arr1(n, 1) Next i m = m + 3 Next n [c1].Resize(UBound(arr2)) = arr2 End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
