VBA多列数据合并成一列,非&

2019-12-15 11:04:04  阅读 1007 次 评论 0 条

先来看看效果,第1至9列全部合并到一列中,最后一列为结果列

QQ截图20191215110327.jpg

选中合并区域,运行以下代码即可:



Sub 合并列()
Dim hang As Integer '控制输出的行
Dim lie As Integer '控制输出的列
hang = Selection.Cells(1).Row
lie = Selection.Columns.Count + Selection.Cells(1).Column '默认在选定区域后的第一列输出
Dim sHang As Integer '选定区域的左上第一个单元格的行下标
Dim sLie As Integer '选定区域的左上第一个单元格的列下标
For sLie = Selection.Cells(1).Column To Selection.Columns.Count + Selection.Cells(1).Column - 1 '列后循环 Selection.Columns.Count 为选定区域的列数
For sHang = Selection.Cells(1).Row To Selection.Rows.Count + Selection.Cells(1).Row - 1 '行先循环
If Cells(sHang, sLie) = "" Then '若当前单元格内容为空则跳出当前循环
Exit For
End If
Cells(hang, lie) = Cells(sHang, sLie) '若不为空则在输出单元格输出数据
hang = hang + 1 '输出行标加1
Next
Next
End Sub


WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS表格数据付费处理请加QQ:3247742

发表评论


表情

还没有留言,还不快点抢沙发?