VBA Excel Macro, который может добавлять данные из одной строки в другую

Question

У меня есть макрос, который делает следующее:

• Проверяет, есть ли в последовательных строках одинаковые данные (столбцы F и G)

Мне нужен этот макрос, чтобы также как-то сделать следующее:

• Если данные в столбцах F и G идентичны следующей строке
• Объедините данные в столбцах A, B, C, D, I и J для обеих строк в КОНЕЦ первой строки. Как будто вы нажали ALT + ENTER и ввели данные

Есть идеи?

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

Для добавления содержимого ячейки стиля Alt+Enter используйте следующий код:

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

Это будет работать для ячеек в столбце.