VBA合并单元格

有几百行数据，每行有9列，有些单元格中有数据，有些没有数据。比如
第一列 第二列 第三列 第四列 第五列。。。
第一行 ab 7 x
第二行 a u8 7
第三行 6 xu 8
。。。
要求将每一行有数据的单元格内容进行合并，比如第一行合并结果为ab7x，第二行合并后为au87，以此类推，请问用vba该怎么实现？
这里不好显示，我想补充的是，并不是每个单元格都有数据，数据是分散在不同的单元格中的。

列数不多的话，不用知VBA，用函数或公式也可以合并.
比如你在道第10列写入
=A1&B1&....I1
然后双击该单元格版右下角，往下填充公式。

补充：
如果有空格，可以用公式去除权
=TRIm(A1&B1&....I1)

在a1:c5范围内任意单元格，用其mergearea属性引用其合并区域，再用rows.count属性取其行数，用columns.count属性取其列数 range("a1").mergearea.rows.count range("a1").mergearea.columns.count

直接用&连接就可以了，没有内容的单元格连接起来就是一个空字符串，跟没连接他一样的，所以你只要把一行中的九个单元格连起来就可以，不用考虑哪些有内容，哪些没有内容。