Note: The other languages of the website are Google-translated. Back to English
Login  \/ 
x
or
x
Registrati  \/ 
x

or

Come utilizzare la macro per inserire la riga sotto la tabella in Excel?

È comune per noi aggiungere righe vuote nella parte inferiore di una tabella specificata per espandere la tabella e aggiungere nuovo contenuto. Questo articolo parla dell'utilizzo di una macro per inserire una nuova riga sotto una tabella specificata e mantenere la formula della cella sopra in Excel.

Usa la macro per inserire la riga sotto la tabella in Excel


Usa la macro per inserire la riga sotto la tabella in Excel


Si prega di fare quanto segue per inserire una riga vuota sotto una tabella specificata con macro.

1. premi il altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo per aprire la finestra del modulo. Quindi copia e incolla il codice VBA sottostante nella finestra.

Codice VBA: usa la macro per inserire una riga vuota sotto una tabella specificata

Sub AddRows()
'Updated by Extendoffice 2017/9/12
    Dim xLastRow As Long
    Dim xRg As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the table range you will insert blank row below:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xLastRow = xRg.Row + xRg.Rows.Count
    xRg.Rows(xLastRow).FillDown
    xRg.Rows(xLastRow).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

3. premi il F5 chiave per eseguire il codice. E a Kutools for Excel si apre la finestra di dialogo, selezionare il determinato intervallo di tabelle a cui aggiungere una riga vuota sotto, quindi fare clic su OK pulsante. Vedi screenshot:

Quindi puoi vedere una nuova riga vuota aggiunta nella parte inferiore della tabella specificata. E la formula nella cella sopra è anche riservata nella riga appena inserita come di seguito vedi screenshot mostrato:


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce centinaia di clic del mouse ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    asraels@gmail.com · 1 years ago
    Slightly shorter version: Activesheet.ListObjects(1).ListRows.Add