300x250
셀 3개씩 병합해보자.
1. 엑셀파일 만들기
2. 코드작성
|
1
2
3
4
5
6
7
8
9
10
|
Sub 병합하고가운데맞춤()
Range(ActiveSheet.Cells(2, 4), ActiveSheet.Cells(2, 4 + 2)).Merge
Range(ActiveSheet.Cells(2, 4), ActiveSheet.Cells(2, 4 + 2)).HorizontalAlignment = xlCenter
Range("G2:I2").Merge
Range("G2:I2").HorizontalAlignment = xlCenter
End Sub
|
cs |
3. 결과
300x250
'엑셀 > VBA' 카테고리의 다른 글
| 엑셀 vba/데이터 한열에 정리하기 (0) | 2023.11.12 |
|---|---|
| 엑셀 VBA/필터된 셀을 필터된 곳에 붙여넣기/보여지는 셀에만 붙여넣기 (1) | 2023.10.16 |
| 엑셀 VBA - 다른 시트 데이터 복사하기/범위 복사/정리하기 (0) | 2023.10.10 |
| 엑셀 VBA - 조건에 맞는 sheet 전체 이름 가져오기 (0) | 2023.10.10 |
| 엑셀 vba/시트 없으면 시트 생성하기/On Error Resume Next/Sheets.Add.Name (0) | 2023.08.13 |