非常感谢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离开循环

谢谢您！我来想想办法。