[已解决]改改把零变没

fangniuji

Sub mm()
Sheets("tt").Range("j1:j50").Value = Sheets("2工程资料").Range("j1:j50").Value
For i = 2 To 50
        If Sheets("2工程资料").Range("j1" & j) = 0 Then
          Sheets("tt").Range("j1" & i & ":j" & 50).ClearContents
          Exit For
        End If
     Next i
End Sub

大家帮忙改一下，执行这个宏，如何把tt表J3以下0变没有，谢谢！！

最佳答案

月排行榜 / 总排行榜

zjdh

2012-12-9 21:13

1. Sub mm()
   
2.     With Sheets("tt")
   
3.         .Range("j1:j50").Value = Sheets("2工程资料").Range("j1:j50").Value
   
4.         For I = 2 To 50
   
5.             If .Range("j" & I) = 0 Then .Range("j" & I) = ""
   
6.         Next I
   
7.     End With
   
8. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

J3后面还会有其他的数字吗？
如果没有，就直接定位，删除嘛。

hwc2ycy

1.         If Sheets("2工程资料").Range("j1" & j) = 0 Then

复制代码

这句写错了吧

hwc2ycy

"j1"&j就成了"j1"了

zjdh

1. Sub mm()
   
2.     With Sheets("tt")
   
3.         .Range("j1:j50").Value = Sheets("2工程资料").Range("j1:j50").Value
   
4.         For I = 2 To 50
   
5.             If .Range("j" & I) = 0 Then .Range("j" & I) = ""
   
6.         Next I
   
7.     End With
   
8. End Sub

复制代码