Spostare due o più celle sottostanti su riga superiore

Question

Buongiorno,

a titolo di esempio:

devo spostare il contenuto delle celle B2 e B3 in C1 e D1, c'è un metodo veloce per farlo?

attualmente le seleziono, clicco copia, clicco trasponi su C1 e poi cancello le righe.

Grazie

Answer 1

Ciao F.P.1,

a titolo di esempio:

devo spostare il contenuto delle celle B2 e B3 in C1 e D1, c'è un metodo veloce per farlo?

attualmente le seleziono, clicco copia, clicco trasponi su C1 e poi cancello le righe.

• Alt+F11 per aprire l'editor di VBA
• Alt+IMper inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

 '=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim srcRng As Range, destRng As Range

    Const sFoglio As String = "Foglio1"                             '<<=== Modifica

    Const sIntervallo_Sorgente As String = "B2:B3"             '<<=== Modifica

    Const sIntervallo_Destinazione As String = "C1:D1"       '<<=== Modifica

    Set WB = ThisWorkbook

    Set SH = WB.Sheets(sFoglio)

    With SH

        Set srcRng = .Range(sIntervallo_Sorgente)

        Set destRng = .Range(sIntervallo_Destinazione)

    End With

    destRng.Value = Application.Transpose(srcRng.Value)

    srcRng.ClearContents

End Sub

'<<========= 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm
• Alt+F8 per aprire  la finestra di gestione delle macro
• Seleziona Tester
• Esegui

===

Regards,

Norman