返回列表 上一主題 發帖

[發問] 請問有關對照帶入，找尋很久不知道怎麼做，感恩

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2015-9-8 10:42 | 顯示全部帖子
公式搭VBA：
Sub TEST()
With [D1:S1].Offset([U3], 0)
　　.Formula = "=IF(ISNA(MATCH(D$1,$A:$A,)),"""",VLOOKUP(D$1,$A:$B,2,))"
　　.Value = .Value
End With
End Sub

要保留前值，僅用公式時，必須手動貼成〔值〕，使用VBA可一氣呵成！
　

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2015-9-8 10:53 | 顯示全部帖子
完整些，避免操作錯誤將之前的資料覆蓋了：
　
Sub TEST()
If Val([U3]) <= 0 Then Exit Sub
With [D1:S1].Offset([U3], 0)
　　　If Application.CountA(.Cells) > 0 Then
　　　　　If MsgBox("指定日期已有資料，是否更新數據？　", 0 + 4 + 256) = vbNo Then Exit Sub
　　　End If
　　　.Formula = "=IF(ISNA(MATCH(D$1,$A:$A,)),"""",VLOOKUP(D$1,$A:$B,2,))"
　　　.Value = .Value
End With
End Sub

TOP

        靜思自在 : 得理要饒人，理直要氣和。
返回列表 上一主題