求助怎么用变量抓取单元格进行处理

zzyyxd1994

求助.zip (19.13 KB, 下载次数: 2)

2018-6-25 11:38 上传

点击文件名下载附件

我想用VBA对两边的公式进行校对但是不知道怎么用变量抓取行列
请大佬帮我看看

不知道为什么

我想你这附件还真可以为难住那些大佬了，他们不但要会写代码，还要会猜题

moke525

if  .range(“B”&i).formula=.range(“C”&i).formula  then
else
endif
这样吗？？手机敲得拼写不一定准

zzyyxd1994

就是我表2和表1数据不一样我想以表2为基准修改表1
    Sub 去多()
   

    Sheets("2").Select
    lr = 0
    jr = 0
    i = 0
    c = 0
   
    lr = [d1].End(4).Row
    jr = Range("a1:a" & lr)
    Sheets("1").Select
    For i = 1 To lr
    If jr(i, 1) <> Cells(i, 2) Then
        If Cells(i, 4) = "" Then
    Rows("i:i").Select
    Selection.Delete Shift:=xlUp
        i = i - 1
        End If
    End If
    Next
End Sub
但是代码运行到
    Rows("i:i").Select就不行了

不知道为什么

zzyyxd1994 发表于 2018-6-25 12:00
就是我表2和表1数据不一样我想以表2为基准修改表1
    Sub 去多()
   

你的需求我还是看不懂。仅针对你的代码

Rows("i:i").Select 出错是肯定的。i 是变量 你引号一整 不就是变成字符了？那肯定出错啊
写： rows(i).delete
当然，如果改成这样，你这段代码应该会卡死。你试试把

zzyyxd1994

不知道为什么 发表于 2018-6-25 14:59
你的需求我还是看不懂。仅针对你的代码

Rows("i:i").Select 出错是肯定的。i 是变量 你引号一整 不就 ...

去引号对了 谢谢

不知道为什么

zzyyxd1994 发表于 2018-6-25 21:53
去引号对了 谢谢

呵呵，客气拉