Comments on: Rows and Columns

By: hanss

hanss — Mon, 09 Jun 2008 09:56:00 +0000

I used this code.
The method application filesearch is much more convenient, because it automatically selects all the excelfiles (if you want it) and automatically takes all subfolders into account (if you wish). Unfortunately the method doesn't seem to exist anymore in Excel 2007.

Sub test()
With Application
.Calculation = xlCalculationManual
.EnableEvents = False
.DisplayAlerts = False
End With

For Each fl In CreateObject("scripting.filesystemobject").getfolder("E:OF").Files
If Right(fl.Name, 4) = ".xls" Then
For Each sh In GetObject(fl.Path).Worksheets
If Not sh.ProtectContents Then
With sh.Cells.SpecialCells(xlCellTypeLastCell)
c0 = fl.Path & "!" & sh.Name & "|" & .Address & "|" & .Row & "|" & .Column
End With
With Workbooks(2).Sheets(1).Range("A1:D1")
.Offset(.CurrentRegion.Rows.Count) = Split(c0, "|")
End With
End If
Next
Workbooks(fld.Name).Close False
End If
Next

With Application
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub

By: Tony

Tony — Mon, 28 Jan 2008 17:24:00 +0000

344 non-blank sheets
Average 444.2 rows and 10.3 cols
Mode 17 rows and 10 cols
Median rows 48 rows and 9 cols
Max 10141 rows and 256 cols
Min rows 2 rows and 1 cols

By: sam

sam — Sun, 27 Jan 2008 11:39:00 +0000

“Avergae 1,102 rows and 18.2 columns.”….wonder why MS botherd about increasing the number of Rows and columns

By: Marcus

Marcus — Fri, 25 Jan 2008 17:51:00 +0000

I ran a scan (essentially a DOS batch file) which listed every spreadsheet in one department of a bank I did work for. There was about 7,500 spreadsheets. And while I didn't get rows and columns, I did get file size and last modified date.

The vast majority of the spreadsheets were in the few-hundred kilobytes to a couple of meg range. However there were lots of minnows (100meg. There were a couple of 150 meg moby dicks.

I'd also agree with dermot - the averages don't necessarily make sense or are even meangingful. Throw in one or two mody dick's or a few hundred minnows and the average goes out the window. And what would deem a decent sample size?

The industry in which the spreadsheet is created also makes a huge difference on what kind of average is deemed reasonable.

By: PetLahev

PetLahev — Fri, 25 Jan 2008 10:14:00 +0000

Here is my results
(I had to rewrite code as John wrote)

466 Files (blank sheets removed)

------
Avg 188.4 rows and 10.1 cols
Median 22,5 rows and 7 cols
Mode 13 rows and 3 cols
Max: 30,720 rows, 231 cols

By: dermot

dermot — Fri, 25 Jan 2008 05:05:00 +0000

I don’t think these averages make any sense. What matters more is the number and complexity of unique formulae.

By: Jim Cone

Jim Cone — Thu, 24 Jan 2008 23:57:00 +0000

How would anyone ever get a wide enough sample to feel confident about the "average" Excel spreadsheet?

Here is my contribution...
155 Files (blank sheets removed)
793 Sheets
------
RowsColumns
Average585.210.5
Max40370256
Median457
Min11
Mode142

By: Michael

Michael — Thu, 24 Jan 2008 20:59:00 +0000

I want to see that worksheet that has 18.2 columns

By: J-Walk

J-Walk — Thu, 24 Jan 2008 18:25:00 +0000

I used Excel 2007, so I had to respond to a lot more prompts than you did. I eventually got a file that couldn't be opened, and the code ended. My results for 230 non-empty sheets:

Avg 382.6 rows and 10.0 cols
Median 30 rows and 6 cols
Mode 8 rows and 2 cols
Max: 31,681 rows, 256 cols

My results are not at all typical. Most of these are not "real" workbooks. They are files that I've used for book examples or for testing purposes.

If anyone tries this with Excel 2007, change this statement:

If srFile.Type = "Microsoft Excel Worksheet" Then

To this:

If Left(srFile.Type, 22) = "Microsoft Office Excel" Then

Also, you'll need to add a reference to Microsoft Scripting Runtime

By: Kyle

Kyle — Thu, 24 Jan 2008 17:36:00 +0000

This is great. It's always interesting to see what the "reality" of some of our factoids are.

-Kyle @ Gullible.info