非常感謝soyoso的幫忙實現了這個功能，
而且比我原本想的還好用。
也因為原本以為能這樣就很好了，
但反覆測試後必須承認自己一開始考慮未周，
有些細節沒有想到，研究了一下，自己只會改
pic.Top = Cells(1,fstr).Top 的那個 1

問題1可用like "[a-zA-Z]"判斷是否為英文字母問題2，可用iif判斷正或負，用於top後面問題3，判斷，以right右取2位，cint或clng轉integer或long丟worksheets或sheets的index內後面加上select，p欄最後一筆有資料用range.end xlup或xldown(有連續資料時使用)，下移一筆到空白儲存格用offset問題4，將要找的副檔名以迴圈方式，丟到dir內尋找，判斷是否有找到，有找到可用變數取得該副檔名，以exit for或do離開迴圈

謝謝您！我來想想辦法。