아래 매크로를 사용하여 한 범위에서 다른 범위로 행 높이와 열 너비를 복사 할 수 있습니다.

Private Sub CopyRowHeigths(TargetRange As Range, SourceRange As Range)

Dim r As Long

With SourceRange

For r = 1 To .Rows.Count

TargetRange.Rows(r).RowHeight = .Rows(r).RowHeight

Next r

End With

End Sub

Private Sub CopyColumnWidths(TargetRange As Range, SourceRange As Range)

Dim c As Long

With SourceRange

For c = 1 To .Columns.Count

TargetRange.Columns(c).ColumnWidth = .Columns(c).ColumnWidth

Next c

End With

End Sub

예 :

CopyColumnWidths(Range("E1:H1"), Range("A1:D1"))

CopyColumnWidths(Worksheets("Sheet2").Range("A1:D1"), _

Worksheets("Sheet1").Range("A1:D1"))