[已解决]怎么将0除去,最终得到数据

wucj80

各位老师帮帮忙，急用

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-10-18 09:48

1. Sub aaa()
   
2. Dim arr, brr, crr, i&, r&
   
3. arr = [c1].CurrentRegion
   
4. ReDim brr(1 To UBound(arr), 1 To 2)
   
5. For i = 1 To UBound(arr)
   
6.   crr = Split(arr(i, 1), "丗")
   
7.   If UBound(crr) = 1 Then
   
8.     If crr(1) = "" Or Val(crr(1)) > 0 Then
   
9.       r = r + 1
   
10.       brr(r, 1) = crr(0)
    
11.       brr(r, 2) = crr(1)
    
12.     End If
    
13.   End If
    
14. Next i
    
15. [e1].Resize(r, 2) = brr
    
16. End Sub

复制代码

跳转到最佳答案楼层

AmoKat

售價 2 金幣 ?

我沒錢可以幫助

wucj80

AmoKat 发表于 2017-10-17 23:02
售價 2 金幣 ?

我沒錢可以幫助

我太久没来，乱按的

windyjw007

没必要用vba吧！查找“0.00”——查找全部——CTRL+A——右键——删除整行就ok了{:1312:}

大灰狼1976

1. Sub aaa()
   
2. Dim arr, brr, crr, i&, r&
   
3. arr = [c1].CurrentRegion
   
4. ReDim brr(1 To UBound(arr), 1 To 2)
   
5. For i = 1 To UBound(arr)
   
6.   crr = Split(arr(i, 1), "丗")
   
7.   If UBound(crr) = 1 Then
   
8.     If crr(1) = "" Or Val(crr(1)) > 0 Then
   
9.       r = r + 1
   
10.       brr(r, 1) = crr(0)
    
11.       brr(r, 2) = crr(1)
    
12.     End If
    
13.   End If
    
14. Next i
    
15. [e1].Resize(r, 2) = brr
    
16. End Sub

复制代码

大灰狼1976

crr = Split(arr(i, 1), "丗")
这句出现乱码，改成crr = Split(arr(i, 1), "：")

wucj80

谢谢，非常感谢老师，看来还要学习