如何将公式求得的值自动转换为数值，并自动粘贴到另一个单元格，谢谢！

seekonce · 发表于 2019-6-15 23:32

请看附件，我原先将黄色单元格的公式输入E7单元格，提示我循环，然后会计算错误，现在为了避免循环，插入一行在黄色单元格单独计算出结果后，不知道怎么自动填入到蓝色单元格中了，用公式的话会提示循环，现在不知道怎么办了，麻烦大家了，谢谢！

2Denny19 · 发表于 2019-6-16 09:04

不知道用宏可不可以呢，我把你的辅助列删除了。直接用宏。

博爱风雨同舟 · 发表于 2019-6-16 09:04

快捷键ALT+T+O,EXCEL选项----公式---启用迭代计算前打勾

seekonce · 发表于 2019-6-16 21:26

2Denny19 发表于 2019-6-16 09:04
不知道用宏可不可以呢，我把你的辅助列删除了。直接用宏。

您好，我想要的就是这种效果，但是还有一个问题，我是D7，D10,D13..........D604都需要这种效果，因为没学过VBA，想请教下，要写什么样的语句才能做到呢？谢谢！

seekonce · 发表于 2019-6-16 21:30

博爱风雨同舟发表于 2019-6-16 09:04
快捷键ALT+T+O,EXCEL选项----公式---启用迭代计算前打勾

谢谢您的帮助，但是类似单元格很多，使用迭代计算的话速度很慢，虽然如此，但还是很谢谢您！

2Denny19 · 发表于 2019-6-17 12:59

seekonce 发表于 2019-6-16 21:26
您好，我想要的就是这种效果，但是还有一个问题，我是D7，D10,D13..........D604都需要这种效果，因为没 ...

Sub aa()
Dim m1, i As Integer
With Sheets("原料库存")
m1 = .Range("C" & .Rows.Count).End(3).Row
For i = 7 To m1 Step 3
.Cells(i, 4) = Abs(Application.Min(.Cells(i, 6), .Cells(i, 8), .Cells(i, 10), .Cells(i, 12), .Cells(i, 14), _
.Cells(i, 16), .Cells(i, 18), .Cells(i, 20), .Cells(i, 22), .Cells(i, 24), .Cells(i, 26), .Cells(i, 28)))
Next
End With
End Sub

复制代码

seekonce · 发表于 2019-10-15 17:23

2Denny19 发表于 2019-6-17 12:59

迟来的感谢，谢谢！

		自动登录	找回密码
密码			免费注册

[已解决] 如何将公式求得的值自动转换为数值，并自动粘贴到另一个单元格，谢谢！