→ soyoso: 模擬內文的巨集，並無錯誤訊息 10/12 09:47
→ soyoso: 因此是否工作表名稱，雖然是1-82，但其中有前後加上空白格 10/12 09:48
→ soyoso: 的工作表名稱的 10/12 09:48
→ soyoso: 如工作表名稱 5的後面加上空白格，就會回傳參照無效，且也 10/12 09:51
→ quirrky: 超級感謝，按照建議排除異常後，順利執行，開心開心 10/12 13:19
※ 引述《quirrky (@@)》之銘言：
: ※ 引述《quirrky (@@)》之銘言：
: : 軟體:EXCEL
: : 版本:2010
: : 軟體:Excel
: : 版本:2010
: : excel裡有83個工作表
: : 第一個為目錄，在B1至B83設定超連結[開啟]
: : 點選到會連到每個工作表
工作表命名如圖示 https://imgur.com/bksoZrZ
需要在每個工作表D4欄位貼上「=VLOOKUP(B4,目錄!C2:E83,3,FALSE)」
並修正為日期格式
希望透過巨集執行
由於工作表是以數字命名
有根據之前建議更改Goto Reference:=i & "!r1c1"
取代原本Goto Reference:="'2'!R1C1"
但按下執行後，此處卻被偵錯
而執行失敗
再次謝謝大家協助解惑
-----
Sub 巨集2()
For i = 1 To 82
'
' 巨集2 巨集
'
'
Range("B3").Select
Application.Goto Reference:=i & "!r1c1"
Range("D4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],目錄
!R[-2]C[-1]:R[79]C[1],3,FALSE)"
Range("D4").Select
Selection.NumberFormatLocal = "yyyy/mm/dd"
Sheets("目錄").Select
Range("B4").Select
Next
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.42.40.175 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1570807011.A.35F.html
※ 編輯: quirrky (114.42.40.175 臺灣), 10/11/2019 23:18:26