[已解决]要求代码修改，

楚雪飞扬

使用代替vlookup后，不显示错误的数据（标黄部份为错误数据，要如何不显示，直接为空）

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-6-18 12:07

楚雪飞扬 发表于 2021-6-18 11:59
还有个问题，还得麻烦您一下，我用以下代码执行出来的结果跟用公式算出来的结果不同，是代码哪里不对吗？ ...

注意紅色的括號

Cells(i, 10) = ( Cells(i, 8) - Cells(i, 7) ) * 24                 
Cells(i, 11) = ( Cells(i, 9) - Cells(i, 8) ) * 24
祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

有附件嗎

楚雪飞扬

cutecpu 发表于 2021-6-18 11:11
有附件嗎

附件已上传，麻烦抽空帮忙看下,y谢谢！

cutecpu

注意藍色部份：

原來：Arrvlookup(i, 10) = 0
改成：Arrvlookup(i, 10) = ""


祝順心，南無阿彌陀佛！

楚雪飞扬

cutecpu 发表于 2021-6-18 11:40
注意藍色部份：

原來：Arrvlookup(i, 10) = 0

还有个问题，还得麻烦您一下，我用以下代码执行出来的结果跟用公式算出来的结果不同，是代码哪里不对吗？ Dim ary As Long
     ary = Range("a65536").End(xlUp).Row
For i = 3 To ary
   Cells(i, 10) = Cells(i, 8) - Cells(i, 7) * 24                   这行公式  =（H2-G2)*24
   Cells(i, 11) = Cells(i, 9) - Cells(i, 8) * 24                   这行公式=（I2-H2)*24
Next



用以下代码执行后会带出公式，
Dim ary As Long
    ary = Range("a65536").End(xlUp).Row
    For i = 3 To ary
        Cells(i, 10) = "=(RC[-2]-RC[-3])*24"
        Cells(i, 11) = "=(RC[-2]-RC[-3])*24"

    Next

cutecpu

楚雪飞扬 发表于 2021-6-18 11:59
还有个问题，还得麻烦您一下，我用以下代码执行出来的结果跟用公式算出来的结果不同，是代码哪里不对吗？ ...

注意紅色的括號

Cells(i, 10) = ( Cells(i, 8) - Cells(i, 7) ) * 24                 
Cells(i, 11) = ( Cells(i, 9) - Cells(i, 8) ) * 24
祝順心，南無阿彌陀佛！