Я не верю, что есть способ сместить выделение на один столбец влево или вправо, поэтому многократное объединение ячеек может быть утомительной задачей.
Однако вы можете написать для этого макрос, а затем назначить ему комбинацию клавиш (например, Ctrl + Shift + X ).
Затем вы можете использовать последовательность клавиш для объединения ячеек, которая является Alt + H, M, M.
Вот код:
Sub MoveSelectionRight()
Set r = Selection
r.Offset(0, 1).Resize(r.Rows.Count, r.Columns.Count).Select
End Sub
Вот еще один для смещения выделений на один столбец влево (а затем, возможно, назначьте его Ctrl + Shift + Z):
Sub MoveSelectionLeft()
Set r = Selection
r.Offset(0, -1).Resize(r.Rows.Count, r.Columns.Count).Select
End Sub