# Count Non-Blank Rows

Apr 24, 2006

It effectively counts the number of non-blank (>0) rows in an array. This
formula is limited, however, in that every column requires a separate
statement. I would like to find a function that could handle an array of any
size with a single statement.
100
110
000
001

3=SUM(IF((A1:A4>0)+(B1:B4>0)+(C1:C4),1,0))

1=OR(A1:C1>0) for
every row in the entire array. Unfortunately, according to this document AND
and OR functions cannot be nested within SUM+IF statements:

Dim oRow As Range
Dim cNonBlanks As Long

For Each oRow In Range("50:80").Rows
If Application.CountA(oRow) <> 0 Then
cNonBlanks = cNonBlanks + 1
End If
Next oRow

## Count Blank Cells Within A Range Not Including Fully Blank Rows

Jul 15, 2008

I can count the blank cells withiin a range using

But I dont want it to count the cells if the entire row, within that cell, i.e. C6:AD6, is blank.

It should only count the blank cells within a row if there has been some data entered on that row..provided it has been entered within the specified range.

## How To Count The Number Of Rows Until A Blank Row

Dec 29, 2012

I want to be able to count the number of rows until I hit a blank row, and use the counter as an index. How is that possible?

I have a no. of rows that are fulled, followed by a blank row then another set of rows that are filled then a blank row etc. I want to count the rows filled till the blank row and set the counter to that number. Then I want to do the same with the next set of rows etc.

## Count The # Of Rows In A Spreadsheet In Which There Is Non-blank Text Data In 2 Separate Columns

Dec 5, 2008

I am trying to count the # of rows in a spreadsheet in which there is non-blank text data in 2 separate columns. For instance, if the spreadsheet looked like the one below (dashes just for formatting purposes):

NAMES-------THIS-------------THAT
Mary-------some text--------some more text
John-------<blanks>---------just text here
Sue--------just some here-----<blanks>
Dave-------something--------something else

The total # of rows with something in both the "THIS" and "THAT" columns above would therefore be 2.

## Count Function To Count Blank And Not Blank And Numbers

Nov 13, 2008

I have roughly 150 cells I am trying to count, some blank, some not blank, some with numbers. All are in the same column. I want use a simple function that sums the total number for me, say from (A2:A153). Answers?

## Cells.Rows.End(xlUp).Count - Insted Of - UsedRange.Rows.Count

Mar 24, 2008

I used Sheets(1).Cells(1, 1).Rows.End(xlUp).Count instead of UsedRange.Rows.Count in this code , but it didn't succed with me. Why and how to do that

Dim i As Long, j As Long
j = 1
For i = 1 To UsedRange.Rows.Count
Sheets(2).Cells(j, "a").Value = Sheets(1).Cells(i, "a").Value
Sheets(2).Cells(j, "b").Value = Sheets(1).Cells(i, "b").Value
Sheets(2).Cells(j, "c").Value = Sheets(1).Cells(i, "c").Value
j = j + 1
Next i
End Sub

## Count Blank & Zero Cells Where Corresponding Column Not Blank

Jun 15, 2007

I was curious if it is possible to give a single cell multiple number formats based on what the number is in the cell. So for example if my number is bigger than 1000, I would like to use comas so that it looks like this 1,000. However, if it is less than 1000 I would like it to look more like this 999.00.

## If Cell Is Not Blank - Count Twice Otherwise Only Count Once

Oct 30, 2013

In any case, what I have is a set of cells that may or may not be filled, and which frequently get changed around. As I need the data counted in a specific way for "shenanigans", I am... getting quite tired with having to manually adjust this whenever my co-workers decide to adjust something (and I have been told that throwing bricks at them until they stop is not a valid option).

Basically, I want to count the cells in a way so that for every time a cell is filled, a counter repeats the previous number before continuing the sequence.

I.e

Dog
1

Rat
1

[code]....

My issue is that I have no idea how to get this to count right. I know the theory of how I want this to work, but I just have no idea how to get it to function. The logic of how I want it to count is below, but, again, I just have no idea how to go about getting it to work right without manually typing in the counter, and without ending up with the code working wrongly when there's two filled cells at the top.

Item
Counter
"Logic"

Dog
1
Dog

Rat
1
Dog

[code]....

## Macro To Split Rows Into Groups Of 5 And Insert 3 Blank Rows In Between

Feb 9, 2013

