Hi Mike,
Thanks for the feedback
Dave.
> Date: Mon, 23 Nov 2009 14:56:57 -0800
> Subject: Re: $$Excel-Macros$$ Add a column of matching numbers
> From: mwillia...@socal.rr.com
> To: excel-macros@googlegroups.com
>
> Dave,
> Your soultion was spot on.
> It executed
Dave,
Your soultion was spot on.
It executed immediately.
THANKS THANKS THANKS !
On Nov 21, 12:00 am, Dave Bonallack wrote:
> Hi Mike,
> Try this code. It may be quicker. But it won't go to the end of Col B if Col
> B has any blank cells. Let me know if this is a problem.
>
> Sub NumColA()
Give this alternative a try. It labels all non-empty cells all the way
to the last cell non-empty cell in the column:
Dim aCol As Variant
Dim bCol As Variant
bCol = ActiveSheet.UsedRange.Columns("A")
ReDim aCol(1 To UBound(bCol, 1), 1 To 1)
Dim i As Long
i = 1
Dim irow
Hi Mike,
Try this code. It may be quicker. But it won't go to the end of Col B if Col B
has any blank cells. Let me know if this is a problem.
Sub NumColA()
Columns("A:A").Insert Shift:=xlToRight
Range("A1") = 1: Range("A2") = 2
Range("A1:A2").AutoFill Destination:=Range(Cells(1, 1),
