Вывод всех вариантов содержимого диапазона с учётом регистра

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод всех вариантов содержимого диапазона с учётом регистра (Формулы)

mongen

Дата: Суббота, 26.10.2013, 19:24 | Сообщение № 1

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

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

Сообщений: 11

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

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

Excel 2016

Здравствуйте.

Помогите, пожалуйста, решить проблему.
Есть таблица, в которой 17 строк и 17 столбцов. Одна из строк - строка заголовка с изначально заданными значениями, один из столбцов - также столбец заголовка с изначально заданными значениями. В каждой из ячеек заголовка по 5 букв.

Остальные ячейки таблицы (16*16) образованы путём слияния пяти букв из заголовка строки и пяти букв из заголовка столбца. Таким образом, в каждой из 256 ячеек - по 10 букв.
Сначала 2 буквы a, потом 2 буквы c, потом 2 буквы e, потом 2 буквы g, потом 2 буквы p. Но регистр этих букв может быть самым разным (например, в паре букв g - либо обе большие GG, либо обе маленькие gg, либо одна первая большая, а вторая маленькая Gg)

Подскажите, пожалуйста, как с помощью какой-нибудь формулы можно вывсети на лист все возможные встречающиеся варианты (напр., AACcEEGGPP, AaCCEeGGPP, AACCEEGGPp и все остальные) и чтобы было подсчитано количество всех вариантов в таблице.

Спасибо.

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

Сообщение отредактировал mongen - Воскресенье, 27.10.2013, 01:23

Ответить

AndreTM

Дата: Суббота, 26.10.2013, 21:19 | Сообщение № 2

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

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

Сообщений: 1762

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

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

2003 & 2010

Цитата mongen, 26.10.2013 в 19:24, в сообщении № 1

Есть таблица, в которой 17 строк и 17

Цитата mongen, 26.10.2013 в 19:24, в сообщении № 1

таблицы (16*16)

Цитата mongen, 26.10.2013 в 19:24, в сообщении № 1

Подскажите,

Вариант с использованием RegExp - не рассматривается?

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Суббота, 26.10.2013, 21:20

Ответить

mongen

Дата: Суббота, 26.10.2013, 21:53 | Сообщение № 3

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

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

Сообщений: 11

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

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

Excel 2016

Цитата AndreTM, 26.10.2013 в 21:19, в сообщении № 2

Вариант с использованием RegExp - не рассматривается?

К своему стыду, даже не знаю, что такое RegExp.

Поэтому хотелось бы с помощью каких-нибудь экселевских формул.

Ответить

RAN

Дата: Воскресенье, 27.10.2013, 00:51 | Сообщение № 4

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

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

Сообщений: 5660

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

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

2010

[vba]

Код

Sub Мяу()
     Dim i&, j&, arr
     arr = [B2:Q17].Value
     With CreateObject("Scripting.Dictionary")
         .CompareMode = vbBinaryCompare
         For i = 1 To UBound(arr)
             For j = 1 To UBound(arr, 2)
                 .Item(arr(i, j)) = 1
             Next
         Next
         [A20].Resize(, .Count) = .keys
         [A21] = .Count
     End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

mongen

Дата: Воскресенье, 27.10.2013, 01:09 | Сообщение № 5

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

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

Сообщений: 11

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

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

Excel 2016

Спасибо, RAN.
Наверно, я не совсем правильно изъяснился.

Этот макрос вывел все варианты сочетаний букв (их получилось 81), и вывел срочкой ниже как раз число 81 - количество вариантов.
Первая часть как раз то, что мне нужно. А по поводу количества, то мне надо узнать, сколько раз в таблице встречатся сочетание AACcEEGGPP, сколько раз сочетание AACCEeGGPP, сколько раз сочетание AACcEEGgPP и так далее (ещё 78 сочетаний).

Это как-нибудь можно сделать?

Спасибо.

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

Ответить

RAN

Дата: Воскресенье, 27.10.2013, 01:20 | Сообщение № 6

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

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

Сообщений: 5660

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

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

2010

[vba]

Код

Sub Мяу()
     Dim i&, j&, arr
     arr = [B2:Q17].Value
     With CreateObject("Scripting.Dictionary")
         .CompareMode = vbBinaryCompare
         For i = 1 To UBound(arr)
             For j = 1 To UBound(arr, 2)
                 .Item(arr(i, j)) = .Item(arr(i, j)) + 1
             Next
         Next
         [A20].Resize(, .Count) = .keys
         [A21].Resize(, .Count) = .items
         [A22] = .Count
     End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

mongen

Дата: Пятница, 06.01.2017, 12:57 | Сообщение № 7

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

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

Сообщений: 11

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

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

Excel 2016

RAN, спасибо большое! Всё получилось!

Ответить

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