合并一些细胞取决于某些单元格值

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