作者mitchness (实现梦想的力量)
看板Visual_Basic
标题[VBA ] 请教一个比对资料的问题
时间Fri Aug 13 22:06:30 2010
有一个问题想请教大家
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
1F：→ necsa:N=Sheets("Sheet1").Cells(1,1).End(xlToRight).Column 08/13 23:14
2F：→ necsa:N=Sheets("Sheet1").Cells(1,1).End(xlDown).Row 08/13 23:18
3F：→ mitchness:感恩 08/13 23:24
4F：→ necsa:资料需要是连续的,否则得到的位置会是空白的前一格. 08/13 23:30
5F：→ hulapig:也可以用cells(65535,1).end(xlup).row选最後一列资料 08/14 12:31