- 帖子
- 560
- 主題
- 159
- 精華
- 0
- 積分
- 723
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2023-10-31
  
|
Sub BBB()
Sheet1.Select
Range("A1").Select
For X = 2 To 4
If 1 = 1 Then
M = Sheet1.Cells(X, 1)
mymax = Evaluate("VLOOKUP(""" & M & """,工作表2!A:B,2,FALSE)")
If Application.IsError(mymax) = True Then mymax = ""
Sheet1.Cells(X, 2) = mymax
End If
Next
End Sub |
|
發表於 2020-6-8 16:48
| 