[已解决]求助按指定条件用VBA计算最小组合量

明日之星

求助按指定条件用VBA计算最小组合量.zip (11.82 KB, 下载次数: 12)

2017-8-29 09:09 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-8-30 16:05

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

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim i&, n
   
3. n = 100000
   
4. For i = 2 To [c65536].End(3).Row
   
5.   If n > Cells(i, 7) / Cells(i, 6) Then n = Cells(i, 7) / Cells(i, 6)
   
6.   If Cells(i + 1, 2) <> "" Or i = [c65536].End(3).Row Then
   
7.     Cells(i, 8).MergeArea = n
   
8.     n = 100000
   
9.   End If
   
10. Next i
    
11. End Sub

复制代码

明日之星

大灰狼1976 发表于 2017-8-29 11:13

左图是执行当前代码后的效果，不能自动合并单元格，请大神帮忙优化代码达到右图合并后的效果，谢谢！

大灰狼1976

你既然B列都是手工做的合并单元格，而H列合并单元格的大小跟B列是一致的，直接格式刷事先刷好就行了，
没必要用代码的。
除非B列也没有合并单元格，那所有代码都要重写。

明日之星

大灰狼1976 发表于 2017-8-30 15:43
你既然B列都是手工做的合并单元格，而H列合并单元格的大小跟B列是一致的，直接格式刷事先刷好就行了，
没 ...

不合并单元格不具备拓展功能，数据量大时格式刷费时较多，请大神帮忙优化代码，谢谢！

大灰狼1976

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

复制代码