代码优化

ykcbf1100

原格式复制，参与一下

1. Sub ykcbf()   '//2024.12.6
   
2.     Application.ScreenUpdating = False
   
3.     Set Rng = Sheets("清单明细").UsedRange.Offset(1)
   
4.     With Sheets("模块计算")
   
5.         .UsedRange.Offset(1).Clear
   
6.         Rng.Cells.Copy .[a2]
   
7.         arr = .UsedRange
   
8.         Set Rng = Nothing
   
9.         For i = 3 To UBound(arr)
   
10.             If Len(arr(i, 1)) = 0 Then
    
11.                 If Rng Is Nothing Then
    
12.                     Set Rng = .Rows(i)
    
13.                 Else
    
14.                     Set Rng = Union(Rng, .Rows(i))
    
15.                 End If
    
16.             End If
    
17.         Next i
    
18.         If Not Rng Is Nothing Then Rng.EntireRow.Delete
    
19.     End With
    
20.     Application.ScreenUpdating = True
    
21.     MsgBox "OK！"
    
22. End Sub
    
23. 
    

复制代码

jieack

yes_cn 发表于 2024-12-5 16:50
学习一下

老师 在增加几行或者减少几行需要怎么调解代码，因为这个是每次不固定的

jieack

ykcbf1100 发表于 2024-12-6 17:26
原格式复制
附件供参考。。。

老师，可以，就是 按钮按过后，把我模块计算的标题都没有了，还有按钮也没有了

jieack

ynzsvt 发表于 2024-12-6 17:03

老师 这个可以，就是有没有什么办法，不把函数也带过去，还有 填充色

ykcbf1100

jieack 发表于 2024-12-7 08:20
老师，可以，就是 按钮按过后，把我模块计算的标题都没有了，还有按钮也没有了

标题我是从分表中直接复制过来的。

我完全是按你的代码的意思改写的。

jieack

ykcbf1100 发表于 2024-12-7 08:25
标题我是从分表中直接复制过来的。

我完全是按你的代码的意思改写的。

模板计算表是一个模板，不能删除或者变更，楼层是根据订单数量需要更改的，后边有颜色的是根据规格变化而变化

ykcbf1100

jieack 发表于 2024-12-7 08:29
模板计算表是一个模板，不能删除或者变更，楼层是根据订单数量需要更改的，后边有颜色的是根据规格变化而 ...

你自己的代码是这个意思吗？

jieack

ykcbf1100 发表于 2024-12-7 08:46
你自己的代码是这个意思吗？

不是，我自己做不出来，才发上来让老师们帮忙的