我想合并单元格F4:AA4,(每个单元格都有数据),合并文本之间有换行符,即如果F4包含AA而G4包含BB则合并单元格F4中的输出应为:
AA
BB
我想再重复这个过程200行。任何帮助都非常感谢。
答案 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
但您必须手动增加行高以查看结果。