Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/selenium/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 偏移代码无法替换单元格中的数据_Excel_Vba - Fatal编程技术网

Excel 偏移代码无法替换单元格中的数据

Excel 偏移代码无法替换单元格中的数据,excel,vba,Excel,Vba,我已经替换了一列中的单元格,该列以前有N/a以反映a,但是当我运行下面的代码时,值a不会更改为我在下面选择的偏移量。你能给个建议吗?提前谢谢 Set SrchRng = ActiveSheet.Range("O2:O" & ActiveSheet.Range("O65536").End(xlUp).Row) For Each c In SrchRng If c.Value = "A" Then c.Offset(0, -2).Value = c.Offset(0,

我已经替换了一列中的单元格,该列以前有N/a以反映a,但是当我运行下面的代码时,值a不会更改为我在下面选择的偏移量。你能给个建议吗?提前谢谢

Set SrchRng = ActiveSheet.Range("O2:O" & ActiveSheet.Range("O65536").End(xlUp).Row)
For Each c In SrchRng
    If c.Value = "A" Then
        c.Offset(0, -2).Value = c.Offset(0, -2).Value
    End If
Next c
所以。。。我们得到了一个由O2:O组成的范围,然后我们循环通过这个范围。如果找到一个值为a的单元格,那么我们将该单元格的值设置为该单元格左侧两列的值,并使用其自身的值。c、 Offset0,-2.Value=c.Offset0,-2.Value为什么要将此单元格的值设置为自身。它已经是它自己的价值了


也许你的意思是c.Value=c.Offset0,-2.Value

谢谢!这是可行的,但不知道为什么原始代码可以在同一工作簿上的其他宏中工作。
Set SrchRng = ActiveSheet.Range("O2:O" & ActiveSheet.Range("O65536").End(xlUp).Row)
For Each c In SrchRng
    If c.Value = "A" Then
        c.Offset(0, -2).Value = c.Offset(0, -2).Value
    End If
Next c