[VBA ] 請教一個比對資料的問題

[mitchness (實現夢想的力量)]

有一個問題想請教大家

Sheet1 Sheet2 的資料要在 Sheet3 比對

如果 Sheet1 的資料有 N 列

怎麼讓程式自動知道 i = N

而不是我去指定 i 的數字去跑回圈

麻煩大家了 謝謝





Sub Macro1()

Dim i As Integer
    i = 0
    Do
    i = i + 1
        ActiveCell.Cells(i, 1) = "=IF(Sheet1!RC=Sheet2!RC,TRUE,FALSE)"
        ActiveCell.Cells(i, 2) = "=IF(Sheet1!RC=Sheet2!RC,TRUE,FALSE)"
        ActiveCell.Cells(i, 3) = "=IF(Sheet1!RC=Sheet2!RC,TRUE,FALSE)"
        ActiveCell.Cells(i, 4) = "=IF(Sheet1!RC=Sheet2!RC,TRUE,FALSE)"
        ActiveCell.Cells(i, 6) = "=IF(AND(RC[-5]:RC[-2]),""all ok"",""NG"")"


    Loop Until i = 15
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 111.251.25.150
→ necsa:N=Sheets("Sheet1").Cells(1,1).End(xlToRight).Column
→ necsa:N=Sheets("Sheet1").Cells(1,1).End(xlDown).Row
→ mitchness:感恩
→ necsa:資料需要是連續的,否則得到的位置會是空白的前一格.
→ hulapig:也可以用cells(65535,1).end(xlup).row選最後一列資料