Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding a "1" in front of everything in column A
I'd like to add a "1" (number one) in front of everything in column A. can use =1&A1 but it's too tedius to do to every record in ever spreadsheet. I tried creating a macro, but for blank rows say A1 to A100 hav numbers, but after that it adds a 1 in an empty cell. Is there anyone who can help me with this -- alexm99 ----------------------------------------------------------------------- alexm999's Profile: http://www.excelforum.com/member.php...nfo&userid=491 View this thread: http://www.excelforum.com/showthread.php?threadid=49031 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding a "1" in front of everything in column A
try this, i am assuming the string you want is text so it didn't sum if
there were existing numbers: Option Explicit Dim lastrow As Long Dim cell As Range Sub test() lastrow = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row For Each cell In Range("A1:A" & lastrow) cell.Value = "1" & cell.Value Next End Sub -- Gary "alexm999" wrote in message ... I'd like to add a "1" (number one) in front of everything in column A. I can use =1&A1 but it's too tedius to do to every record in every spreadsheet. I tried creating a macro, but for blank rows say A1 to A100 have numbers, but after that it adds a 1 in an empty cell. Is there anyone who can help me with this? -- alexm999 ------------------------------------------------------------------------ alexm999's Profile: http://www.excelforum.com/member.php...fo&userid=4918 View this thread: http://www.excelforum.com/showthread...hreadid=490316 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding a "1" in front of everything in column A
Hi Alex,
If you don't want to use a macro you could try filling this formula down a spare column starting in row 2 (You probably have a heading in row 1) =IF(A2<"","1" & A2,"") This avoids the problem you are having with blank cells. Ken Johnson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding a "1" in front of everything in column A
Or, Sub AddOne() For each c in Range("a:a") If Not Isempty(c) Then c.value = 1 & c.value End if Next End Sub -- Myles ------------------------------------------------------------------------ Myles's Profile: http://www.excelforum.com/member.php...o&userid=28746 View this thread: http://www.excelforum.com/showthread...hreadid=490316 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Adding data only if adjacent to cell labeled "male"/"female" | Excel Worksheet Functions | |||
Adding "letters (column headings)" | Excel Discussion (Misc queries) | |||
LOOP BETWEEN "FRONT" AND "END" SHEETS? | Excel Programming | |||
Adding "TOTAL" and summing column | Excel Programming | |||
Adding "New" "Insert" "Delete" into a workbook to change from data 1 to data 2 etc | Excel Programming |