обьединить несколько списков

Дата: Понедельник, 20.11.2023, 14:31 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 20% ±

2021

Необходимо формула в столбце Е. Необходимо получить в начале все заполненый ячейки с столбца А, потом с В. Если списак добавиться в А необходимо сместить В ниже. Тоесть необходимо получить сводный список на основании 2 столбцов

К сообщению приложен файл: 33333.xlsx (9.0 Kb)

Дата: Понедельник, 20.11.2023, 14:46 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Код

=ИНДЕКС(A:B;СТРОКА()-(СТРОКА()>СЧЁТЗ(A:A))*СЧЁТЗ(A:A);2-(СТРОКА()<=СЧЁТЗ(A:A)))

К сообщению приложен файл: 7447961.xlsx (8.9 Kb)

ЮMoney 41001841029809

Дата: Понедельник, 20.11.2023, 14:50 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 20% ±

2021

Да, работает, спасибо ОГРОМНОЕ

Дата: Понедельник, 20.11.2023, 16:22 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 20% ±

2021

а можно дополнить задачу количеством списков. =@ИНДЕКС(X:AD;СТРОКА()-(СТРОКА()>СЧЁТЗ(X:AD))*СЧЁТЗ(X:AD);8-(СТРОКА()<=СЧЁТЗ(X:AD))) эта формула не работает у меня получается 8 списков по диапазону X:AD

Дата: Понедельник, 20.11.2023, 16:27 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Цитата aastg2022, 20.11.2023 в 16:22, в сообщении № 4 (

)

СЧЁТЗ(X:AD)

это не верный подход

Цитата aastg2022, 20.11.2023 в 16:22, в сообщении № 4 (

)

8 списков по диапазону X:AD

почему не 7?
проще макрос написать

ЮMoney 41001841029809

Дата: Понедельник, 20.11.2023, 16:32 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 20% ±

2021

Цитата Nic70y, 20.11.2023 в 16:27, в сообщении № 5 (

)

почему не 7?
проще макрос написать

да Вы правы 7. Потому что хочу что бы обновляло постоянно без лишних действий типо скрипта. Надо как добавил в список обновило общий список, и еще 1 проблема если в той формуле в В колонке больше значений чем в А, по в переходе между данными А столбца и В ставит 0, если больше значений в А то все норм. это как бы небольшая проблема, но не очень большая

Дата: Понедельник, 20.11.2023, 16:55 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub u_72()
    Application.ScreenUpdating = False 'отключение обновления экрана
    u = "e" 'столбец в который вставляем
    v = Cells(Rows.Count, u).End(xlUp).Row 'нижняя строка
    Range(u & "1:" & u & v).Clear 'сотрем старые данные
    For Each a In Range("a1:b1") 'вместо a1:b1 вписать нужные столбцы из которых копируем
        b = a.Column 'очедной столбец
        c = Cells(Rows.Count, b).End(xlUp).Row 'нижняя строка очередного столбца
        d = Cells(Rows.Count, u).End(xlUp).Row 'нижняя строка столбца в который вставляем
        If d > 1 Then d = d + 1  'очередная строка куда вставляем
        Range(Cells(1, b), Cells(c, b)).Copy Range(u & d) 'копи-паст
    Next
    Application.ScreenUpdating = True 'включение обновления экрана
End Sub

[/vba]

К сообщению приложен файл: 33333.xlsm (17.5 Kb)

ЮMoney 41001841029809

Дата: Понедельник, 20.11.2023, 17:16 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 20% ±

2021

Sub u_722()
Application.ScreenUpdating = False 'отключение обновления экрана
u = "AX" 'столбец в который вставляем
v = Cells(Rows.Count, u).End(xlUp).Row 'нижняя строка
Range(u & "1:" & u & v).Clear 'сотрем старые данные
For Each a In Range("X2:AD2") 'вместо a1:b1 вписать нужные столбцы из которых копируем
b = a.Column 'очедной столбец
c = Cells(Rows.Count, b).End(xlUp).Row 'нижняя строка очередного столбца
d = Cells(Rows.Count, u).End(xlUp).Row 'нижняя строка столбца в который вставляем
If d > 1 Then d = d + 1 'очередная строка куда вставляем
Range(Cells(1, b), Cells(c, b)).Copy Range(u & d) 'копи-паст
Next
Application.ScreenUpdating = True 'включение обновления экрана
End Sub
Этот код копирует все правельно, а если мне надо без 1 строки, тоесть начиная со 2 строки?

Дата: Понедельник, 20.11.2023, 17:21 | Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub u_722()
    Application.ScreenUpdating = False 'отключение обновления экрана
    u = "AX" 'столбец в который вставляем
    v = Cells(Rows.Count, u).End(xlUp).Row 'нижняя строка
    Range(u & "2:" & u & v).Clear 'сотрем старые данные
    For Each a In Range("X2:AD2") 'вместо a1:b1 вписать нужные столбцы из которых копируем
        b = a.Column 'очедной столбец
        c = Cells(Rows.Count, b).End(xlUp).Row 'нижняя строка очередного столбца
        d = Cells(Rows.Count, u).End(xlUp).Row + 1 'очередная строка куда вставляем
    Range(Cells(2, b), Cells(c, b)).Copy Range(u & d) 'копи-паст
    Next
    Application.ScreenUpdating = True 'включение обновления экрана
End Sub

[/vba]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 20.11.2023, 17:22