| | Post: 40 | Registrato il: 20/02/2015
| Età: 50 | Utente Junior | 2007 / 2010 | | OFFLINE | |
|
14/02/2020 13:10 | |
nella colonna A ho dei dati intervallati dagli spazi, vorrei che al posto degli spazi vengano inseriti i dati sovrastanti fino a quando non si incontra una cella piena
Nel file il risultato atteso [Modificato da mapero 14/02/2020 13:29] |
|
|
14/02/2020 13:39 | |
Assomiglia ad un asterisco, invece è differente
Puoi verificare con la formula =CODICE(A4) e casomai cambiare in ...Chr(176)
Sub copia()
Dim ur, x, y, txt
ur = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Foglio1").Activate
For x = 2 To ur
If Cells(x, 1) <> "*" Then
txt = Cells(x, 1)
For y = x + 1 To ur
If Cells(y, 1) = Chr(176) Then Exit For
If Cells(y, 1) = "" Then
Cells(y, 1) = txt
End If
Next
x = y
End If
Next
End Sub
|
| | Post: 40 | Registrato il: 20/02/2015
| Età: 50 | Utente Junior | 2007 / 2010 | | OFFLINE | |
|
14/02/2020 13:44 | |
cavolo vba, per una cosa così semplice ?
in pratica ogni volta che trova uno spazio deve inserire il dato subito sopra fino a quando non trova la cella occupata.
|
|
14/02/2020 15:55 | |
A me piace il VBA, comunque se preferisci le formule, aspetta un'altra risposta dagli esperTi.
Nel frattempo allego una formula (nella quale devi cambiare un solo particolare)
=SE(A2<>"";A2;FORMULA("A"&CERCA(2;1/(A1:A$2<>"");RIF.RIGA(A1:A$2)))) [Modificato da ABCDEF@Excel 14/02/2020 16:11] |
| | Post: 41 | Registrato il: 20/02/2015
| Età: 50 | Utente Junior | 2007 / 2010 | | OFFLINE | |
|
14/02/2020 16:10 | |
ABCDEF@Excel, 14/02/2020 15.55:
>>>...per una cosa così semplice ?
Usa formule, suggerimento "cambia un solo particolare" nella formula. In colonna B (avrai la lista), in B2 dopo trascini giù.
=SE(A2<>"";A2;FORMULA("A"&CERCA(2;1/(A1:A$2<>"");RIF.RIGA(A1:A$2))))
perdona la mia ignoranza... dovresti indicarmi i vari passaggi più dettagliatamente... se ti va
da solo non sono capace
[Modificato da mapero 14/02/2020 17:44] |
| | Post: 504 | Registrato il: 15/01/2016
| Città: ROMA | Età: 51 | Utente Senior | 2016 | | OFFLINE |
|
14/02/2020 18:21 | |
Buonasera
In B2 da trascinare in basso
=CERCA(2;1/(A$2:A2<>"");A$2:A2) |
| | Post: 42 | Registrato il: 20/02/2015
| Età: 50 | Utente Junior | 2007 / 2010 | | OFFLINE | |
|
14/02/2020 18:37 | |
DANILOFIORINI, 14/02/2020 18.21:
Buonasera
In B2 da trascinare in basso
=CERCA(2;1/(A$2:A2<>"");A$2:A2)
perfetta
|
| | Post: 4.212 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
15/02/2020 08:41 | |
Ciao Danilo, me la puoi spiegare ? [Modificato da patel45 15/02/2020 10:11]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
|
|