excel表中批量前移数据的宏程序.docxVIP

EXCEL表中有效数据迁移宏程式 近日，朋友因表格中数据较多，数据删减操作较多，有效数据之间存在许多无效空格单元格，想问问是否有办法给有效数据都给前移，无效空格数据后移，达到一目了然的目的。我想了想，认为数据迁移量较大，而且循环判断较多，简单的EXCEL表宏命令未必支持，就先答应思考几天。 设计初期，认为该思想类似于电脑系统中的磁盘碎片整理，就是给数据搬家，从A挪到B而已，其中设计主要判断两个位置，A和B的位置。诸如下表 挪移前效果 你好挪移你好请挪移挪移后效果 你好挪移你好请挪移关键在于A和B两个位置的确认，A位置是有效数据，B位置为空白单元格，空白单元格位置笔者用IsEmpty(Sheets(表名).Cells(x,?y).Value来判断，有效数据就用Sheets(表名).Cells(x,?n)??来判断A位置了，为避免多次循环判断，这里使用do until循环命令来执行。 样表模式： 客户剩余　王小二　大牛　　4　　牛魔王孙猴子　　4嘎子　琉璃　　　4　　吴邪王胖子　　4　　　阿宁小三　4　　梦里　九江　4高山族　峨嵋崆峒　　3　荷包　水　　4 具体程式： Sub nrzy() Dim x, y, n, m, l As Long Sheets(郑州).Cells(1, 8) = =counta(郑州!g:g) For x = 2 To Sheets(郑州).Cells(1, 8) + 1 If Sheets(郑州).Cells(x, 7).Value 6 Then For m = 1 To 6 y = 1 Do Until (IsEmpty(Sheets(郑州).Cells(x, y).Value)) y = y + 1 Loop If y 6 Then n = y + 1 Do Until (Sheets(郑州).Cells(x, n) Or n = 6) n = n + 1 Loop Sheets(郑州).Cells(x, y) = Sheets(郑州).Cells(x, n) Sheets(郑州).Cells(x, n) = Else End If Next m Else End If Next x End Sub 具体效果，大家可以下载下来，建立个表格测试下，还是很方便的。也可以下载本人发布的有效数据迁移表，直接测试。