Excel vba - xlDown

Question

Il codice seguente sta tentando di incollare l'intervallo selezionato (passato come rng) alla fine del foglio di lavoro. Funziona se sono già presenti 2 file (A1, A2).

Sub copyRow(rng As Range, ws As Worksheet) 
    Dim newRange As Range 
    Set newRange = ws.Range("A1").End(xlDown).Offset(1, 0) 
    rng.Copy 
    newRange.PasteSpecial (xlPasteAll) 
End Sub 

Quindi, se A1 e A2 presente e se si chiama questo metodo 100 volte, inserisce 100 righe dopo di loro. Ma, se nessuna riga è presente o solo A1, sovrascrive semplicemente A2. Ho potuto vedere excel scrivere sulla stessa riga (sovrascrivere)

Appare che, qualcosa a che fare con come xlDown calcola se ci sono meno di 2 righe, non è sicuro.

Qualsiasi aiuto sarebbe apprezzato.

Answer 1

Scusa ma non sono d'accordo con la risposta di Michael.

End (xlDown) è l'equivalente VBA di fare clic su Ctrl + Down.

Prova Ctrl + Down con

• una colonna vuota
• una colonna con un valore nella riga 1 ma non altre
• valori nelle righe 1 e 2
• valori nelle righe 1, 2 , 3, 7, 8, 9, 13, 14 e 15

Questo vi darà un'idea di tutte le diverse righe, Ctrl + Down potrebbe portarti a.

Set newRange = ws.Range("A1").End(xlDown).End(xlDown).End(xlUp).Offset(1, 0) non necessariamente si prende l'ultima riga utilizzato più 1.

Sono sorpreso Set newRange = ws.Range("A1").End(xlDown).Offset(1, 0) lavorato con una colonna vuota. Range("A1").End(xlDown) ti condurrebbe alla riga inferiore del foglio, quindi .Offset(1, 0) proverà a toglierti dal foglio.

consideri:

Dim RowLast As Long 

RowLast = ws.Cells(Rows.Count, "A").End(xlUp).Row 

• Se colonna A è vuota, RowLast sarà impostato a 1.
• Se A1 ha un valore ma non altre cellule hanno valori, RowLast sarà impostato a 1.
• Se un numero di celle nella colonna A ha valori, RowLast verrà impostato sulla riga inferiore con un valore.
• Se si dispone di un valore nella riga finale, verrà ignorato.
• Se si dispone di un valore nelle ultime due righe, RowLast verrà impostato su Rows.Count - 1.

Presumo che non ci siano valori nelle righe di borrom. Se non importa se la riga 1 viene lasciato vuoto con una colonna vuota, allora:

RowLast = ws.Cells(Rows.Count, "A").End(xlUp).Row 
Set NewRange = ws.Cells(RowLast + 1, "A") 

dovrebbe dare il risultato desiderato indipendentemente dalle contenuto corrente del ws foglio.

Se si preoccupano riga 1 viene lasciato vuoto, la sperimentazione di Ctrl + Down e Ctrl + Up vi darà una comprensione degli effetti di diverse combinazioni di valori.

Answer 2

Il problema è che la riga Offset punta a una riga che non fa parte dell'intervallo. Ma senza l'offset, si finisce sull'ultima riga effettiva del valore. Quindi, piuttosto che cercare di scendere dall'alto, saliamo dal basso.

Go End (Giù) due volte: una volta per la fine di questo intervallo, Ancora una volta per uscire da questo intervallo. Quindi vai End (Up) una volta e quindi offset di 1:

Sub copyRow(rng As Range, ws As Worksheet) 
    Dim newRange As Range 
    Set newRange = ws.Range("A1").End(xlDown).End(xlDown).End(xlUp).Offset(1, 0) 
    rng.Copy 
    newRange.PasteSpecial (xlPasteAll) 
End Sub