Sub獲取數據（）
X =工作表函數。匹配（【a1】，工作表（“數據”）。範圍（“B:B“，0）。
Arr =工作表（“數據”）。範圍（“d“&；x & amp“:“& amph & amp；x)
【b4】。調整大小（1，5）= arr
【b5】=工作表（“數據”）。單元格（x，“I”）
末端接頭
或者
Sub獲取數據（）
Y =工作表函數。countif（表（“數據”）。範圍（“B:B“），【a1】）
如果y = 0，那麽
MsgBox“日期輸入錯誤”
出口接頭
如果…就會結束
X =工作表函數。匹配（【a1】，工作表（“數據”）。範圍（“B:B“，0）。
Arr =工作表（“數據”）。範圍（“d“&；x & amp“:“& amph & amp；x)
【b4】。調整大小（1，5）= arr
【b5】=工作表（“數據”）。單元格（x，“I”）
末端接頭