根据某些单元格值合并一些单元格

Question

所以，我想合并一些单元格，我想这样做：

在上图中，我展示了我想要的那种合并。所以，如果我在单元格B6 中输入一些文本，我想将单元格范围C6:F9 和G6:K9 合并。如果B10 比C10:F13 和G10:K13。等等……

此外，这些合并单元格中的文本应该被换行。

当我输入代码时，我会在这个合并的单元格中自动生成文本。该文本会很大，需要换行。

我用公式尝试了很多东西，寻找可以帮助我的东西。我知道使用vba 代码我可以做到这一点，但我不喜欢 VBA 编程/代码/...！

如果有人可以帮助我，任何帮助将不胜感激。

Answer 1

• 右键单击您的工作表标签
• View Code
• 复制粘贴下面的代码

此代码将仅对 B 列中每第四个更改的单元格运行合并，从 B2 开始

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Intersect(Target, Range("B:B"))
If rng1 Is Nothing Then Exit Sub
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
For Each rng2 In rng1
'If rng2.Row > 1 Then
If (rng2.Row - 2) Mod 4 = 0 Then
With rng2.Offset(0, 1).Resize(4, 4).Cells
.MergeCells = True
.WrapText = True
End With
End If
'End If
Next
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub