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

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

在上面的图片中，我提出了我想要的合并types。 所以，如果我在单元格B6input一些文本，我想单元格范围C6:F9和G6:K9被合并。 如果B10比C10:F13和G10:K13 。 等等 …

而且，这些合并的单元格中的文本应该被包装。

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

我已经尝试了很多配方的东西，寻找可以帮助我的东西。 我知道用vba代码我可以做到这一点，但我不进入VBA编程/代码/ …！

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

Answer 1

• 右键单击您的工作表选项卡
• View Code
• 复制并粘贴在下面的代码

这个代码将只运行在B列中从B2开始更改的每个第4个单元格的合并

 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