[Risolto] ottenere il primo valore da una lista

[anc]

Buongiorno,
avrei bisogno di una formula per ottenere sulla prima colonna il primo valore presente sulla seconda colonna.
Ho fatto degli screenshot della tabella di partenza e del risultato che dovrei ottenere, chiedo però aiuto nel creare la formula che mi permette di ottenere questo risultato
Grazie a tutti per l'aiuto

[patel]

le immagini servono a poco, allega il file ods e qualche spiegazione in più, la formula è banale, in A6 basta mettere =B$6 e trascinare in alto

[anc]

le immagini erano solo un esempio per simulare la mia situazione
ho un file con 25000 righe, di cui solo 1400 hanno un valore nella colonna B, mi serve una formula per riportare questi valori in automatico nella colonna A senza dover trascinare in alto a mano la formula per ogni cella dove è presente un valore

[patel]

occorre una macro e un file di esempio con poche righe per testarla

[anc]

allego file di esempio

[patel]

prova questa macro

Codice: Seleziona tutto

Sub riempi()
Doc = ThisComponent
Sh = Doc.Sheets(0)
LR = Last_Row(Sh, 1)
For r = LR to 0 step -1
   if Sh.getCellByPosition(1, r).String = "" then
      Sh.getCellByPosition(0, r).String = b
   else
      b=Sh.getCellByPosition(1, r).String
      Sh.getCellByPosition(0, r).String = b
   end if
Next
End Sub

Function Last_Row(oSheet As Object, Col As Long) As Long
  Dim c As Object, oRangePiena As Object, LastRow As Long
  c = oSheet.createCursor
  c.gotoEndOfUsedArea(false)
  LastRow = c.RangeAddress.EndRow
  oRangePiena = oSheet.getCellRangeByPosition(Col, 0, Col, LastRow).queryContentCells(1+2+4).RangeAddresses
  If Ubound(oRangePiena) < 0 Then
       Last_Row = - 1
  Else   
       Last_Row = oRangePiena(Ubound(oRangePiena)).EndRow
  End if
End Function

[Attilafdd]

...mi serve una formula per riportare questi valori in automatico nella colonna A senza dover trascinare in alto a mano la formula per ogni cella dove è presente un valore

In A1:

Codice: Seleziona tutto

=SE(B1="";A2;B1)

e copi in basso (una sola volta... ma almeno una volta dovrai pur farlo )

[Attilafdd]

... e se non ti piacciono gli zeri in coda puoi "pulire" modificandola così (sempre in A1):

Codice: Seleziona tutto

=SE(A2=0;"";SE(B1="";A2;B1))

[anc]

Grazie mille dell'aiuto a tutti, ho risolto perfettamente

[gioh66]

Buondì, a beneficio di chi possa avere un'esigenza simile, sarebbe gradito che indicassi anche come hai risolto. Grazie!

[anc]

... e se non ti piacciono gli zeri in coda puoi "pulire" modificandola così (sempre in A1):

Codice: Seleziona tutto

=SE(A2=0;"";SE(B1="";A2;B1))

questa è la formula che ho usato per risolvere

[gioh66]

Perfetto grazie