VBA 병합해제 후 내용 채우기
2020. 4. 13. 14:02ㆍVBA
728x90
반응형
사용할 때
Call 병합해제_후_내용채우기(4, 4, 783)
함수
Function 병합해제_후_내용채우기(ByRef row As Integer, ByRef col As Integer, ByRef LAST_ROW As Integer)
'// row = 시작 점
'// col
'//----------------------------------------
'// 넘버 : #2
'// 날짜 : 2018-01-15
'// 내용 : 셀 병합해제 한다음 해제한 부분의 내용을 채우기
'//----------------------------------------
Dim m As Workbook
Dim ms As Worksheet
Set m = Workbooks(ThisWorkbook.Name) '// 워크북 지정
Set ms = m.Sheets(ActiveSheet.Name) '// 워크 시트 지정
Dim rn As Range '// Range 사용 위한 선언
Dim rng As Range
Set rng = ms.Range(ms.Cells(row, col), ms.Cells(LAST_ROW, col)) '// 반복 할 범위
For Each rn In rng
If rn.MergeCells Then '// 만약 병합 되어 있다면
With rn.MergeArea '// 병합 범위 병합 해제 후 내용 채우기
.UnMerge
.Value = rn
End With
End If
Next
End Function
728x90
반응형
'VBA' 카테고리의 다른 글
엑셀 vba 프린터 선택하기 (0) | 2020.05.28 |
---|---|
VBA 파워포인트에서 도형 색상 바꾸기 (0) | 2020.05.28 |
엑셀 VBA 가운데 정렬, 좌측 정렬 예제 (0) | 2020.04.13 |
엑셀VBA 배열안에서 가장 최신의 날짜를 뽑아내기 (0) | 2020.04.10 |
(엑셀VBA) VBA를 이용해서 CMD 명령어 실행하자 (0) | 2020.04.10 |