Fill All Rows Across All Columns In Step

Re: Adding Value To Multiple Rows?

Dim Cell as Range
with sheets("Sheet1")
for each cell in.Range("A1:" & .Range("A65536").end(xlup)
cell.value="100"
next

repeat changing column letter....not tested, if you have values in the cells already and want to keep them then change

Cell.value=100[code] for

Cell.value=cell.value & " 100"[/CODE]

Re: Adding Value To Multiple Rows?

Perhaps Paste Special > Add?

Re: Adding Value To Multiple Rows?

To flesh out Stephen's suggestion, in a blank row enter the numbers to be added to each column: 100, 150, ...

Copy those cells, select the data in those same columns, and do Edit > Paste Special, Add.

Re: Adding Value To Multiple Rows?

Quote

I want to add 100 to all rows in the first column, 150 to the ones in the second, etc. Is this possible? I have Excel 2007.

"all" rows? Possible, yes, practical, a BIG NO.

Re: Fill All Rows Across All Columns In Step

Dave i assumed he meant all used rows, otherwise he's in for a big problem!

Re: Fill All Rows Across All Columns In Step

How about:

Sub Macro1()
[a1].Resize([a65536].End(xlUp).Row) = 100
[b1].Resize([b65536].End(xlUp).Row) = 150
End Sub

Regards
Northwolves

Re: Fill All Rows Across All Columns In Step

Quote

Dave i assumed he meant all used rows, otherwise he's in for a big problem!

IF that is the case, Select Column A and use Edit>Replace to replace * with 150. Select all numbers in Column A starting. Right click on the Fill Handle in the number row of Column A and drag across, release and choose Series from the pop-up menu and make use of the Step/Stop Value.