Come incollare nell’ultima riga della Colonna B in excel?

Ho bisogno di tagliare le celle di H2:L2 per tutta la strada fino e incollarlo nell’ultima riga della colonna B.

Dati sarà diverso ogni volta, quindi non posso rigido codice di qualsiasi gamma.

Codice VBA sarebbe bello, per il taglio da H2:L2 giù e incolla e inserire nell’ultima riga della Colonna B.

Finora ho ottenuto.

Range("H2:L2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
  • Ho registrato la macro per selezionare tutte le celle da H2:L2 e giù, ma mi sono bloccato a incollarlo nell’ultima cella della colonna B. vedere la modifica
InformationsquelleAutor Mowgli | 2012-11-29

 

2 Replies
  1. 6

    Qui è un segmento di codice che deve realizzare quello che stai cercando.

    Start code including your cut segment...
    Dim lastRow As String
    
    lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row + 1
    Range("B" & lastRow).Select
    Selection.PasteSpecial
    Rest of code...

    Ci sono un certo numero di libri che vi aiuterà con questo tipo di codifica e di step by step formativo. Io sono parziale per la serie pubblicata da Microsoft “Step by Step” della serie. In bocca al lupo!

    • Grazie, io ho solo dovuto cambiare Selection.PasteSpecial per ActiveSheet.Paste e ha funzionato bene. Grazie mille.
    • Fresco Di Fagioli! Felici di aiutarti!
  2. 0

    si prega di vedere sotto (ps. Non l’ho testato)

    Sub copypaste()
    
    Dim wb As Workbook, ws As Worksheet, rng As Range, lr As Long
    
    Set wb = Workbooks("Name_of_your_workbook.xlsm")
    Set ws = wb.Sheets("Your_Sheet_Name")
    
    Set rng = ws.Range("H2:L2")
    
    lr = Sheet("Your_Sheet_Name").Cells(Rows.Count, "B").End(xlUp).Row
    
    rng.Copy Destination:=ws.Range("B" & lr)
    
    Cells(1, 1).Select
    
    End Sub

Lascia un commento