如何通过VBA数组来进行空单元格删除处理？

作者：绿色风分类：时间：2022-08-17 浏览：126

楼主 liuguansky	Q：如何通过VBA数组来进行空单元格删除处理？[右方单元格左移，下方单元格上移] 　如下图所示：　 A：通过如下代码可以实现： Sub justtest() Dim arr1, i&, j&, arr2, m&, n& arr1 = Range("a3:g" & Cells(Rows.Count, 1).End(3).Row).Value ReDim arr2(1 To UBound(arr1, 1), 1 To UBound(arr1, 2)) n = 0 For i = 1 To UBound(arr1, 1) If Application.WorksheetFunction.CountA(Application.Index(arr1, i)) > 0 Then n = n + 1 m = 0 For j = 1 To UBound(arr1, 2) If arr1(i, j) <> "" Then m = m + 1 arr2(n, m) = arr1(i, j) End If Next j End If Next i [i3].Resize(UBound(arr1, 1), UBound(arr1, 2)) = arr2 End Sub 具体示例文件如下：
2楼 kevinchengcw	直接用字典装载然后放出来不就得了，还删除，慢啦。
3楼 liuguansky	我用的数组装了，放出来的。没有删除。只是达到删除效果。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表