Excel問題_跨分頁_流水號

#excel #vba

阿宏 2019-01-03 12:50:02 ‧ 1159 瀏覽

分享至

各位大大是這樣的我需要製作一個 EXCEL檔案
這是分頁1_

這是分頁2_

簡單來說，複製分頁後A1公式，自動改為上一個工作表(在工作表二，就"=工作表1!C15+1
(在工作表三，就"=工作表2!C15+1

大概要做個50個分頁，有嘗試使用VBA去處理，但卡公式中包含分頁名稱
分頁名稱不是變數讓我無法在複製後，分頁一起+1

另外，我的分頁名稱希望可以 50001-50030，50031-50060
這個我VBA也沒有成功，

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

paicheng0111

iT邦大師 5 級 ‧ 2019-01-03 18:17:21

最佳解答

試試看

Sub itHelp()
    Dim newName as string, i as integer

    for i = 1 to worksheets.count
        newName = worksheets(i).range("a1").value
        newName = newName & "-" & worksheets(i).range("C15").value
        worksheets(i).name = newName
        
        if i > 1 then
            worksheets(i).range("A1").formula= "='" & worksheets(i-1).name & "'!C15+1"
        end if
    next i
end sub