合併一些細胞取決於某些單元格值

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