[發問] 初學不才，請問這如何簡化?

dakiu

各位老師好:

以下是我跨檔案依指定儲存格值而取的另一檔案儲存格值所寫，但是.........我要從F4......G4......H4.....一直做到Z4，RANGE()的變動不會寫，只能一直COPY做.....:'(

還請老師指導....感謝!

Public Sub test()
Range("f4:f9") = "='D:\Desktop\a\[" & [F2] & ".xlsm]b'!" & [$d4] & ""
Range("f10:f14") = "='D:\Desktop\a\[" & [F2] & ".xlsm]b'!" &  [$d10] & ""
Range("f15:f20") = "='D:\Desktop\a\[" & [F2] & ".xlsm]b'!" &  [$d15] & ""
Range("g4:g9") = "='D:\Desktop\a\[" & [G2] & ".xlsm]b'!" & [$d4] & ""
Range("g10:g14") = "='D:\Desktop\a\[" & [G2] & ".xlsm]b'!" & [$d10] & ""
Range("g15:g20") = "='D:\Desktop\a\[" & [G2] & ".xlsm]b'!" & [$d15] & ""

end sub

dakiu

謝謝2位指導，會在細心研究學習了!感謝

dakiu

回復 2# ML089


    版大，能否再請教?
1)資料都放在同一資料夾，如果此資料夾移動後，這  'D:\Desktop\a\  能否自動變更位置?

再次求教，感謝!

dakiu

回復 6# ML089


    謝謝版大，解決了...感謝指導!!