Come copiare & incollare a righe disponibili in Macro

Microsoft Excel è particolarmente appassionato di intervalli contigui . Quando una serie è interrotta da celle vuote , Excel aggiunge un livello di difficoltà per le attività di foglio di calcolo . A volte la soluzione è quella di riempire gli spazi vuoti , copiando le righe che contengono dati e incollando i valori nelle righe vuote sotto. Se stai lavorando con un grande foglio di calcolo , probabilmente non si vuole farlo a mano . Invece , utilizzare un Visual Basic for Applications ( VBA) la macro per trovare le righe disponibili e incollare i dati automaticamente . Istruzioni
1

Open " Microsoft Excel ", versione 2002 o successiva .
2

Creare un foglio di lavoro per testare la macro. Includere le righe con i dati e le righe che sono vuoti . Immettere quanto segue:

cella B1 : test1

cella C1 : test1

cella A4 : test2

cella B4 : test2

cella C4 : test2

cella D4 : test2

cellulare A5 : test3

cella B5 : test3

cella C5 : test3

cella A9 : test4

3 Premere il tasto " Alt + F11 " per aprire l' editor di Visual Basic
4

Inserire un modulo in bianco per tenere il vostro codice VBA . . Selezionare "Inserisci ", poi "Modulo " dal menu .
5

Inizia una nuova subroutine denominata " PasteAvail . " Digitare il seguente codice nel modulo : . " Enter"

Sub PasteAvail ( ) per

Press Excel aggiungere un'istruzione "End Sub " .
6

dichiarare le variabili che si intende utilizzare . Digitare quanto segue: tra il "Sub " e "End Sub " dichiarazioni :

Dim MaxRows As Long , LastRow As Long , i As Long Dim

MaxCols As Integer , Primariga As Integer
Pagina 7

Assegna variabili per contenere il numero totale di righe e colonne del foglio di lavoro . Il valore reale di queste variabili dipende dalla versione di Excel che si sta utilizzando . Digitare quanto segue :

MaxRows = Rows.Count

MaxCols = Columns.Count
8

Assegna variabili per contenere i numeri di riga per la prima e l'ultima righe che contengono dati . Questo consente di evitare un lungo ciclo attraverso ogni riga del foglio di lavoro . Digitare quanto segue : . .

Primariga = 1

LastRow = Cells ( MaxRows , 1 ) End ( xlUp ) Riga
9

aggiungere il codice per esaminare ogni fila , dal primo all'ultimo , decide se la riga è vuota , e copiare o incollare come necessario . Digitare quanto segue : .

For i = Primariga Per LASTROW

Rows ( i) Selezionare

WorksheetFunction.CountBlank ( Rows ( i) ) = MaxCols Poi

ActiveSheet.Paste

Else

Selection.Copy

End If

Next i
10

Lascia il " End Sub " dichiarazione a posto .
11

eseguire la macro . Selezionare "Esegui ", quindi " Esegui Sub /UserForm " dal menu .
12

Premi " Alt + F11 " per tornare al foglio di lavoro di Excel e visualizzare i risultati .