Excel Column autowidth

Question

I am writing an application in VB 6 where I need to resize the column width of an Excel worksheet to that of the maximum size of the content in that column. The property Autofit only makes the width of the columns as wide as that of its caption. But I want it to be done on the basis of the maximum size of its content.

Is there a way to achieve this?

Please review you previous questions and mark as answers where appropriate — Matt Wilko
– Matt Wilko, Commented May 20, 2011 at 15:23

Tobias Schittkowski · Accepted Answer · 2011-05-20 11:02:14Z

3

The autofit function should work fine, just make sure:

First insert all data, the call autofit
Call autofit on the entire column, not a single cell (e.g. .Cells(1,1).EntireColumn.Autofit()

Hope, this helps...

answered May 20, 2011 at 11:02

Tobias Schittkowski

2,2612 gold badges16 silver badges25 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Matt Wilko · Accepted Answer · 2011-05-20 11:12:46Z

3

Your code should look something like this:

Columns("D:D").EntireColumn.AutoFit

answered May 20, 2011 at 11:12

Matt Wilko

27.4k10 gold badges99 silver badges146 bronze badges

Comments

Andriy M · Accepted Answer · 2012-11-27 14:48:53Z

3

This example changes the width of columns A through I on Sheet1 to achieve the best fit:

Worksheets("Sheet1").Columns("A:I").AutoFit

This example changes the width of columns A through E on Sheet1 to achieve the best fit, based only on the contents of cells A1:E1:

Worksheets("Sheet1").Range("A1:E1").Columns.AutoFit

edited Nov 27, 2012 at 14:48

Andriy M

78k18 gold badges100 silver badges157 bronze badges

answered Nov 27, 2012 at 14:21

preeti

311 bronze badge

Comments

Community · Accepted Answer · 2017-05-23 11:47:53Z

2

Auto fit will work only for numbers and date.

Please see Excel 2003 XML format - AutoFitWidth not working

edited May 23, 2017 at 11:47

CommunityBot

11 silver badge

answered May 20, 2011 at 11:10

Rifky

1,48411 silver badges28 bronze badges

Comments

Raj Kumar · Accepted Answer · 2012-08-01 10:13:33Z

0

Enter your text
place mouse on right top border of column heading
when mouse pointer change
then double click with control key
your column width will be increase according to content....

answered Aug 1, 2012 at 10:13

Raj Kumar

1

1 Comment

LittleBobbyTables - Au Revoir Over a year ago

The user is asking how to programatically increase the width to the largest value, not how a user would manually do it.

Collectives™ on Stack Overflow

Excel Column autowidth

5 Answers 5

Comments

Comments

Comments

Comments

1 Comment

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

5 Answers 5

Comments

Comments

Comments

Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Linked

Related