좀 셀을 병합하고 싶습니다

Question

그래서 특정 셀 값에 따라 일부 셀 병합 나는 이런 식으로 작업을 수행하고 싶습니다 : 나는 가지를 제시 한 위의 그림에서

내가 갖고 싶어하는 병합. 그래서 셀 B6에 일부 텍스트를 입력하면 셀 범위 C6:F9과 G6:K9을 병합하고 싶습니다. B10이 C10:F13 및 G10:K13보다 큰 경우 등등 ...

또한 병합 된 셀의 텍스트는 줄 바꿈되어야합니다.

코드를 입력하면이 병합 된 셀에 텍스트가 자동으로 생성됩니다. 그 텍스트는 커질 것이고 감싸 져야합니다.

수식으로 많은 것을 시도해 보았습니다. 저를 도울 수있는 뭔가를 찾았습니다. 나는 이것을 할 수있는 vba 코드로 알고 있지만 VBA 프로그래밍/코드 /가 아닙니다! ...!

나를 도울 수있는 사람이 있으면 도움을 주시면 감사하겠습니다.

Answer 1

• 이 코드에서 시작, 모든 4 셀은 열 B에서 변경에만 병합을 실행하여 시트 탭
• View Code
• 사본을 마우스 오른쪽 버튼으로 클릭하고

아래의 코드를 붙여 넣습니다 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