[已解决]有劳大侠小编一下宏：除零除空值排列数据！谢谢！（已解决）

skyborn

本人是VBA小白，实际这个问题应该比较容易，当然是对懂VBA的各位大侠而言！有劳大侠了，题如附件，一列数据，存在零值及空值，现在想通过宏功能，自动将零值空值去除，然后按原来的顺序重排！谢谢大侠了。

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2011-8-31 19:46

回复 skyborn 的帖子


数据给你放在 数据表的 E列，E3开始的，方便和你的D列对照，看看效果

1. 
   
2. Sub 取数()
   
3.   arr = Sheet1.Range("B3:B" & Sheet1.Range("B65536").End(xlUp).Row)
   
4.   For x = 1 To UBound(arr)
   
5.     If arr(x, 1) <> "" And arr(x, 1) <> 0 Then
   
6.       h = h + 1
   
7.       arr(h, 1) = arr(x, 1)
   
8.     End If
   
9.   Next
   
10.   Sheet1.Range("E3").Resize(h, 1) = arr
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

无聊的疯子

回复 skyborn 的帖子


数据给你放在 数据表的 E列，E3开始的，方便和你的D列对照，看看效果

1. 
   
2. Sub 取数()
   
3.   arr = Sheet1.Range("B3:B" & Sheet1.Range("B65536").End(xlUp).Row)
   
4.   For x = 1 To UBound(arr)
   
5.     If arr(x, 1) <> "" And arr(x, 1) <> 0 Then
   
6.       h = h + 1
   
7.       arr(h, 1) = arr(x, 1)
   
8.     End If
   
9.   Next
   
10.   Sheet1.Range("E3").Resize(h, 1) = arr
    
11. End Sub
    

复制代码

liuguansky

1. Sub 取数()
   
2.     On Error Resume Next
   
3.     With Range("b2:b" & Cells(Rows.Count, 2).End(3).Row)
   
4.         .Replace 0, "", xlWhole
   
5.         .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
6.     End With
   
7. End Sub

复制代码

skyborn

谢谢2楼的大侠！

Joyce_111

求教一下，在VBA小白的基础上，如果原数据有4列，且从sheet1一直到sheet4，通过宏功能，自动将零值空值去除，然后按原来的顺序重排到一张新表上。详见附件“举例”，怎么操作，谢谢了