Объединить несколько ячеек в зависимости от определенного значения ячейки

Question

Таким образом, я хотел бы объединить несколько ячеек, и я хотел бы сделать это следующим образом:

На картинке выше я уже представил вид слияние, которое я хотел бы иметь. Итак, если я введу какой-то текст в ячейку B6, я бы хотел, чтобы диапазон ячеек C6:F9 и G6:K9 был объединен. Если B10, чем C10:F13 и G10:K13. и так далее ...

Кроме того, текст в этих объединенных ячейках должен быть обернут.

Когда я ввожу код, у меня будет автоматически сгенерированный текст в этих объединенных ячейках. Этот текст будет большим, и его необходимо обернуть.

Я пробовал много вещей с формулами, искал что-то, что могло мне помочь. Я знаю, что с кодом vba я мог бы это сделать, но я не в программировании VBA/code/...!

Если есть кто-то, кто мог бы мне помочь, любая помощь будет оценена по достоинству.

Answer 1

• правой кнопкой мыши вкладку листа
• 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