Help using Macro to add a comma after everyline

Scott Huish

MrExcel MVP

Joined

Mar 17, 2004

Messages

20,336

Office Version

1. 365

Platform

1. Windows

• Mar 5, 2009

• #2

Code:

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    c = c & ","
Next
End Sub

 

Upvote 0

A

Anty506

New Member

Joined

Mar 5, 2009

Messages

4

• Mar 5, 2009

• #3

HOTPEPPER said:

Code:

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    c = c & ","
Next
End Sub

Click to expand...

Thanks for the reply, but that will only work for rows that start with C right?

I am starting with C but going all the way to Z extensions.

How would I format that Macro for this?

 

Upvote 0

Scott Huish

MrExcel MVP

Joined

Mar 17, 2004

Messages

20,336

Office Version

1. 365

Platform

1. Windows

• Mar 5, 2009

• #4

The c has nothing to do with your text values, it is a range object variable name.


My code as written is for values in Column A, and will put a comma after every entry in the column.

 

Upvote 0