Microsoft Excelのマクロの開発には、次のサンプルコードを使用できます。これは、2行を1つに組み合わせて、値をコンマと共有することができます。

<vba>
サブマージー（）
  変数の発表
  ワークシートとしてのDIM WS
  薄暗いラストロウ
  範囲としてdim rng
  範囲としての薄暗いセル
  文字列としての薄暗いstrvalues
  
  'ワークシートと最後の行を設定します
  ws = thisworkbook.sheets（ "sheet1"）をset
  lastrow = ws.cells（ws.rows.count、 "a"）。end（xlup）。rout
  
  '結合されるさまざまなセルを作成する
  rng = ws.range（ "a2：a"＆lastrow）をset
  
  '各セルに行きます
  RNGの各セルについて
    'セルが空であるかどうかを確認してください
    そうではない場合（セル）
      'セル値をラインに追加します
      strvalues = strvalues＆cell.value＆ "、"
    それ以外
      「セルが空の場合は、最後のコンマを削除します
      strvalues = left（strvalues、len（strvalues）-1）
      '最初のセルの値を複合値に設定する
      Cell.Offset（0、-1）.Value = strvalues
      '次のサイクルの範囲
      strvalues = ""
    ifを終了します
  次のセル
End Sub
</ vba>

このマクロは、列AのA2から最後の線まで各セルを通過し、各セルの値を文字列変数に追加します。セルが空の場合、文字列変数は以前のセルの値の合計で設定され、左側のセルに配置されます。このマクロは、コンマで区切られた値と2つの組み合わせラインを作成します。
Вы можете использовать следующий образец кода для разработки макроса для Microsoft Excel, который объединяет две строки в одну и разделяет их значения запятой:

<VBA>
Sub MergeRows()
  'Объявление переменных
  Dim ws As Worksheet
  Dim lastrow As Long
  Dim rng As Range
  Dim cell As Range
  Dim strValues As String
  
  'Установите рабочий лист и последнюю строку
  Set ws = ThisWorkbook.Sheets("Sheet1")
  lastrow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
  
  'Создайте диапазон ячеек, которые будут объединены
  Set rng = ws.Range("A2:A" & lastrow)
  
  'Пройдитесь по каждой ячейке
  For Each cell In rng
    'Проверьте, пуста ли ячейка
    If Not IsEmpty(cell) Then
      'Добавьте значение ячейки в строку
      strValues = strValues & cell.Value & ","
    Else
      'Если ячейка пуста, удалите последнюю запятую
      strValues = Left(strValues, Len(strValues) - 1)
      'Установите значение первой ячейки в объединенное значение
      cell.Offset(0, -1).Value = strValues
      'Сброс строки для следующего цикла
      strValues = ""
    End If
  Следующая ячейка
End Sub
</VBA>

Этот макрос пройдется по каждой ячейке от A2 до последней строки в столбце A и добавит значение каждой ячейки в строковую переменную. Если ячейка пуста, то строковая переменная устанавливается в сумму значений предыдущих ячеек и помещается в ячейку слева. Этот макрос создаст две объединенные строки со значениями, разделенными запятой.