Excel vba delimitador

deejaywesley · 1 de setembro de 2016

Bom dia Galera a quanto tempo...

meu probleminha é o seguinte...

preciso que este código, ou similar,

Sub Treta()

    Sheets("Plan1").Select
    Range("B2:B15").Select
    Selection.Copy
    Sheets("Plan2").Select
    Range("G2").Select
    ActiveSheet.Paste
    Sheets("Plan1").Select
    Range("B2").Select

Plan1.Range("B2").ClearContents

ActiveWorkbook.Save


End Sub

pegue os valores da coluna B2:B15, que são assim

18-2-3-60-50-30-30

40-5-3-20-70-40-90
26-2-3-10-50-20-20
71-6-3-40-80-40-10
etc

e cole na plan2 a partir de G2 assim...

G2 --------- H2 --------- I2 --------- J2 --------- K2 --------- L2 --------- M2

18 ---------- 2---------- 3 ----------- 60 --------- 50 --------- 30 --------- 30

40 ---------- 5---------- 3 ----------- 20 --------- 70 --------- 40 --------- 90
26 ---------- 2---------- 3 ----------- 10 --------- 50 --------- 20 --------- 20
71 ---------- 6---------- 3 ----------- 40 --------- 80 --------- 40 --------- 10

alguém sabe alterar ai pra mim...

desde ja, muito obrigado!

Basole · 1 de setembro de 2016

@deejaywesley veja se é isso que precisa.

	Sub Transpor_Cell_Col_Basole()
    Dim i As Long, x As Long, strArray() As String, MyArray As String
	    With ThisWorkbook.ActiveSheet
      
        For x = 2 To 15
            MyArray = .Cells(x, 2).Text
	            strArray = Split(MyArray, "-")
	            For i = LBound(strArray) To UBound(strArray)
                ThisWorkbook.Sheets("plan2").Cells(x, i + 7).Value = strArray(i)
            Next i
	        Next x
	.Range("B2").ClearContents
ThisWorkbook.Save
    End With
	End Sub