Удаление части данных из ячейки

[John34]

Подскажите, как удалить часть данных вида 1234567890 из ячейки, удалить нужно первые 5 символов, и перенести в другую ячейку. Спасибо

[EducatedFool]

В ячейку A1 введите текст 1234567890

В ячейку B1 поставьте формулу =ПСТР(A1;6;100)

[John34]

Сообщение от EducatedFool

В ячейку A1 введите текст 1234567890

В ячейку B1 поставьте формулу =ПСТР(A1;6;100)

Нужно немного другое:
1) данные 1234567890
2) убрать 12345
3) и перенести в другую ячейку 12345, чтобы в родной ячейке осталось 67890

[EducatedFool]

Выделите обрабатываемые ячейки, и запустите макрос:

Sub test()
    Dim cell As Range
    For Each cell In Selection.Cells
        cell.Next = Left(cell, 5)
        cell = Mid(cell.Text, 6)
    Next cell
End Sub

[Zhiltsov]

Sub test()
Dim cell As Range
For Each cell In Selection.Cells
cell = Mid(cell.Text, 6, 3)
Next cell
End Sub

Как этот макрос преобразовать, чтобы он обрабатывал ячейки только в определенном столбце (Допустим "В") и только в ячейках с данными?

[EducatedFool]

2 Zhiltsov

Если надо обработать только предварительно выделенные ячейки в столбце B:

Sub test()
    Dim cell As Range: On Error Resume Next
    For Each cell In Intersect(Selection, Columns("B")).Cells
        If Not cell.HasFormula Then cell = Mid(cell.Text, 6, 3)
    Next cell
End Sub

Если надо обработать все ячейки в столбце B:

Sub test2()
    Dim cell As Range: On Error Resume Next
    Application.ScreenUpdating = False
    For Each cell In Intersect(ActiveSheet.UsedRange, Columns("B")).Cells
        If Not cell.HasFormula Then cell = Mid(cell.Text, 6, 3)
    Next cell
End Sub

[Алена-2009]

Можно использовать следующую функцию.
1. Выделить нужные данные.
2. Меню данные, текст по столбцам .
3. выбрать фиксированной ширины.
4. отсчитать нужное количество символов.

[ledrock]

Здравствуйте. Подниму эту тему, так как задача похожая, но с усложнением.

Есть ячейка вида:
(1): 84 00 00 3A 0F 09 01 A8 1A 1B 1B 04 03 00 00 00
Ее нужно привести к следующему формату (сгрупировать):
8400 003A 0F09 01A8 1A1B 1B04 0300 0000
Ненужную левую часть удаляю с помощью ПРАВСИМВ.
Как убрать остальные 8 пробелов в определенных местах?