Spostare il contenuto di una cella con riferimenti relativi

Sub Nomi()
  Selection.Font.Bold = True
  Selection.Cut
  ActiveCell.Offset(0, -1).Range("A1").Select
  ActiveSheet.Paste
  ActiveCell.Offset(12, 1).Range("A1").Select
End Sub

Spostare il contenuto di una cella con riferimenti relativi

Menu