excel - 根据特定单元格值合并一些单元格

Question

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

在上图中，我展示了我想要的合并类型。因此，如果我在单元格 B6 中输入一些文本，我希望合并单元格范围 C6:F9 和 G6:K9。如果 B10 大于 C10:F13 和 G10:K13。等等...

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

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

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

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

Answer 1

• 右键单击工作表标签
• 查看代码
• 复制并粘贴以下代码

此代码将仅对 B 列中每 4 个发生更改的单元格运行合并，从 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