Stellar Blade Un'esclusiva PS5 che sta facendo discutere per l'eccessiva bellezza della protagonista. Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

Inserimento righe automatico e calcolo della media nella riga creata

  • Messaggi
  • OFFLINE
    smenardo
    Post: 1
    Registrato il: 22/04/2020
    Età: 45
    Utente Junior
    Excel 2016
    00 22/04/2020 22:29
    Buonasera, ho una tabella di migliaia di righe e poche colonne. Avrei bisogno di inserire in automatico delle righe vuote dopo ogni due righe della tabella e in queste nuove righe calcolare la media tra il valore presente nella riga precedente e quello nella riga successiva. Per intenderci integrare la mia tabella con dei valori medi dei valori già presenti. Ho già trovato nel vostro Forum la macro per l'inserimento delle righe in automatico e funziona perfettamente, ma non so come in quelle righe calcolare le medie. Spero sia chiaro ciò che ho bisogno di fare. Allego un file con la tabella e quello che mi serve automatizzare. Grazie mille per l'aiuto.
  • OFFLINE
    rollis13
    Post: 929
    Registrato il: 16/08/2015
    Città: CORDENONS
    Età: 67
    Utente Senior
    Excel 2016-32bit Win11
    00 23/04/2020 00:42
    Vedi se questa mia macro, da mettere nel modulo del foglio interessato, ti va bene come base da cui partire:
    Option Explicit

Sub Inserisci_Formule()

    Dim riga   As Long

    riga = 3                                        'inizia da riga 3
    Do While Range("A" & riga) <> ""
        Range("A" & riga).EntireRow.Insert          'inserisci riga vuota
        Range("A" & riga) = Range("A" & riga - 1)   'copia data
        'inserisci formule
        Range("B" & riga & ":D" & riga) = Array("=AVERAGE(R[-1]C,R[1]C)", "=AVERAGE(R[-1]C,R[1]C)", "=AVERAGE(R[-1]C,R[1]C)")
        riga = riga + 3
    Loop
    
End Sub

    ______________________________________________________________
    C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
  • OFFLINE
    smenardo
    Post: 1
    Registrato il: 22/04/2020
    Età: 45
    Utente Junior
    Excel 2016
    00 23/04/2020 08:55
    Buongiorno rollis13, grazie mille. Funziona perfettamente!!!
  • OFFLINE
    rollis13
    Post: 930
    Registrato il: 16/08/2015
    Città: CORDENONS
    Età: 67
    Utente Senior
    Excel 2016-32bit Win11
    00 23/04/2020 09:32
    Grazie del riscontro positivo 👍.
    Vedi è molto statica pertanto funzionerà sempre bene solo se la struttura dei dati rimane esattamente così, ovvero, nessuna riga vuota e con salto sempre di 2 righe.
    Si poteva partire da sotto con un "For/Next Step -2" ma sballava quando le righe di dati non era di numero pari (a meno di aggiungere ulteriori controlli).
    [Modificato da rollis13 23/04/2020 22:07]

    ______________________________________________________________
    C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
  • OFFLINE
    smenardo
    Post: 2
    Registrato il: 22/04/2020
    Età: 45
    Utente Junior
    Excel 2016
    00 23/04/2020 10:07
    si, ho visto grazie. ho fatto giusto un paio di modifiche per adattare la macro alla tabella originale. Grazie ancora, il tuo aiuto è stato risolutivo :)
Soluzioni Excel Domande e Risposte
Passa alla versione desktop

  • Anteprima