Macro di Excel, copiare e incollare il valore di una cella basato sul valore di un’altra cella?

Ciao cercherò di spiegare chiaramente che cosa ho bisogno per essere in grado di fare, qui va:

Ho un Excel foglio 1 con i codici di avviamento postale, nella colonna A e un numero nella colonna B. Ho bisogno di creare una macro/formula in modo che possa vedere il numero (io.e 3) e copiare e incollare il codice postale, il numero di volte in foglio 2 colonna al di sotto di ogni altro. Ho bisogno di fare questo per la riga successiva e così via, fino si tratta di un vuoto.

Foglio 1

A       B
DE43PP  3
DE43PQ  8

Foglio 2

A       B
DE43PP
DE43PP
DE43PP
DE43PQ
...

Grazie

InformationsquelleAutor Keziah Dorman | 2010-03-25



One Reply
  1. 1

    Provare questo:

    Sub copyPostcodes()
        Dim c As Range
        Dim x As Long
        Dim y As Long
    
        y = 0
    
        For Each c In Sheets("Sheet1").Range("A:A").Cells
            If Len(c) > 0 Then
                For x = 1 To c.Offset(0, 1)
                    Sheets("Sheet2").Range("A1").Offset(y, 0) = c
                    y = y + 1
                Next x
            End If
        Next c
    End Sub
    
    • Grazie a voi che funziona perfettamente!
    • Solo un’altra query su questo punto se volevo copiare l’intera riga come faccio a modificare la macro? Grazie
    • Dorman: vuoi copiare il numero nella colonna B troppo? Una volta che il problema è risolto, si deve accettare questa risposta (e vorrei votare è troppo).
    • Grazie l’ho fatto. Sì, vorrei copiare la colonna B e, potenzialmente, C, ecc? Non sarebbe molto utile sapere se c’è relativamente facile da modificare per fare questo? Grazie

Lascia un commento