如果目標。地址（0，0）& lt；& gt“F4”號隨後退出潛艇
【H4】=““
昏暗的排列，d，I，k
k = 2
set d = CreateObject（“scripting . dictionary“）
arr = Sheet2。範圍（“a1“）。當前區域
對於i = 1到下界（arr）
d（arr（I，1））=“= sheet 2！“& amp範圍（單元格（1，k），單元格（4，k））。地址
k = k + 1
然後
t = d .項目
s = Sheet1範圍（“f4”）
如果d存在，那麽
用Sheet1。範圍（“h4”）。確認
。刪除
。添加類型:=xlValidateList，AlertStyle:=xlValidAlertStop，運算符:= _
xlBetween，公式1:= d（s）
。IgnoreBlank = True
。InCellDropdown = True
。輸入標題=““
。錯誤標題=““
。輸入消息=““
。錯誤消息=““
。IMEMode = xlIMEModeNoControl
。ShowInput = True
。ShowError = True
以…結尾
如果…就會結束
設置d =無
末端接頭