使用VBA合并行中的单元格

Question

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

AA
BB

我想对另外200行重复这个过程。任何帮助我们的人都非常感谢。

Answer 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

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