È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Inserimento righe automatico e calcolo della media nella riga creata

Ultimo Aggiornamento: 23/04/2020 10:07
Post: 1
Registrato il: 22/04/2020
Età: 45
Utente Junior
Excel 2016
OFFLINE
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.
Post: 929
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
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)
Post: 1
Registrato il: 22/04/2020
Età: 45
Utente Junior
Excel 2016
OFFLINE
23/04/2020 08:55

Buongiorno rollis13, grazie mille. Funziona perfettamente!!!
Post: 930
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
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)
Post: 2
Registrato il: 22/04/2020
Età: 45
Utente Junior
Excel 2016
OFFLINE
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 :)
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 05:07. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com