2 個 ON ERROR GOTO ERROR 出現錯誤
- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-20
|
檔案無法開, 大約抓一下
Sub TEST_A01()
Dim Sht As Worksheet, S1, S2, TC, M(2)
On Error Resume Next
Set Sht = Sheets("2019 TRADING SOC NO.")
If Sht Is Nothing Then MsgBox "工作表〔2019 TRADING SOC NO.〕不存在! ": Exit Sub
On Error GoTo 0
'------------------------------
For i = 2 To Sht.Range("A" & Rows.Count).End(xlUp).Row
S1 = "": S2 = "": TC = Sht.Range("E" & i).Value
On Error Resume Next
M(1) = Application.VLookup(TC, Sheets("成本 (2020.09.28)").Range("D:AL"), 35, 0)
M(2) = Application.VLookup(TC, Sheets("期貨總匯 (2020.09.16)").Range("A:G"), 7, 0)
On Error GoTo 0
For j = 1 To 2
If Not IsError(M(j)) Then S1 = M(j): S2 = Array("成本表", "期貨表")(j - 1): Exit For
Next j
Sht.Range("L" & i) = S1
Sht.Range("M" & i) = S2
Next i
End Sub
'=============================== |
|
|
|
|
|
|
|
發表於 2020-10-9 10:06
| 