Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Accorpamento testo

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Accorpamento testo

Postdi Statix » 29/05/14 20:59

Ciao a tutti, ciao Anthony47,
ho un grandissimo problema e pochissimo tempo,
dovrei accorpare il testo di diverse celle variabili,
sono dei quiz circa 5000, li ho sempre fatto con una piccola macro che univa il testo delle celle selezionate,
ma questo mi richiede molto tempo e purtroppo adesso ne ho pochissimo a disposizione, avevo pensato se potevi realizzare una macro che accorpasse in automatico il testo delle celle,
visto che il foglio con il testo lo ho ordinato , credo che sia fattibile usando come riferimento i numeri progressivi in colonna A,
secondo me contare le righe tra un numero e l'altro, esempio tra il 1 e 2 ci sono 3 righe , la macro accorpa il testo della colonna B di 3 righe ,colonna C di 3 righe e così via fino alla colonna F e poi alla fine eliminare tutte le righe vuote,
ti allego un foglio test per farti vedere come sono predisposti i riferimenti e un foglio Test fine come deve alla fine.
ringrazio anticipatamente.

http://www.filedropper.com/test_9
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Accorpamento testo

Postdi Anthony47 » 29/05/14 22:45

Penso che questa potrebbe funzionare:
Codice: Seleziona tutto
Sub Assemblad()
Dim OutSh As String, LastA As Long, I As Long, J As Long, CNum As Long
Dim K As Long, OI As Long, myB As String, myC As String, myD As String, myE As String, myF As String
OutSh = "Foglio2"         '<<<<
Sheets(OutSh).Cells.ClearContents
LastA = Cells(Rows.Count, 1).End(xlUp).Row + 10
For I = 1 To LastA
    CNum = Cells(I, 1)
    For K = 1 To 10
        If Cells(I + K, 1) <> "" Then Exit For
    Next K
    myB = "": myC = "": myD = "": myE = "": myF = ""
    For J = 1 To K
        myB = myB & " " & Cells(I + J - 1, 2)
        myC = myC & " " & Cells(I + J - 1, 3)
        myD = myD & " " & Cells(I + J - 1, 4)
        myE = myE & " " & Cells(I + J - 1, 5)
        myF = myF & " " & Cells(I + J - 1, 6)
    Next J
    OI = OI + 1
    Sheets(OutSh).Cells(OI, 1) = CNum
    Sheets(OutSh).Cells(OI, 2) = Trim(myB)
    Sheets(OutSh).Cells(OI, 3) = Trim(myC)
    Sheets(OutSh).Cells(OI, 4) = Trim(myD)
    Sheets(OutSh).Cells(OI, 5) = Trim(myE)
    Sheets(OutSh).Cells(OI, 6) = Trim(myF)
    I = I + K - 1
Next I
End Sub

Riassembla domande e risposte nel foglio impostato con l' istruzione marcata <<<, foglio che deve gia' esistere e che SARA' AZZERATO SENZA PREAVVISO dalla macro.

Controlla solo che l' ultima domanda del foglio sorgente sia assemblata correttamente (potrebbe sbagliare se "smembrata" su piu' di 10 righe).

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Accorpamento testo

Postdi Statix » 29/05/14 23:13

Ciao Anthony47,
mi da un errore.
il foglio con i dati Table 1
Immagine
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Accorpamento testo

Postdi Statix » 29/05/14 23:21

Ok sembra tutto ok,
dovevo rinominare il foglio2,
domani ti faccio sapere se è effettivamente tutto ok,
grazie
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Accorpamento testo

Postdi ricky53 » 29/05/14 23:24

Ciao,
i nomi fogli che contengono spazi sono da evitare perchè possono creare problemi.

Rinomina "Table 1" in "Table1"
Modifica il nome del foglio nella macro "Assemblad" e prova di nuovo.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Accorpamento testo":


Chi c’è in linea

Visitano il forum: Nessuno e 17 ospiti