Как удалить из данных в ячейки выборочные значения

[lioon]

Добрый день,

Подскажите как оптимальнее решить данную задачу:
Есть столбец с данными
В ячейке есть строка:
979_2_2_008_002_КМ_01_02_00.dwg

Из нее нужно удалить с 7 по 9 символ и 4-е последних, чтобы получилось:

979_2_2_008_002_КМ_01_00

[kuklp]

Смотрите функции mid, left.

[DiemonStar]

Для ячеек A1:A100

Sub CutFileName()
  For Each Rw In [A1:A100]
     If Len(Rw.Cells(1, 1)) = 31 Then
       Rw.Cells(1, 1) = Left(Rw.Cells(1, 1), 21) & Mid(Rw.Cells(1, 1), 25, 3)
     End If
  Next Rw
End Sub

Хотя можно и формулами сделать.

[Hugo121]

Ещё может быть пригодятся Split(), Instr(), InStrRev(), StrReverse()

[lioon]

Спасибо большое, код помог! Я стал ещё на шаг ближе к цели

[lioon]

Возникла сложность.


Как сделать таким образом, в примере DiemonStar, чтобы не опираться на длину строки, в данном примере она 31, а просто удалить с 7 по 9 символ с конца и 4-и последних символа

Первые символы в примере это номер договора и доп соглашения, а они могут быть разные. И буквенные обозначения могут быть 2 или 3 символа.

[Hugo121]

Т.е. предпочитаете чтоб ноги по этим шагам к цели кто-то другой передвигал?
Всё же выше уже подсказано - берите что нужно по задаче.

Например алгоритм для доработки:

Sub tt()
    Dim s$, a
    s = "979_2_2_008_002_КМ_01_02_00.dwg"
    MsgBox s
    s = Left(s, Len(s) - 4)
    a = Split(s, "_")
    a(7) = ""
    s = Join(a, "_")
    s = Replace(s, "__", "_")
    MsgBox s
End Sub

Ну или только split-join-replace:

Sub tt()
    Dim s$, a
    s = "979_2_2_008_002_ŹĢ_01_02_00.dwg"
    MsgBox s
    s = Split(s, ".")(0)
    a = Split(s, "_")
    a(7) = ""
    s = Join(a, "_")
    s = Replace(s, "__", "_")
    MsgBox s
End Sub

[DiemonStar]

Sub CutFileName()
  For Each Rw In [A1:A100]
     If Len(Rw.Cells(1, 1)) = 31 Then
       Rw.Cells(1, 1) = Left(Rw.Cells(1, 1), Len(Rw.Cells(1, 1)) - 9) & Left(Right(Rw.Cells(1, 1),6),2)
     End If
  Next Rw
End Sub

[lioon]

Спасибо!
Я честно пытаюсь разобраться, но когда академических знаний не хватает обращаюсь за советом

[doober]

Т.е. предпочитаете чтоб ноги по этим шагам к цели кто-то другой передвигал?

OFF
Игорь,смею предположить,что скоро появится тема о том,как получить данные из чертежей и заполнить ячейки.