根据某些细胞值合并一些细胞

Question

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

在上图中，我介绍了我想要的那种合并。因此，如果我在单元格B6中输入一些文字，我想要合并单元格范围C6:F9和G6:K9。如果B10比C10:F13和G10:K13。等等...

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

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

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

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

Answer 1

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

此代码仅对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