使用 VBA 在一行中合并单元格答案

【问题标题】：Merge Cells in a Row using VBA使用 VBA 在一行中合并单元格
【发布时间】：2015-05-26 20:53:26
【问题描述】：

我想合并单元格 F4:AA4，（每个单元格都有数据），在合并文本之间使用换行符分隔符，即如果 F4 包含 AA，G4 包含 BB，则合并单元格 F4 中的输出应该是：

AA
BB

我想再重复这个过程 200 行。任何帮助都非常感谢。

【问题讨论】：

您的任务是什么？到目前为止你编码了什么？您是在找人为您编写代码，还是有一些代码给您带来困难？
我有一个合并两个单元格的代码，但不知道如何处理大范围。我对 VBA 不太满意，但我的上级希望我只使用 VBA 来实现它。

标签： excel vba

【解决方案1】：

这应该对第 4 行进行：

Sub MakeMerger()
   Dim rng As Range, msg As String
   Dim r As Range, v As Variant
   Set rng = Range("F4:AA4")

   For Each r In rng
      v = r.Value
      If v <> "" Then
         msg = msg & vbCrLf & v
      End If
   Next r

   msg = Mid(msg, 2)
   rng.Clear
   rng.Merge
   rng(1).Value = msg
End Sub

但您必须手动增加行高才能看到结果。

【讨论】：

谢谢 Gary，但我怎样才能将它扩展到循环接下来的 200 行？