I would like to have my macro code search column A (supplier numbers) and split the rows into groups of rows of 5 or less and then insert 3 blank rows between each group of rows. The split needs to start on a new supplier number and cannot split a supplier number into two different groups. Here is a sample:

Supplier
Invoice Date
GL Date
Invoice Amt

[Code].....

## Pulling Rows From Other Sheet - Skipping Over Rows If Column Is Blank

Jan 17, 2014

I am working in the attached spreadsheet. For anyone who does not wish to open the link, let's say these sheets are titled 'Sheet1' and 'Sheet2'.

Sheet2 looks like this:

Year Cat Name
2013 4 Sal
2013 4 Pat
2013 3 Pat

[Code]....

Now, how may I pull this data into a summary sheet (Sheet1) that skips over any instances where column A ("Year") is blank so it looks like this:

Year Cat Name
2013 4 Sal
2013 4 Pat
2013 3 Pat
2013 2 Pat
2013 5 Bob

[Code]...

Note: All columns are the EXACT same across each sheet(including Sheet1, Sheet2, Sheet3), if that extra piece of information works.

PS It is fine if, in order for a formula to work, I need to copy and paste the formula for the length of rows per each Sheet to consolidate.

EDIT:

So, in my industry, any summary-level data (shown on Sheet1) must have a linked reference to a particular sheet (Sheet2, Sheet3, etc.) so the user knows where the raw data came from. This is to ensure increased accuracy of data and minimize human error (like, if for example, I accidentally didn't copy and paste all the rows correctly).

I have uploaded the actual sheet to show what the data actually look like. I am trying to pull in 2013 data into my "Summary Page" and would like to have all the data linked to the '2013' sheet but skip any blank rows.

Here is my failed formula:

=INDEX('2013'!F\$3:F\$338,SMALL(IF('2013'!\$E\$3:\$E\$338<>"",ROW('2013'!\$E\$2:\$E\$338)-ROW('2013'!\$E\$2:\$E\$338)+1,ROWS(B\$1:B1)),""))

## Macro To Separate Lots Of Rows With Certain Amount Of Blank Rows

Feb 15, 2014

I have been using this macro to separate lots of rows with a certain amount of blank rows.

Example:

Code:
Sub test()
Dim j As Long, r As Range
j = InputBox("type the number of rows to be insered")
Set r = Range("A2")

[Code] .......

I trying to change it so that, instead of inserting how ever many blank rows, it just copys the row above.

Example (Row A to C)

I have been messing around with macro recorder and i could select each row and paste it into the blank rows, but from researching on the internet selecting and pasting data seems to be a waste of resources (ram?) and i will be running this on a couple hundred rows (lots of data). Also, i would like to keep the functionality so that i can still choose how many times it copys/inserts each individual row from a input box.

I eventually want the data to end up like it is shown in the table but i am takin it one step at time because i want to understand what the code is doing.

## Insert Blanks Rows In Alternate Rows But Ignore If Already Blank

Jun 26, 2014

i have this code which inserts blank rows in alternate rows,

Code:
Sub insertrow()
' insertrow Macro
Application.ScreenUpdating = True
Dim count As Integer
Dim X As Integer
For count = 1 To 20
If activecell.Value "" Then
activecell.Offset(1, 0).Select

[code].....

what changes should i make in this code to insert rows only when ther are now blank rows. So first time i run, blank rows are already there, and when i update some data at the bottom and re-run it inserts blank rows again.

## Count Duplicate Rows And Produce Count #

Jul 21, 2008

I have a spreadsheet of over 15,000 lines of student information, sorted by student number. I want to count the number of rows which have a duplicate student number, up to 15 duplicates in a row, and show the total number of duplicates in a Separate Column. I.e.

Column 1 Column 2
Row 1 - 200101 3
Row 2 - 200101
Row 3 - 200101
Row 4 - 200102 2
Row 5 - 200102
Row 6 - 200103 1

I've been trying to use a Countif formula, but I found I had to use so many ANDs and ORs that the formula became too long. I don't know how to use programming code, only formulas in Excel. Is there an easier solution using some type of SUMPRODUCT code?

## Getting Rows To Columns Macro Skipping Blank Rows

Dec 28, 2011

I have this in Column A, with about 120 entries:

Company 1
Contact 1
City, ST, ZIP 1
Phone 1
Fax 1

Company 2
Contact 2
City, ST, ZIP 2
Phone 2
Fax 2

Company 3
Contact 3
City, ST, ZIP 3
Phone 3
Fax 3

I want this:

Company 1 Address 1 City, ST, ZIP 1 Phone 1 Fax 1
Company 2 Address 2 City, ST, ZIP 2 Phone 2 Fax 2
Company 3 Address 3 City, ST, ZIP 3 Phone 3 Fax 3

all the way down.

I can't figure out how to record the macro to tell it to then skip the blank line, collect the next set of data, and put it in the next row. I can do it for two, but then it just replaces the first two with the next two and I lose data.

## VBA Command Loop Through Spreadsheet Rows Until Blank Rows

Apr 22, 2012

Using excel's text to speech I've put together a basic spreadsheet.

[URL]

Code:
Function talkit(Speech)
Application.Speech.speak (Speech)
talkit = Speech

[Code]....

## Delete Blank Rows (formula Not Deleting All Rows)

Sep 30, 2008

I have the following codes to delete all blank rows in column A

Dim lastrow As Long
lastrow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
MsgBox lastrow

With Sheet1
For t = 1 To lastrow
If Cells(t, 1) = "" Then
Rows(t).Delete
End If
Next t
End With

End Sub

Although it is working , it is not deleting all the blank rows at once, I have to keep pressing on the macro button running the macro several times, until all blank rows are completely deleted.

## Hide Blank Rows Based On Values In Other Rows

Nov 3, 2006

I have a worksheet used for inventory. In Column A is the quantity (to be entered manually). In Column B is the product description. In Column C is the price of the product, and Column D the total price (column C price x the quantity entered in Column A). At the bottom of the worksheet is a grand total. Also, Column B (products) is grouped into subheadings by the supplier each product came from (for example, row 6 has the title PPG, and then rows 7-137 list every product from PPG).

The calculations in this worksheet work fine. What I am trying to do is, using a macro once all of the appropriate quantities are entered in column A, automatically hide every row of product that does not have a quantity. The tricky part is, if no products under a given supplier subheader are entered, the subheader also hides, and if a quantity is entered, that subheader shows. For example, if I have no quantities under any products for PPG, then the PPG subheader hides, but if just one quantity is added, PPG shows. Also, this list will be constantly updated, new products will be put in and taken out all of the time, so I cannot base the macro on a specific number of rows.

## Delete Blank Rows & Rows Below Meeting Condition

Jun 21, 2008

I have an imported report in a spreadsheet. It imports to three columns. I need to check each row in column A for three seperate criteria and delete the rows I don't need. I need to delete blank rows and check next row for page header info. Delete these and next rows to next blank cell. Check next row for page header and not delete if not page header. Several rows down will be a cell with 23 blank spaces before the word Reg: and sometimes other words past this but always this first. This row is to be kept. I looked at the FAQ's example of Deleting but I don't think it will work. I also need to put a key word in column A at a point where I want to stop. This report is a couple thousand rows long so a VBA procedure would really save time. I have a procedure I use to check for two zero's in two cells that hide these rows but I couldn't modify it to work on this report.

## Count Names In One Col If 2nd Col Isn't Blank

Apr 13, 2006

I've got one column with names in it and a second column with dates in it. What I'm trying to do is generate a count in a third column next to each name with the number of times the name appears in the name column when there is a date in the corresponding date column. If the date column is blank I want the count column to remain blank.

For example:

Assigned To: Number Completed Date
Joe 2 1/1/06
Jane
Joe 2 2/22/06

I know that there will be repeated info but the end user doesn't care.

## How To Count Non-blank Columns

May 11, 2012

In a single cell I want to return the number of columns in a matrix which contain entries. So, for the matrices below the formula should return '2' (two columns contain values):

A1: 0 , B1: 0, C1: 1
A2: 1 , B2: 0, C2: 1
A3: 0 , B3: 0, C3: 1

A1: d, B1: e, C1: 0
A2: 0, B2: f, C2: 0
A3: 0, B3: g, C3: 0

## Sum And Count Until A Blank Row Is Inserted

Apr 12, 2007

I have a worksheet that I have to sum in one cell and count in another cell from A1:until it hits a blank cell. The thing is, I insert the blank row (only 1) in different places depending on the new data and where the cut off is. How do I do a sum formula from cell A1...until I hit a blank and a Count formula in cell B1: until I hit a blank cell?

## Formula Count If Blank

Feb 3, 2010

On sheet4 i need the total from sheet1

here is what i'm looking for in sheet1

IF COLM A2 to A600 contains the name "AUSTIN" and if in colm M cell is blank then add total to sheet4

## Count Blank Cells In VBA

Jun 9, 2006

how to create a macro that will count blank cells. I've tried several different variations of a basic 'count cells' macro, but I can't seem to find the right one.

If anyone would be kind enough to post a solution VBA, I would be extremely thankful, and so would my superiors. I'm an intern trying to get my foot in the door, and this would certainly be a first major step for me.

## Count Blank Cells..

Mar 21, 2007

I have a spreadsheet where I'm trying to determine the number of weeks that have transpired since the last sale of an item. COUNTBLANK is the direction I started in but it only shows the number of blank cells, it doesn't count the blanks until it recognizes a numeric value and stop. Essentially, I need a "count until x happens" function.

I've attached an example to walk through the issue. The weeks are across the top, the item number in col A, and I've put the result I'm expecting in col B.

## Eliminate Blank Rows By Shifting Rows Up

Nov 4, 2008

I have the code below that clears colums B-J and L-N in whatever row you activate a cell in. When a row gets cleared, how do I shift all the other rows up to eliminate blank rows in between the data real-time? I've deactivated the cut function already since this messes up references in the worksheet, so it would have to only use copy, paste, and clearcontents functions. Also, I don't want to DELETE any rows, just essentially shift the blank rows to the bottom. So when a row is cleared, all others shift up and the blank one goes to the end of the data that is available for data entry, so rows 17 to 116 are always available. But it must check to make sure that B-J and L-N are ALL blank, otherwise some wanted rows with one piece of information might get cleared. So at any given time, my range will always go from row 17 to 116. This is Excel 2007. Here is the code I have to clear rows that can be built upon.

## Counting Rows And Inserting Blank Rows

Dec 31, 2008

I have an excel sheet that has the A column populated with many different things.

I'm not sure how possible it is, but I'm trying to group everything up by 7s and putting a space in between the groups.

So...

ABCDEFG1
ABCDEFG2
ABCDEFG3
ABCDEFG4
ABCDEFG5
ABCDEFG6
ABCDEFG7
HIJKLMNOP1
HIJKLMNOP2
HIJKLMNOP3
HIJKLMNOP4
HIJKLMNOP5
HIJKLMNOP6
HIJKLMNOP7
QRSTUV1
QRSTUV2
QRSTUV3
QRSTUV4
QRSTUV5
QRSTUV6
QRSTUV7

Would turn into

ABCDEFG1
ABCDEFG2
ABCDEFG3
ABCDEFG4
ABCDEFG5
ABCDEFG6
ABCDEFG7

HIJKLMNOP1
HIJKLMNOP2
HIJKLMNOP3
HIJKLMNOP4
HIJKLMNOP5
HIJKLMNOP6
HIJKLMNOP7

QRSTUV1
QRSTUV2
QRSTUV3
QRSTUV4
QRSTUV5
QRSTUV6
QRSTUV7

## Count Rows Including Blanks Omitting Hidden Rows

Apr 18, 2013

I have data in B4:B55 and need a formula to return a count of rows, including rows that are blank. However, there are hidden rows that need to be omitted from the count.

## Count Of The Blank Cells In Column

Nov 3, 2008

I am creating a chart and want to get a count of only the blank cells in Column D only if there is information contained in Column A (same row). I am using Excel 2003.

## Count Blank Cells Only If A 1 Is Previous

Feb 19, 2009

getting a formula to do this

I have
......D E
5 )......1
6 )......2
7 )......3
8 )......4
9 )......5
10)......6
11)......7
etc down to 31

They only show up when the cell next to it is not empty.

=IF(ISBLANK(D5),"0",(1))
=IF(ISBLANK(D6),"0",(2))
etc

If nothing is put into say D5 D6 or D7 but something is put in D8 then i would like E8 to become 1 as it is the first to be filled.Then when D9 has something in it, it becomes 2 if D10 has nothing in it it gets left blank but when d11 has something in it e11 becomes 4 counting the blank cell in between.

How can this be done.

## Get Count If Value Is NOT Equal To Closed And Or BLANK

Nov 30, 2012

I have a column, that have different values in each cell.

I am trying to get the count if the value is NOT equal to Closed and or BLANK

My formula : =COUNTIFS(O7:O827, "<>Closed", O7:O827, "<>""")

still not working, it counts the blank cells !