Esta UDF simples transporá os dados mostrados com células em branco entre:
Option Base 1
Function TranBlank(X As Range, Y As Long) As Variant
Dim RZArray() As String
Dim c As Range
i = 0
For Each c In X
If Len(c) > 0 Then
i = i + 1
ReDim Preserve RZArray(i)
RZArray(i) = c.Value
End If
Next c
TranBlank = RZArray(Y)
End Function
Como funciona:
- Copiar & Cole este código como módulo com Folha relacionada.
- Escreva esta fórmula e preencha.
-
Ajustar referências de célula na fórmula como necessário.
=IFERROR(TranBlank(A$2:D$7,ROW(A1)),"")