iT邦幫忙

0

Excel問題_跨分頁_流水號

各位大大 是這樣的我需要製作一個 EXCEL檔案
這是分頁1_
https://ithelp.ithome.com.tw/upload/images/20190103/20114407PmI2g810NI.png
這是分頁2_
https://ithelp.ithome.com.tw/upload/images/20190103/20114407i4dv7OfGbe.png
簡單來說,複製分頁後A1公式,自動改為上一個工作表(在工作表二,就"=工作表1!C15+1
(在工作表三,就"=工作表2!C15+1

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

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

1 個回答

0
paicheng0111
iT邦高手 1 級 ‧ 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

我要發表回答

立即登入回答