使用VBA合并单元格中的单元格

时间:2015-05-26 12:24:16

标签: excel-vba vba excel

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

AA
BB

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

1 个答案:

答案 0 :(得分:0)

这应该在第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

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