Sao chép chiều cao hàng và chiều rộng cột bằng VBA trong Microsoft Excel
Với các macro bên dưới, bạn có thể sao chép chiều cao hàng và chiều rộng cột từ dải ô này sang dải ô khác.
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
Ví dụ:
CopyColumnWidths(Range("E1:H1"), Range("A1:D1")) CopyColumnWidths(Worksheets("Sheet2").Range("A1:D1"), _ Worksheets("Sheet1").Range("A1:D1"))