Страницы: 1
RSS
Перенос части текста с определенного слова в другую ячейке
 
В файле на листе "ДО" перенести часть текста в ячейках столбца А начиная со слова ИН либо ИНВ в столбец B
 
ArsenAbuzov, что нужно вывести здесь?
Принтер   НP 1022    04-06   2394 Астана
и здесь
Кассовый   аппарат Миника Талдыкорган (ИН-1461) ИН-5845
Не бойтесь совершенства. Вам его не достичь.
 
Цитата
Mershik написал:
(ИН-1461) ИН-5845
что в таком случае вывести?
 
В первом случае-ничего не нужно переносить
Во втором случае- переносить начиная с ИН1461
 
ArsenAbuzov, попробуйте эту формулу - ну может не 100%
Код
=ЕСЛИОШИБКА(ЕСЛИОШИБКА(ПРАВСИМВ(A5;ДЛСТР(A5)-ПОИСК("ин-";A5;1)+1);ПРАВСИМВ(A5;ДЛСТР(A5)-ПОИСК("инв";A5;1)+1));ПРАВСИМВ(A5;ДЛСТР(A5)-ПОИСК("ин ";A5;1)+1))
Не бойтесь совершенства. Вам его не достичь.
 
Код
Sub ИН()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Range("B4:B" & iLastRow).ClearContents
   With CreateObject("VBScript.RegExp")
     .ignorecase = True
     .Pattern = "\(?ИНВ?-? ?\d+"
    For i = 5 To iLastRow
      If .Test(Cells(i, 1)) Then
        Cells(i, 2) = Right(Cells(i, 1), Len(Cells(i, 1)) - .Execute(Cells(i, 1))(0).FirstIndex)
        Cells(i, 1) = Left(Cells(i, 1), .Execute(Cells(i, 1))(0).FirstIndex)
      End If
    Next
   End With
End Sub
 
Здр-те. Какая то ошибка в формуле. Помогите разобраться
Цитата
Mershik написал:




 
Mershik
Здр-те. Какая то ошибка в формуле. Не могу разобраться
Страницы: 1
Наверх