[已解决]求助优化代码将I列单元格负数变为空

明日之星

求助优化代码将I列单元格负数变为空.zip (15.34 KB, 下载次数: 5)

2017-9-5 15:15 上传

点击文件名下载附件


Sub peitao()
Dim i&, n
n = 100000
Range("i3:i" & Range("c65536").End(xlUp).Row).ClearContents
For i = 3 To [c65536].End(3).Row
  If n > Cells(i, 8) / Cells(i, 6) Then n = Cells(i, 8) / Cells(i, 6)
  If Cells(i + 1, 2) <> "" Or i = [c65536].End(3).Row Then
    Range(Cells(i, 9), Cells(i - Cells(i, 2).MergeArea.Count + 1, 9)).Merge
    Cells(i, 9).MergeArea = n
    n = 100000
  End If
Next i
End Sub

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-9-5 16:30

1. Sub peitao()
   
2. Dim i&, n
   
3. n = 100000
   
4. Range("i3:i" & Range("c65536").End(xlUp).Row).ClearContents
   
5. For i = 3 To [c65536].End(3).Row
   
6.   If n > Cells(i, 8) / Cells(i, 6) Then n = Cells(i, 8) / Cells(i, 6)
   
7.   If Cells(i + 1, 2) <> "" Or i = [c65536].End(3).Row Then
   
8.     Range(Cells(i, 9), Cells(i - Cells(i, 2).MergeArea.Count + 1, 9)).Merge
   
9.     Cells(i, 9).MergeArea = Application.Max(0, n)
   
10.     n = 100000
    
11.   End If
    
12. Next i
    
13. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub peitao()
   
2. Dim i&, n
   
3. n = 100000
   
4. Range("i3:i" & Range("c65536").End(xlUp).Row).ClearContents
   
5. For i = 3 To [c65536].End(3).Row
   
6.   If n > Cells(i, 8) / Cells(i, 6) Then n = Cells(i, 8) / Cells(i, 6)
   
7.   If Cells(i + 1, 2) <> "" Or i = [c65536].End(3).Row Then
   
8.     Range(Cells(i, 9), Cells(i - Cells(i, 2).MergeArea.Count + 1, 9)).Merge
   
9.     Cells(i, 9).MergeArea = Application.Max(0, n)
   
10.     n = 100000
    
11.   End If
    
12. Next i
    
13. End Sub

复制代码