• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

VBA to Add ; at end of all cell record

Vijayarc

Member
Hi ninja
My excel column as more than 1lakh rows,

1.I want to covert in to (add ; at end of value ) to generate reports in our application
A- column
-----------------
1097456607
2087765673
4678296689

Convert to ::
1097456607;2087765673;4678296689......
i can't concotinate more than 36k records,

2.i can run report max upto 999 records so I need to split 999record to each batch

please help in VBA macro, to simplify my process, thanks in advance
 
Last edited:
Hi Hany

Herewith I attached the file with sample data, but my real file as more has1lakh rows

below i am using concatenate small code to add ; at end of each record

>>> use code - tags <<<
Code:
Sub batch()
Sheets("main").Activate
LROW = Range("A" & Rows.Count).End(xlUp).Row
Range("b3").FormulaR1C1 = "=R[-1]C[-1]&"";""&RC[-1]"
Range("b4:B" & LROW).Formula = "=R[-1]C&"";""&RC[-1]"
End Sub

ans : 0000026708;0000026908;0000029508;0000032808;0000054608;0000055108;000007590

i can't concatenate more than 29k records, due to cell can't hold more than 36k character

2.i can run report max up to 999 records so I need to split 999record to each batch

please help in VBA macro, to simplify my process, thanks in advance
 

Attachments

  • Book1.xlsm
    32.3 KB · Views: 2
Last edited by a moderator:
Back
Top