Macro Excel do VBA que pode anexar dados de uma linha a outra

Question

Eu tenho uma macro que faz o seguinte:

• Verifica se as linhas consecutivas têm os mesmos dados (Colunas F e G)

Eu preciso que essa macro também faça o seguinte:

• Se os dados nas Colunas F e G forem idênticos à próxima linha
• Combine os dados nas Colunas A, B, C, D, I e J nas duas linhas até o FIM da primeira linha. Como se você tivesse pressionado ALT + ENTER e inserido os dados

Alguma idéia?

Sub test()
 'define variables
  Dim RowNum as long, LastRow As long

 'turn off screen updating
  Application.ScreenUpdating = False

 'start below titles and make full selection of data
  RowNum = 2
  LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
  Range("A2", Cells(LastRow, 10)).Select

'For loop for all rows in selection with cells
 For Each Row In Selection
 With Cells

 'if first name matches
   If Cells(RowNum, 5) = Cells(RowNum + 1, 5) Then
    'and if last name matches
     If Cells(RowNum, 6) = Cells(RowNum + 1, 6) Then
        *******This is the part I cannot figure out!*******
        Rows(RowNum + 1).EntireRow.Delete
     End If
   End If
 End With

 'increase rownum for next test
  RowNum = RowNum + 1
  Next Row

 'turn on screen updating
  Application.ScreenUpdating = True

End Sub

    

Answer 1

Para anexar o conteúdo do código Alt + Enter , use o seguinte código:

Cells(RowNum, 1).Value = Cells(RowNum, 1).Value & Chr(10) & Cells(RowNum + 1, 1).Value

Isso funcionará para células na coluna A .