2

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

在此处输入图像描述

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

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

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

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

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

4

1 回答 1

2
  • 右键单击您的工作表选项卡
  • 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
于 2013-02-16T12:41:16.393 回答