Нужно чтоб не зависимо от того какие буквы будут перед"-"в ячейке А11 просходила подмена цифр а буквы пропали. например: кд-65,кб-43,д-50 заменилось на р65;р43;р50.
Нужно чтоб не зависимо от того какие буквы будут перед"-"в ячейке А11 просходила подмена цифр а буквы пропали. например: кд-65,кб-43,д-50 заменилось на р65;р43;р50.andrey48
Option Explicit Function рельсы(stroka As String) Application.Volatile True Dim i#, k$ For i = 1 To Len(stroka) If Mid(stroka, i, 1) Like "#" Then k = k + Mid(stroka, i, 1) Next For i = 1 To Len(k) - 2 Step 2 If Mid(k, i, 2) = Mid(k, i + 2, 2) Or Mid(k, i, 2) = Mid(k, i + 2, 2) Then If Len(k) > 2 Then k = Mid(k, i + 2, 2) End If Next рельсы = "P" & Mid(k, 1, 2) For i = 3 To Len(k) Step 2 рельсы = рельсы & ";P" & Mid(k, i, 2) Next End Function
[/vba]
Могу предложить только UDF [vba]
Code
Option Explicit Function рельсы(stroka As String) Application.Volatile True Dim i#, k$ For i = 1 To Len(stroka) If Mid(stroka, i, 1) Like "#" Then k = k + Mid(stroka, i, 1) Next For i = 1 To Len(k) - 2 Step 2 If Mid(k, i, 2) = Mid(k, i + 2, 2) Or Mid(k, i, 2) = Mid(k, i + 2, 2) Then If Len(k) > 2 Then k = Mid(k, i + 2, 2) End If Next рельсы = "P" & Mid(k, 1, 2) For i = 3 To Len(k) Step 2 рельсы = рельсы & ";P" & Mid(k, i, 2) Next End Function
Jhonson, ПОСМОТРИТЕ ПОЖАЛУЙСТА ПОЧЕМУ НА ЛИСТЕ II.1.12 ВЫДАЕТ ТОЛЬКО ОДИН РЕЗУЛЬТАТ, ВМЕСТО Р65;Р50;Р43 ВЫДАЕТ ТОЛЬКО Р65, ХОТЯ В ВАЩЕМ ФАЙЛЕ ВСЕ ПРАВИЛЬНО РАБОТАЕТ, А У МЕНЯ ПОСЛЕ ПЕРЕНОСА ВОТ ТАКАЯ ЕРУНДА...
Jhonson, ПОСМОТРИТЕ ПОЖАЛУЙСТА ПОЧЕМУ НА ЛИСТЕ II.1.12 ВЫДАЕТ ТОЛЬКО ОДИН РЕЗУЛЬТАТ, ВМЕСТО Р65;Р50;Р43 ВЫДАЕТ ТОЛЬКО Р65, ХОТЯ В ВАЩЕМ ФАЙЛЕ ВСЕ ПРАВИЛЬНО РАБОТАЕТ, А У МЕНЯ ПОСЛЕ ПЕРЕНОСА ВОТ ТАКАЯ ЕРУНДА...andrey48
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
