使用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

但您必须手动增加行高以查看结果。