如何遍历所有计算结果并保留每次计算结果

leeson7502

LV草地 发表于 2023-10-7 14:55
能否帮忙解读一下您的这个代码？
感谢支持！

1. Sub cal()
   
2.     Dim ws As Worksheet  '定义工作表对象
   
3.     Dim arr()   '定义一个数组
   
4.     Set ws = ThisWorkbook.Sheets("Cockpit") '把ws指定为具体的工作表
   
5.     With ws   '针对ws进行操作，可以省略对象名ws
   
6.         arr = .Range("B27:Z27").Value  '把区域"B27:Z27"装入数组
   
7.         For i = LBound(arr) To UBound(arr, 2)   '循环数组
   
8.             .Cells(3, 2) = arr(1, i)    '第3行第2列单元格逐一填上数组的值，也就是6-30
   
9.             Application.CalculateFull   '整表重算，确保计算完成后再取值
   
10.             .Cells(31, i + 1) = .Cells(21, 2)  '第31行，i+1列，从第2列开始，下同，等于第21行，第2列的值。
    
11.             .Cells(32, i + 1) = .Cells(22, 2)
    
12.             .Cells(34, i + 1) = .Cells(21, 6)
    
13.             .Cells(35, i + 1) = .Cells(22, 6) + .Cells(23, 6)
    
14.         Next
    
15.     End With
    
16. End Sub

复制代码

这没什么好解读的吧，简单写点注释。

LV草地

leeson7502 发表于 2023-10-7 21:02
这没什么好解读的吧，简单写点注释。

确实很厉害。

LV草地

leeson7502 发表于 2023-9-29 16:31
你35行数字是取自何处？你自己看着改吧。

大神您好！
上次您帮我解决了excel问题，非常感谢！
能否再帮我看看我今天刚发的一个求助贴，请多多指点！
https://club.excelhome.net/threa ... tml?_dsign=1bf457ff