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

看板Visual_Basic作者mitchness (實現夢想的力量)時間15年前 (2010/08/13 22:06)推噓0(0推 0噓 5→)

留言5則, 3人參與討論串1/1

有一個問題想請教大家 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

08/13 23:14, , 1^F

08/13 23:14, 1^F

→

necsa

08/13 23:18, , 2^F

08/13 23:18, 2^F

→

mitchness

08/13 23:24, , 3^F

08/13 23:24, 3^F