Копирование значений из других ячеек в одну

[Sergey19]

Такая проблема:
в ячейке А1 написано: Сидоров
в ячейке А2 написано: Петр Иванович
в ячейке А3 написано: Слесарь 4-го разряда
Как сделать так чтобы нажав комбинацию клавиш на ячейке А1, значение из ячейки А2 скопировалось в конец значения ячейки А1, а значение из ячейки А3 переместилось в ячейку А2 Т.е. получилось так:
в ячейке А1 написано: Сидоров Петр Иванович
в ячейке А2 написано: Слесарь 4-го разряда

[IgorGO]

Sub Move2Left()
  With ActiveCell
    If .Column <> 1 Then Exit Sub
    If .Offset(0, 2) = "" Then Exit Sub
    Cells(.Row, 1) = Cells(.Row, 1) & " " & Cells(.Row, 2)
    Cells(.Row, 2) = Cells(.Row, 3)
    Cells(.Row, 3).ClearContents
  End With
End Sub

макрос копируйте в модуль, назначте ему комбинацию клавиш и пользуйтесь.

[Sergey19]

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

[Sergey19]

Все я понял как так сделать:

Sub Move2Left()
With ActiveCell
If .Row <> 1 Then Exit Sub
If .Offset(2, 0) = "" Then Exit Sub
Cells(1, .Column) = Cells(1, .Column) & " " & Cells(2, .Column)
Cells(2, .Column) = Cells(3, .Column)
Cells(3, .Column).ClearContents
End With
End Sub

Но теперь как сделать чтоб он работал по всему листу а не только в строке 1,2,3 или хотябы в столбце А1,2,3... и т.д

[IgorGO]

извините, что-то я не внимательно задачу прочитал...

Sub Move2Up()
  With ActiveCell
    If .Offset(2, 0) = "" Then Exit Sub ' не указана должность - макрос не работает
    ActiveCell = ActiveCell & " " & .offset(1, 0)
    .offset(1, 0) = .offset(2, 0)
    .offset(2, 0).ClearContents
  End With
End Sub

[IgorGO]

а по всему листу - это, извините, в какую сторону вправо или вниз? (экстрасенс из меня никакой, пытался мысленно вызвать изображение Вашего листа, настроился, представил себе компьютер, экран монитора, закрыл глаза... а начали мелькать смутные силуэты обнаженных теток...)

[Sergey19]

нет у мея есть файл такого формата:
в ячейке А1: Сидоров
в ячейке А2: Петр Иванович
в ячейке А3: слесарь 4 разряда

Затем еще
в ячейке А5: Иванов
в ячейке А6: Сергей Владимирович
в ячейке А7: электрогазосварщик 4 разряда
и т.д

надо все это обработать, а вручную займет оч много времени там около 1000 позиций, поэтому с макросом заморочился

[IgorGO]

Sub UpData()
  Dim r As Long
  Application.ScreenUpdating = False:       r = 1
  Do
    Application.StatusBar = r
    Cells(r, 1) = Cells(r, 1) & " " & Cells(r + 1, 1)
    Cells(r + 1, 1) = Cells(r + 2, 1)
    Cells(r + 2, 1).ClearContents:          r = r + 4
  Loop Until Cells(r, 1) = ""
  Application.ScreenUpdating = True
  Application.StatusBar = False
End Sub