Главная arrow icon Вопросы arrow icon Технологии arrow icon Excel!! Есть в нескольких ячейках несколько…

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

Сергей
03.08.15
Технологии
1 ответ

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

Рейтинг: 53 181
Здравствуйте. Условно говоря, если у вас эти числа в столбце 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
Только кавычки двойные надо везде поставить вместо «»
04.08.15
Лучший ответ по мнению автора

Глеб Черняк
Рейтинг: 704 506
1-й в Технологиях
Читать ответы

Олег Николаевич
Рейтинг: 26 577
2-й в Технологиях
Читать ответы

Alexander
Рейтинг: 17 568
3-й в Технологиях
Читать ответы
Посмотреть всех экспертов из раздела Технологии
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее