|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2019
* 아래줄에 질문을 작성하세요 >>
--------------------------------------------------------
Dim i As Integer, rngData As Range
Dim intR As Integer
Set rngData = Range("a4").CurrentRegion
intR = rngData.Rows.Count
For i = Cells(Rows.Count, "h").End(3).Row To 2 Step -1
If Cells(i, "h") <> "" Then
Cells(i + 1, "a").Resize(, 8).Insert Shift:=xlDown
Cells(i, "h").Cut Cells(i + 1, "B")
Range(Cells(i + 1, "B"), Cells(i + 1, "g")).Merge
End If
-----------------------------------------------------------------
행 추가 후 병합하는 매크로 입니다.
추가로 하고 싶은 작업인데,,,
병합이 된 셀을 왼쪽 정렬로 하고 싶은데, 방법을 모르겠습니다.
확인 해주시면 감사하겠습니다~
==============[아이떼떼님 글에 대한 답변입니다]==============
Range(Cells(i + 1, "B"), Cells(i + 1, "g")).Merge
이부분을 아래와 같이 수정하세요.
With Range(Cells(i + 1, "B"), Cells(i + 1, "g"))
.Merge
.HorizontalAlignment = xlLeft
End With
|
|