Questione : Excel VBA - Concatenare le cellule in ogni altra colonna nella gamma

La lima allegata ha alcune colonne in cui vorrei unire tutte le colonne del testo (ogni seconda colonna che comincia con B) ed utilizzare i risultati in una colonna su Sheet1, per esempio.
Hard-coded con una formula, sarebbe =concatenate abbastanza semplice (b2, “ | „, d2, “ | „, F2, “ | „, h2) con il tubo-simbolo “ | „ dividendo ogni giacimento del testo.  O ha potuto appena essere =b2 & “ | „ & d2… ecc.  Allora incollare la formula giù il page.

I non può calcolare fuori come fare questo in VBA though.
I pensare che dobbiate usare la a per… ciascuno e contare le colonne attraverso per concludere (xlToLeft) allora punto 2 per ogni altro column.
Then…?  ogni cellula si aggiunge a quella seguente fino all'estremità della gamma. ???
For che cosa motivo la sintassi per l'accumulazione delle cellule e della gamma (e la logica di conteggio attraverso ed allora di riferire le variabili) non rende il senso o a lavoro per me.
Thanks per il vostro aiuto! class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

class= " fileInfo " del
il title= " " di nome di schedario del class= " di sampleText-concatenate.xls il class= (32 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
concatenare le cellule in ogni altro column
il class= di
del >
class= del

Risposta : Excel VBA - Concatenare le cellule in ogni altra colonna nella gamma

Provare questo:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

Sub ConcatenateText ()
    
    Oscurare il lastRow come lungamente
    Oscurare il lastCol come lungamente
    Oscurare il tempLastRow come lungamente
    Oscurare la i come lungamente 'incrementano le file
    Oscurare la p come lungamente 'incrementano le colonne
    Oscurare il conValue come stringa
    Il conSheet fioco come stringa 'concatena il nome dello strato
    destSheet fioco come nome dello strato della destinazione di stringa '
    
    destSheet = “Sheet1„
    conSheet = “surveyText„

    lastRow = strati (conSheet). Gamma (“A„ & Rows.Count). Estremità (xlUp). Fila
    lastCol = strati (conSheet). Gamma (Columns.Count & “: 1„). Estremità (xlToRight). Colonna
    
    Per i = 2 a lastRow
        Per p = 2 a punto 2 di lastCol
            conValue = conValue & “ | „ & strati (conSheet). Cellule (i, p). Valore
        Dopo
        tempLastRow = strati (destSheet). Gamma (“A„ & Rows.Count). Estremità (xlUp). Fila + 1
        Strati (destSheet). Cellule (tempLastRow, 1).Value = di destra (conValue, Len (conValue) - 3)
        conValue = ""
    Dopo i
    
    MsgBox “fatto!„
    
Sommergibile dell'estremità
 
sampleText-concatenate.xls (47 Kb) (tipo di lima particolari) 
Esempio
 
Altre soluzioni  
 
programming4us programming4us