使用Excel 的vba宏将不同行数据合并到同一单元格

最新推荐文章于 2024-04-29 21:13:46 发布

天之八重桜

最新推荐文章于 2024-04-29 21:13:46 发布

阅读量3.6k

点赞数 3

文章标签： vba excel

本文链接：https://blog.csdn.net/wq731433098/article/details/111833806

版权

本文介绍了如何使用Excel的VBA宏将不同行的数据有效合并到同一单元格中，详细讲解了从效果展示、变量创建、数据存入、拼接处理到最终插入的步骤。

摘要由CSDN通过智能技术生成

使用Excel 的vba宏将不同行数据合并到同一单元格

文章目录

使用Excel 的vba宏将不同行数据合并到同一单元格
一、效果展示
二、创建变量
三、将excel数据存入变量中
四、拼接处理
五、拼接后插入

一、效果展示

图一：未拼接前

图二：拼接后效果

二、创建变量

'vbCrLf 为vba的换行函数

Dim times As String '定义时间变量

times = Timer '获取当前时间

Dim strDict(10000, 5) As String '

Sheets("数据拼接").Range("F2:H300") = "" '将第F列的第二行到第H列的第300行数据清空

三、将excel数据存入变量中

iSrc = 0 '定义数字变量

Do While Sheets("数据拼接").Cells(iSrc + 2, 1) <> "" '判断第一列是否有空值

    strDict(iSrc, 0) = Sheets("数据拼接").Cells(iSrc + 2, 1) '序号
    
    strDict(iSrc, 1) =