[VBA] 코드 모음1 - 셀병합관련

105 셀병합시

range("a1:c8").merge true 행마다 병합됨

range("a1:c8").merge 전체가 하나로 병합

 

range.mergearea 지정한 셀이 들어있는 병합된 범위

 

 

[병합된 셀 크기에 맞추어 그림 삽입]

Set s = Range("B2").MergeArea

ThisWorkbook.Sheet1.Shapes.AddPicture img, _

True, True, s.Left, s.Top, s.Width, s.Height

 

 

[병합된셀의 주소확인]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.MergeCells Then

MsgBox Application.WorksheetFunction.Replace(Target.Address(0, 0), 1, Application.WorksheetFunction.Find(":", Target.Address(0, 0)), "")

Else

MsgBox Target.Address(0, 0)

End If

End Sub

 

현재 'A1:B5'셀이 병합이 되어있다고 가정하고 병합된 범위내에 있는 셀의 수를 구하는 코드입니다.

Dim intA As Integer

intA = Range("A1").MergeArea.Cells.Count