Condividi tramite

Inserire righe vuote in excel in base ad un indice

Anonimo
2023-03-13T09:47:47+00:00

Buongiorno,
Recentemente ho avuto un problema un file di excel a cui non ho trovato nessuna guida utile.
In un file di excel ho la prima colonna che è semplicemente un contatore (1,2,3 e così via).
questo file viene generato da un app di android.
ultimamente ho visto che però la prima colonna non è sempre continua (1,2,5,9,10,15 ad esempio)
quando vado a importare in android il file adesso mi genera dei problemi perché l'app importa sequanzialmente ed ignora l'indice in seguito ad un aggiornamento.
attualmente ho risolto inserendo manualmente delle righe vuote im modo da rispettare l'ordine voluto dall'app.
Esiste una funzione od una macro per poter riorganizzare automaticamente un file inserendo righe vuote in base al contatore?

1 tizio rossi
2 caio bianchi
5 sempronio verdi

dovrebbe diventare:

1 tizio rossi
2 caio bianchi
3
4
5 sempronio verdi

Grazie in anticipo.

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

1 risposta

Ordina per: Più utili
  1. Anonimo
    2023-03-13T10:33:49+00:00

    Ciao Matteo B!

    Sono Shakiru, un consulente indipendente e un utente come te, e sono felice di aiutarti oggi.

    È possibile inserire automaticamente righe vuote in Excel utilizzando una macro.

    Per utilizzare questa macro, attenersi alla seguente procedura: * Aprire il file Excel che si desidera modificare. * Premere Alt + F11 per aprire Visual Basic Editor. * Nell'editor, vai su Inserisci > modulo per creare un nuovo modulo. Copiare e incollare il codice della macro nel modulo.

    Sub InsertBlankRows() Dim LastRow come Long Dim i As Long Contatore Dim Finché

    LastRow = Cells(Rows.Count, "A"). Fine(xlUp). Fila

    Per i = 1 a LastRow If IsNumeric(Left(Cells(i, "A"), 1)) Then If Counter <> CLng(Left(Cells(i, "A"), 1)) Then Righe(i). Inserire Celle(i, "A"). Valore = CLng(Left(Cells(i - 1, "A"), 1)) + 1 Fine Se Counter = CLng(Left(Cells(i, "A"), 1)) Fine Se Avanti i Fine sub

    *Esegui la macro * Chiudi l'editor e torna a Excel. * Premere Alt + F8 per aprire la finestra di dialogo Macro. * Selezionare la macro dall'elenco e fare clic sul pulsante Esegui.

    La macro eseguirà quindi la scansione dei dati nella colonna A e inserirà una riga vuota ogni volta che il contatore cambia. Si presuppone che il contatore sia il primo carattere in ogni cella. La macro aggiornerà anche il contatore nella riga appena inserita in modo che sia maggiore del contatore precedente

    Migliori saluti Shakiru ·

    Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

    La risposta è stata utile?

    0 commenti Nessun commento