How to Change the Column Width and Row Height in Excel using VBA

How to Change the Column Width and Row Height in Excel using VBA

You can dynamically change column width or the row height in your Excel worksheet using simple properties in VBA. It becomes essential when you have texts or data in columns that either hides or overlaps with other columns data, or you want to increase or decrease the height of rows. The properties that we are going to discuss here are .ColumnWidth, .RowHeight and the .AutoFit method in Excel VBA.

You can anyway adjust the columns and rows without a macro or a program. However, its useful, if you want to automate your Excel job.

Note: I am assuming that you know how to work with VBA in Excel.

Related Posts:

1) How to add Hyperlinks dynamically in Excel using VBA macro: In this post I have explained with a simple example on how to add hyperlinks in your Excel worksheet using a simple Macro.

2) Highlight an Entire Row in Excel Based on a Cell Value using VBA Conditional Formatting: Learn how to highlight or add colours to rows in Excel worksheets based on certain condition using VBA.

Using .ColumnWidth Property

The .ColumnWidth property in Excel returns or sets the width of a column. For example,

Debug.print Worksheets("Sheet1").Columns("A").ColumnWidth

The above code will return the width of the column in units. It will return a value even if there is no data in any cell in Column “A”. Each unit of column width is equal to the width of one character.

Also Read: How to check if a Cell in an Excel Worksheet has numbers using VBA

Here’s another example. Look at the image below. The texts or the data in every cell in Column A overlaps with other column’s cells. The data may even hide inside the cell.

Change Column Width dynamically in Excel using VBA

You can increase the width of the column using the .ColumnWidth property. For example, the code below doubles the width of column “A” (multiplied by 2).

Sub setColumnWidth()
    With Worksheets("Sheet1").Columns("A")
        .ColumnWidth = .ColumnWidth * 2
    End With
End Sub

It multiplies the default column width with 2. However, if you have a little more lengthy data, it may not give us the desired result. The data might still overlap.

The .AutoFit property can resolve this issue.

Using .AutoFit Method to Adjust Column Width

The .AutoFit property when used against columns can adjust the width of the column taking into account the max units in any cell and adjust the entire column accordingly.

Note: The .AutoFit works the same way for Rows.

Sub setColumnWidth()
    With Worksheets("Sheet1").Columns("A")
        .AutoFit
    End With
End Sub

Similarly, you can apply the .AutoFit method on multiple columns. For example, if I want to auto-fit or auto-adjust columns through A to D, I’ll do this,

With Worksheets("Sheet1").Columns("A:D")
    .AutoFit
End With

Using .RowHeight Property in VBA

The .RowHeight property in VBA returns the height of a row. It is measured in points.

Debug.Print Worksheets("Sheet1").Rows(3).RowHeight

The above code will return the height (in points) of the 3rd row.

Now, if I want to increase the height of the 3rd row, this is how I’ll do it:

Sub setRowHeight()
    With Worksheets("Sheet1").Rows(3)
        .RowHeight = 50
    End With
End Sub

I am increasing the height of the row by 50 points. Or, you can double the row height like this:

Sub setRowHeight()
    With Worksheets("Sheet1").Rows(3)
        .RowHeight = .RowHeight * 2
    End With
End Sub

Using .AutoFit Method to Adjust Rows

Use the .AutoFit method to auto-adjust the rows according to the data (also depends upon the style such as font size) it contains. For example, if you want to adjust the 3rd row in sheet1, you can do this …

Sub setRowHeight()
    With Worksheets("Sheet1").Rows(3)
        .AutoFit
    End With
End Sub

Well, that’s it. Thanks for reading.

Previous - How to Extract or Copy Table data from Word to Excel using VBANext - How to open a File Dialog box in Excel using VBA


Like this Article? Subscribe now, and get all the latest articles and tips, right in your inbox.

Enter your email id

Delivered by FeedBurner
Tweet this article Google+

Related Posts:

Join our Google Plus Community and be a part of a discussion!