Сортировка значений - из одного столбца в один из пяти

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сортировка значений - из одного столбца в один из пяти (Сводные таблицы/Pivot Table)

Wildmechanic1488

Дата: Понедельник, 21.02.2022, 17:54 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 2

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

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

Доброго здравия.
Встала задача по сортировке списка имен файлов. Думаю, задачу возможно решить с помощью Эксель... но как? ничего путного в голову не пиходит.

Есть папка с файлами.
имя файла состоит из «общей части (в примере QW.ERT.12.34567.89 – сохранен тип знака («буква/цифра) и «индивидуальной» - три цифры.
Файлы могут быть пяти типов (расширений)

QW.ERT.12.34567.89.100.тип1 (имя файла «тип1» может оканчиваться только на ноль)
QW.ERT.12.34567.89.101.тип2 (имя файла «тип2» не может оканчиваться на ноль)
QW.ERT.12.34567.89.100.тип3
QW.ERT.12.34567.89.101.тип3
QW.ERT.12.34567.89.101.тип4(имя файла «тип4» не может оканчиваться на ноль)
QW.ERT.12.34567.89.100.тип5 (имя файла «тип5» может оканчиваться только на ноль)
«не может оканчиваться» надо понимать как «таких файлов не существует».
И так далее.
Всего около 600 имен. Соответственно, для каждого имени – возможно три типа (расширения) –
тип1, тип3 и тип5 (если оканчивается на 0) или
тип2, тип3 и тип4 (если оканчивается НЕ на 0).

Сделать список файлов, имеющихся в папке – не вопрос, утилит, рашающих этот вопрос полно.
Загрузить эти значения в ячейки первого столбца тоже не проблема.

Возможно ли создать «сортировщик», который
- (как минимум) сможет перекинуть имена файлов "тип1" из первого столбц во второй, "тип2" - в третий и так далее.
- "уплотнит список по вертикали" так, чтобы в каждой строке были одноименные файлы

Ответить

СообщениеДоброго здравия.
Встала задача по сортировке списка имен файлов. Думаю, задачу возможно решить с помощью Эксель... но как? ничего путного в голову не пиходит.

Есть папка с файлами.
имя файла состоит из «общей части (в примере QW.ERT.12.34567.89 – сохранен тип знака («буква/цифра) и «индивидуальной» - три цифры.
Файлы могут быть пяти типов (расширений)

QW.ERT.12.34567.89.100.тип1 (имя файла «тип1» может оканчиваться только на ноль)
QW.ERT.12.34567.89.101.тип2 (имя файла «тип2» не может оканчиваться на ноль)
QW.ERT.12.34567.89.100.тип3
QW.ERT.12.34567.89.101.тип3
QW.ERT.12.34567.89.101.тип4(имя файла «тип4» не может оканчиваться на ноль)
QW.ERT.12.34567.89.100.тип5 (имя файла «тип5» может оканчиваться только на ноль)
«не может оканчиваться» надо понимать как «таких файлов не существует».
И так далее.
Всего около 600 имен. Соответственно, для каждого имени – возможно три типа (расширения) –
тип1, тип3 и тип5 (если оканчивается на 0) или
тип2, тип3 и тип4 (если оканчивается НЕ на 0).

Сделать список файлов, имеющихся в папке – не вопрос, утилит, рашающих этот вопрос полно.
Загрузить эти значения в ячейки первого столбца тоже не проблема.

Возможно ли создать «сортировщик», который
- (как минимум) сможет перекинуть имена файлов "тип1" из первого столбц во второй, "тип2" - в третий и так далее.
- "уплотнит список по вертикали" так, чтобы в каждой строке были одноименные файлы

Автор - Wildmechanic1488
Дата добавления - 21.02.2022 в 17:54

jakim

Дата: Понедельник, 21.02.2022, 18:30 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1199

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

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

Excel 2010

Формула

Код

=IFERROR(INDEX($A$2:$A$1000;AGGREGATE(15;6;ROW($1:$1000)/(B$1=--RIGHT($A$2:$A$1000;1));ROWS($2:2)));"")

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

Сообщение отредактировал jakim - Понедельник, 21.02.2022, 18:31

Ответить

Nic70y

Дата: Вторник, 22.02.2022, 08:08 | Сообщение № 3

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

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

Сообщений: 8759

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

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

Excel 2010

не понял для чего что на что заканчивается или не заканчивается.
дело же в расширении тип1 и т.д.
или я чего-то не понял?

поменяйте на "свои"
[vba]

Код

Sub u_748()
    Application.ScreenUpdating = False
    Columns("A:E").ClearContents
    a = ThisWorkbook.Path 'папка с файлами (в данном случае, та в которой этот файл)
    b$ = Dir(a & "\*.*")
    Do While b$ <> ""
        c = Right(b, 4) '4 правых символа ~ расширение
        If c = "xlsx" Then f = 1 'расширение - 1. столбец
        If c = "xlsm" Then f = 2 'расширение - 2. столбец
        'и т.д.
        g = Cells(Rows.Count, f).End(xlUp).Row + 1 'след пустая ячейка столбца
        Cells(g, f) = b
        b$ = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

[/vba]

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

ЮMoney 41001841029809

Ответить

Wildmechanic1488

Дата: Вторник, 22.02.2022, 12:08 | Сообщение № 4

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

Ранг: Прохожий

Сообщений: 2

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

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

Спасибо. Попробую.

Ответить

Страница 1 из 1
1