You can modify the macro he

http://www.mcgimpsey.com/excel/mergedata.html

change

vTxtArr(i, 1) = vTxtArr(i, 1) & sDelim & vTxtArr(i, j)

to

vTxtArr(i, 1) = Left(vTxtArr(i, 1) & sDelim & vTxtArr(i, j), 1000)


In article ,
Bob wrote:

I have a column with about 6,000 rows.
I need a macro that will combine cells in the column with a pipe(|) between
each.
The key is that each row should be no more than 1,000 characters.