Всем моё почтение. Ребята я не специалист конечно, но никак не могу начать обработку строки в цикле. Взять результат обработки из D34 и переместить. Результат нужно переместить в другое место, но с этим я думаю справлюсь. А вот как начать действие обработки строки не пойму. Само действие закомментировано. Переменную s написал для проверки цикла. Пните в нужную сторону. Всем добра. Спасибо
Код |
---|
Sub test_carp_() s = "*********** / 70g / *****************/ 965115040" Dim MyRange As Range Dim MyCell As Range Set MyRange = Range("D34:D" & Cells(Rows.Count, 1).End(xlUp).Row) For Each MyCell In MyRange If MyCell.Value <> "" Then ' Right(s, Len(s) - InStrRev(s, "/") - 1) Debug.Print MyCell End If Next MyCell End Sub |