Questa leggera modifica rimuove tutto il soddisfare del per essere strato incollato prima di fare la colla della copia
Button1_Click secondari ()
La WS fioca come manuale, ds come manuale
lRow fioco come lungamente
Regolar la WS = ThisWorkbook.Worksheets (“fonte„)
Regolar ds = ThisWorkbook.Worksheets (“riconciliare„)
ds. Gamma (ds. Cellule (5, 1), ds. Cellule (ds.UsedRange.Rows.Count, ds.UsedRange.Columns.Count)). Radura
lRow = la WS. Gamma (“C65536„). Estremità (xlUp). Fila
la WS. Gamma (“C5: C„ & lRow). Copiare il ds. Gamma (“A5„)
la WS. Gamma (“H6: H„ & lRow). Copiare il ds. Gamma (“C5„)
la WS. Gamma (“J6: J„ & lRow). Copiare il ds. Gamma (“E5„)
Sommergibile dell'estremità