Posted to microsoft.public.excel.programming

MattShoreson[_127_] MattShoreson[_127_] is offline

external usenet poster

Posts: 1

Concatenating a zero

Sub sdfsdf()
Dim i
lastrow = Range("A50000").End(xlUp).Row
For i = 1 To lastrow
If Len(CStr(Cells(i, 1))) = 1 Then
Cells(i, 1).NumberFormat = "@"
Cells(i, 1) = CStr("0" & Cells(i, 1))
End If
Next
End Su

--
MattShoreso
-----------------------------------------------------------------------
MattShoreson's Profile: http://www.excelforum.com/member.php...nfo&userid=347
View this thread: http://www.excelforum.com/showthread.php?threadid=56371

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
concatenating	TED	Excel Worksheet Functions	3	February 13th 09 01:03 AM
concatenating	Yosh	Excel Discussion (Misc queries)	7	February 7th 07 09:03 PM
Concatenating %	confused	Excel Discussion (Misc queries)	2	September 21st 06 03:49 AM
Concatenating	Himu	Excel Programming	7	July 23rd 05 08:58 PM
Concatenating	Metalteck	New Users to Excel	10	May 4th 05 01:01 AM

All times are GMT +1. The time now is 08:24 AM.

About Us

"It's about Microsoft Excel"

Menu

About Us