本帖最後由 1qwer 於 2020-5-14 21:22 編輯
唔該~
咁vba大約點寫? 都是用indirect?
newshun 發表於 2020-5-14 10:50  - Sub copyandpasts()
- Dim wb As Workbook
- Dim ws As Worksheet
- Dim i As Integer
- i = 1
- For Each wb In Application.Workbooks
- For Each ws In Application.Worksheets
- Workbooks(1).Worksheets(1).Cells(i, 2) = ws.Cells(1, 1)
- i = i + 1
- 'Copy each open workbook's worksheets "A1" to first workbook's worksheet column "B"
- Next
- Next
- End Sub
複製代碼 Sorry, 在下對 vba 唔係好熟。上面E個係參考別人的整出來的,有問題請指正。
佢會將你所開的每一個 excel 檔的每一個 worksheet 的 "A1" copy 去你第一個 excel 的第一個 worksheet 的 B 欄中。
然後你的公式就可引用欄 B 的資料用。
你可以 google keyword : vba loop workbook , vba loop workbook file
p.s.1 測試前請先備份。
p.s.2 請關閉不相關的 excel 檔,以免發生意外。 |