返回列表 上一主題 發帖

[發問] 兩階段條件符合後再進行計算

ketrddem

帖子
50 
主題
8 
精華
0 
積分
66 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2013 
閱讀權限
20 
性別
男 
註冊時間
2015-2-3 
最後登錄
2024-12-3 
1# 跳轉到 »
發表於 2016-9-15 22:33 | 顯示全部帖子
不確定對不對，請插入模組後測試一下

Dim LostRow As Integer
LostRow=sheets("工作表1").cells(rows.count,1).end(xlup).row
For i = 2 to LostRow
If sheets("工作表1").cells(i,5)=sheets("工作表2").cells(i,5) and sheets("工作表1").cells(i,1)=sheets("工作表2").cells(i,1) then
sheets("工作表1").cells(i,7)=sheets("工作表1").cells(i,4)-sheets("工作表2").cells(i,4)
end if
next
EXCEL VBA新手，請前輩多多指教

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題