- 帖子
- 396
- 主題
- 12
- 精華
- 0
- 積分
- 425
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台中
- 註冊時間
- 2013-7-2
- 最後登錄
- 2024-8-23
  
|
5#
發表於 2014-4-10 09:56
| 只看該作者
回復 4# 89691007
Dim i, lastRow As Integer
==> 定義『i』、『lastrow』為整數
lastRow = [A1].End(xlDown).Row '取得A欄最下一行
==> lastrow=取得A欄的最後一個有數值的列號
你在工作表裡,按ctrl+上、下、左、右鍵去動看看,就很清楚明暸了
end(xldown)=ctrl+下
end(xlup))=ctrl+上
end(xltoright))=ctrl+右
end(xltoleft))=ctrl+左
但是如果你的a欄的數值有不連續的空白格的話,建議你改用
[a65536].end(xlup).row,比較不會發生判斷錯誤。
For i = 2 To lastRow
==> for 要搭配next, for i= 2 to lastrow(剛才上面有計算出lastrow的數值),
i就會從2一直執行到lastrow的數值為止,假設lastrow是50好了,
那麼他就會幫你去測 If Cells(2, 3) > Cells(2, 4)
Cells(3, 3) > Cells(3, 4)
Cells(4, 3) > Cells(4, 4)
:
:
:
Cells(50, 3) > Cells(50, 4) |
|