Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
how to select and append a column in VB and excel tia sal2
Greetings All
I'm trying to select a column of cells and append all there contents to one cell. Does anyone have some example vb.script that does this in excel Example select excel column A1 to A70 Append all values in A1 to A70 in Cell C4 with the phrase "code" after each value. so C4 would look like "tre345 code tre346 code tre347 code" Please reply to newsgroups as email address isn't real tia sal2 |
#2
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
how to select and append a column in VB and excel tia sal2
Hi
Try this: Public Function AppendCode(TargetRange As Range) For Each cell In TargetRange If myStr = "" Then myStr = cell.Value & " code" Else myStr = myStr & " " & cell.Value & " code" End If Next AppendCode = myStr End Function In C4 enter the formula: =AppendCode(A1:A70) Hopes this helps --- Per On 27 Jan., 19:06, sal2 wrote: Greetings All I'm trying to select a column of cells and append all there contents to one cell. *Does anyone have some example vb.script that does this in excel Example select excel column A1 to A70 Append all values in A1 to A70 in Cell C4 with the phrase "code" after each value. so C4 would look like "tre345 code tre346 code tre347 code" Please reply to newsgroups as email address isn't real tia sal2 |
#3
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
how to select and append a column in VB and excel tia sal2
Hi,
Put this in a general module Function AddSuffix(Rng As Range, suffix As String) As String For Each c In Rng If c.Value < "" Then MyString = MyString & c.Value & " " & suffix & " " End If ' Next AddSuffix = MyString End Function Call with this in C4 =addsuffix(A1:A70,"Code") Mike "sal2" wrote: Greetings All I'm trying to select a column of cells and append all there contents to one cell. Does anyone have some example vb.script that does this in excel Example select excel column A1 to A70 Append all values in A1 to A70 in Cell C4 with the phrase "code" after each value. so C4 would look like "tre345 code tre346 code tre347 code" Please reply to newsgroups as email address isn't real tia sal2 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
append column data | Excel Worksheet Functions | |||
How to concatenate a column into one cell? tia sal2 | Excel Discussion (Misc queries) | |||
How do I append same text to all the cells in a column at once? | Excel Worksheet Functions | |||
How to add patterns to excel tia sal2 | Excel Discussion (Misc queries) | |||
How do I append data in several cells in one column | Excel Discussion (Misc queries) |