Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como transformar mú...
 
Notifications
Clear all

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,106 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
 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
 joselmar
(@joselmar)
Posts: 9
Active Member
Topic starter
 

Muito obrigado Reinaldo. Resolveu a questão!

 
Postado : 18/02/2016 7:13 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico