Estou tentando dividir dados de uma única célula para várias linhas, conforme mostrado abaixo.
Eu estou usando o código abaixo mencionado:
Sub TransposeRange()
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "Splitcell"
Set InputRng = Application.Selection.Range("A1")
Set InputRng = Application.InputBox("Range(single cell) :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Arr = VBA.Split(InputRng.Range("A1").Value, Chr(9))
OutRng.Resize(UBound(Arr) - LBound(Arr) + 1).Value = Application.Transpose(Arr)
End Sub
3
Qual é a sua pergunta?
—
DavidPostill
Se você tentou inserir uma imagem, não podemos vê-la. Qual é o seu problema real, o que exatamente não está funcionando? O que o código não faz?
—
Mokubai