小编Har*_*rry的帖子

这是我遇到问题的代码.当B列中相应行中的值为Deuterium时,我只是尝试将值"0"输入到列G中.调试器告诉我我的错误在于包含If语句的行.

For i = 3 To 30
    If Worksheets("Master PEC").Cells(i, 2) = "Deuterium" Then
        Worksheets("Master PEC").Cells(i, 7).Value = 0
    End If
Next

截图:

我在更新单元格的值时遇到问题。下面是我正在运行的测试代码，以确保我可以更新单元格值。没有错误，但在运行代码时单元格保持为空。

编辑：我不是很精通 vba 语法，所以我更新了下面的代码以显示我正在尝试做什么。基本上我想找到与某种材料对应​​的值，然后总结找到的所有值。我知道你说我不是在输入值，而是在拉动它们。我相信我正在初始化变量。我该如何输入值？

Sub MaterialSort()

Dim deut As Double
Dim am241 As Double
Dim pu238 As Double
Dim pu239 As Double
Dim pu240 As Double
Dim pu241 As Double
Dim np237 As Double
Dim u238 As Double
Dim u235 As Double
Dim u233 As Double
Dim am243 As Double


deut = Worksheets("Material PEC").Cells(2, 2).Value
am241 = Worksheets("Material PEC").Cells(3, 2).Value
pu238 = Worksheets("Material PEC").Cells(4, 2).Value
pu239 = Worksheets("Material PEC").Cells(5, 2).Value
pu240 = Worksheets("Material PEC").Cells(6, 2).Value
pu241 = Worksheets("Material PEC").Cells(7, 2).Value …