Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Inserire righe con del testo alternato

Ultimo Aggiornamento: 11/08/2017 16:34
Post: 1
Registrato il: 11/08/2017
Città: MILANO
Età: 34
Utente Junior
Ultima
OFFLINE
11/08/2017 11:24

Buongiorno a tutti. Espongo il mio problema...
Io ho una lista molto lunga (per semplificare userò dei numeri per essere più chiaro).
Il mio file è composto cosi:
1, 1, 1, 1
2, 2, 2, 2
3, 3, 3, 3
4, 4, 4, 4
5, 5, 5, 5
Naturalmente è molto più corposo sia in colonne che righe (per chi se ne intente è un tracciato di prodotti magento).
Devo inserire tra le righe una riga con del contenuto e quindi avere un risultato simile a questo:
1,1,1,1
, ,11,
2,2,2,2
, ,22,
3,3,3,3
, ,33,
ecc
(lo spazio vuoto è voluto)
Il contenuto di 11,22,33 è preso da una colonna composta cosi
11
22
33
Come faccio ad inserire quest'ultima colonna come spiegato? Grazie
Post: 1.536
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
11/08/2017 12:15

ciao
si capisce ben poco....sottoponi un esempio di quello che hai e del risultato voluto (anche scritto a mano), integrando con una spiegazione dettagliata.

saluti


Domenico
Win 10 - Excel 2016
Post: 1
Registrato il: 11/08/2017
Città: MILANO
Età: 34
Utente Junior
Ultima
OFFLINE
11/08/2017 14:09

Ho risolto questa cosa alla vecchia maniera. 1000 righe copiate e incollate a mano. Ora però sinceramente non vorrei ripassare per ogni riga e incollare il contenuto. In pratica ho due colonne:
Colonna1
testo
vuoto
testo
vuoto
testo
vuoto

Colonna2
testo1
testo1
testo1
testo1
testo1

Colonna1 con risultato finale
testo
testo1
testo
testo1
testo
testo1
ecc

In pratica vorrei che il testo della colonna2 vada in automatico nella colonna1 nello spazio vuote, senza però intaccare il testo già presente.
E' possibile farlo? Grazie
[Modificato da Ryude19 11/08/2017 14:15]
Post: 1.537
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
11/08/2017 16:34

...
ur = Range("b" & Rows.Count).End(xlUp).Row
k = 2
For i = 2 To ur
    Cells(k, 1) = Cells(i, 2)
    k = k + 2
Next
...



Domenico
Win 10 - Excel 2016
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 13:21. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com