Como transformar múltiplas linhas em uma coluna (macro)

2024 - VBA & Macros

Post Recente por joselmar 9 anos atrás

3 Posts

2 Usuários

0 Reactions

1,098 Visualizações

RSS

joselmar

(@joselmar)

Posts: 9

Active Member

Topic starter

Olá pessoal,
Preciso resolver um problema de dados climáticos: tenho uma planilha com 104 linhas e 31 colunas e preciso transformar as linhas em uma coluna. Na coluna (A) estão os meses do ano. Na coluna (B) até (AF) estão os dias do mês. Mandei a planilha em anexo. Preciso de uma macro que resolva isso! grato

(A)Data (B)Chuva01 (C)Chuva02 (D)Chuva03 (E)Chuva04 ...(AF)Chuva31
01/06/2002 1 2 3 4 31
01/07/2002 32 33 34 35 36
01/08/2002 37 38 39 40 41

Preciso que isso ai de cima vire isso:

01/06/2002 1
02/06/2002 2
03/06/2002 3
04/06/2002 4
...
31/06/2002 31
01/07/2002 32
02/07/2002 33
03/07/2002 34
...

Postado : 17/02/2016 10:48 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Experimente:

Sub transpondo_Chuvas()
Dim x As Long, lRow As Long
Dim iMes As Integer, iAno As Integer, iDia As Integer
Dim dData As Date
y = 2
With Sheets("Chuvas")
lRow = .Cells(Cells.Rows.Count, "A").End(xlUp).Row
For x = 2 To lRow
iMes = Month(.Cells(x, 1)): iAno = Year(.Cells(x, 1))
    
    For Z = 2 To 32
    iDia = Right(.Cells(1, Z), 2)
    dData = DateSerial(iAno, iMes, iDia)
    If Month(dData) = iMes Then
        Sheets("Plan1").Cells(y, 1) = dData
        Sheets("Plan1").Cells(y, 2) = .Cells(x, Z)
    y = y + 1
    End If
    Next
Next
End With
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 17/02/2016 11:57 am