求助，如何把表1的输入参数自动赋予表2，然后将表2的计算结果存入表1中。

tianya3038

我用了一个简单的示例，希望能说明白，请大侠指点如何实现。表1是统计数据表，表2是计算器表。我的问题是：1.如何使表1的输入参数A、输入参数B自动输出到表2中；2.如何使表2每次计算的结果自动存入表1中。问题的关键是要多次赋值，多次保存计算结果。多谢多谢！

chaohuahch

1. Sub js()
   
2. Dim i%, j%, nRow%, arr
   
3. With Sheet1
   
4. 
   
5.   arr = .Range("a1").CurrentRegion
   
6. End With
   
7. 
   
8. With Sheet2
   
9.   For i = 2 To UBound(arr)
   
10.      .Range("B1") = arr(i, 2)
    
11.      .Range("B2") = arr(i, 3)
    
12.      arr(i, 4) = .Range("B3")
    
13.      arr(i, 5) = .Range("B4")
    
14.   Next i
    
15. End With
    
16. 
    
17. Sheet1.Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
18.      
    
19.    
    
20. End Sub
    

复制代码

dancefly09

暂时未想到好办法，或许间接引用函数可以做到。建议还是写个自定义函数吧，把算法写在函数里。

tianya3038

dancefly09 发表于 2018-7-17 15:17
暂时未想到好办法，或许间接引用函数可以做到。建议还是写个自定义函数吧，把算法写在函数里。

多谢，问题是我表2用的计算器只是示例，实际比较复杂，写函数可能会比较困难

tianya3038

chaohuahch 发表于 2018-7-17 15:11

多谢多谢，思路明白了，但代码写进去怎么不执行呢？