Технологии

Решено

Excel!! Есть в нескольких ячейках несколько пятнадцатизначеных чисел. Нужно между 4-й и 5-й цифрой во всех числах вставить цифру 0. Можно ли это сделать? - вопрос №1577585

август 3, 2015 г.

Сообщить о нарушении

Всего ответов: 1

Виталий

2-й в Технологиях

4.9 119 отзывов

Здравствуйте. Условно говоря, если у вас эти числа в столбце A и они все пятнадцатизначные, то можно выполнить макрос:
Sub Conc()
On Error Resume Next: Err.Clear
    Dim ra As Range, cell As Range, sl, sr, txt
    Set ra = Range([A1], Range(«A» & Rows.Count).End(xlUp))
    Application.ScreenUpdating = False
    For Each cell In ra.Cells
    txt = CStr(cell.Value)
     sl = Left(txt, 4)
     sr = Right(txt, 11)
     txt = sl + «0» + sr
     cell.Value = txt
    Next cell
End Sub
Только кавычки двойные надо везде поставить вместо «»

август 4, 2015 г.

Ответ понравился автору

Лучший ответ по мнению автора

Похожие вопросы