Зеркальное отображение столбца с текстовыми данными
Арко
Дата: Суббота, 05.10.2013, 10:36 |
Сообщение № 1
Здравствуйте, помогите найити решение следующей задачи. Имеется некий столбец текстовых данных следующего вида: ABCDEFGH AC4556CT 2FF5C73A ........ и т.д. Количество элементов в каждой строке всегода одинаково, их 8. Сами элементы произвольные. Задача заключается в следующем преобразовании: ABCDEFGH -> GHEFCDAB AC4556CT -> CT5645AC 2FF5C73A -> 3AC7F52F и т.д. Да, это не просто зеркало, элементы отображаются справа на лево зеркально и попарно.
Здравствуйте, помогите найити решение следующей задачи. Имеется некий столбец текстовых данных следующего вида: ABCDEFGH AC4556CT 2FF5C73A ........ и т.д. Количество элементов в каждой строке всегода одинаково, их 8. Сами элементы произвольные. Задача заключается в следующем преобразовании: ABCDEFGH -> GHEFCDAB AC4556CT -> CT5645AC 2FF5C73A -> 3AC7F52F и т.д. Да, это не просто зеркало, элементы отображаются справа на лево зеркально и попарно. Арко
Ответить
Сообщение Здравствуйте, помогите найити решение следующей задачи. Имеется некий столбец текстовых данных следующего вида: ABCDEFGH AC4556CT 2FF5C73A ........ и т.д. Количество элементов в каждой строке всегода одинаково, их 8. Сами элементы произвольные. Задача заключается в следующем преобразовании: ABCDEFGH -> GHEFCDAB AC4556CT -> CT5645AC 2FF5C73A -> 3AC7F52F и т.д. Да, это не просто зеркало, элементы отображаются справа на лево зеркально и попарно. Автор - Арко Дата добавления - 05.10.2013 в 10:36
AlexM
Дата: Суббота, 05.10.2013, 10:55 |
Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
Нужен файл с примером, прочтите правила форума
Нужен файл с примером, прочтите правила форума AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение Нужен файл с примером, прочтите правила форума Автор - AlexM Дата добавления - 05.10.2013 в 10:55
RAN
Дата: Суббота, 05.10.2013, 14:22 |
Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
[vba]Код
Function Мяу(str As String) As String Dim i& str = StrReverse(str) For i = 1 To Len(str) Step 2 Mid$(str, i, 2) = StrReverse(Mid$(str, i, 2)) Next Мяу = str End Function
[/vba]
[vba]Код
Function Мяу(str As String) As String Dim i& str = StrReverse(str) For i = 1 To Len(str) Step 2 Mid$(str, i, 2) = StrReverse(Mid$(str, i, 2)) Next Мяу = str End Function
[/vba] RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение [vba]Код
Function Мяу(str As String) As String Dim i& str = StrReverse(str) For i = 1 To Len(str) Step 2 Mid$(str, i, 2) = StrReverse(Mid$(str, i, 2)) Next Мяу = str End Function
[/vba] Автор - RAN Дата добавления - 05.10.2013 в 14:22
AlexM
Дата: Суббота, 05.10.2013, 14:28 |
Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
букв много. Код
=ПСТР(A1;7;2)&ПСТР(A1;5;2)&ПСТР(A1;3;2)&ПСТР(A1;1;2)
букв много. Код
=ПСТР(A1;7;2)&ПСТР(A1;5;2)&ПСТР(A1;3;2)&ПСТР(A1;1;2)
AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение букв много. Код
=ПСТР(A1;7;2)&ПСТР(A1;5;2)&ПСТР(A1;3;2)&ПСТР(A1;1;2)
Автор - AlexM Дата добавления - 05.10.2013 в 14:28
RAN
Дата: Суббота, 05.10.2013, 14:37 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Зато знаков может быть сколько угодно.
Зато знаков может быть сколько угодно. RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Зато знаков может быть сколько угодно. Автор - RAN Дата добавления - 05.10.2013 в 14:37