Re: End of column in Excel
Re: End of column in Excel
- Subject: Re: End of column in Excel
- From: Jay Young <email@hidden>
- Date: Tue, 29 Jan 2002 00:23:09 -0600
Thank you Deivy, Kai & David,
I appreciate your help with this. I've been working with the code you
all sent as well as looking somemore at the Excel Dictionary and I came
up with this and it seems to work pretty good. The only problem is that
if any rows are deleted before the script runs it will still grab the
empty rows up to where the last item used to be. But I think that
should be okay.
-------------------------------------
tell application "Microsoft Excel"
Activate
set CntOfRows to Row of (SpecialCells (Columns) Type xlLastCell)
--(grabs last row of longest column)
set FormulaR1C1 of Range "r1c2" to "=PROPER(RC[-1])" --(changing column
2 to the Proper Formula)
AutoFill Range "r1c2" Destination Range ("r1c2:r" & CntOfRows & "c2")
Type xlFillDefault
end tell --Excel
------------------------------------
Thanks again!
Jay