这样带公式复制粘贴的效果如何实现

SCWYZJ

求助：在动态插入插入行清空不带公式的单元格（见附件），请老师帮忙看看，谢谢

ykcbf1100

既然用VBA了，那这个公式没必要使用了，直接用VBA求得合计值就行了。

ykcbf1100

你工作表锁定的情况下，VBA也插不了公式的。

我用VBA写了一个，但得你解开锁定才可以使用。

ykcbf1100

附件供参考。。。

1. Sub ykcbf()   '//2024.12.15
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheets("Sheet2").UsedRange
   
4.     For i = 2 To UBound(arr)
   
5.         s = arr(i, 1)
   
6.         d(s) = Val(arr(i, 2))
   
7.     Next
   
8.     On Error Resume Next
   
9.     With Sheets("Sheet1")
   
10.         r = .UsedRange.Find("合计").Row
    
11.         arr = .[a1].Resize(r, 4)
    
12.         For i = 4 To r - 1
    
13.             .Cells(i, 4).Value = arr(i, 3) * d(arr(i, 2))
    
14.         Next
    
15.     End With
    
16.     Set d = Nothing
    
17.     MsgBox "OK！"
    
18. End Sub
    

复制代码

SCWYZJ

ykcbf1100 发表于 2024-12-15 19:59
附件供参考。。。

我的意思是单纯的照样式插入行，不是去计算结果

ykcbf1100

SCWYZJ 发表于 2024-12-16 08:39
我的意思是单纯的照样式插入行，不是去计算结果

工作表锁定你也插不了行啊。

z865593849

SCWYZJ 发表于 2024-12-16 08:39
我的意思是单纯的照样式插入行，不是去计算结果

工作表锁定了，只能读不能修改

SCWYZJ

谢谢大家，我以别寻方法解决了。