Excel問題_跨分頁_流水號

各位大大是這樣的我需要製作一個 EXCEL檔案
這是分頁1_
Excel問題_跨分頁_流水號

這是分頁2_

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

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

另外，我的分頁名稱希望可以 50001-50030，50031-50060
這個我VBA也沒有成功，請問該用甚麼可以解決呢?

2019-01-03 13:07 #1

文章關鍵字

excel 問題流水號

wbl2049

29分

2樓

wbl2049

個人積分：29分

文章編號：71587792

給你試試看希望對你有幫助

Sub Add_Sheet()

For I = 1 To 50

S_Name1 = 50000 + 1 + ((I - 1) * 30)
S_Name2 = 50000 + I * 30
Sheet_Name = S_Name1 & "-" & S_Name2
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Sheet_Name

For J = 1 To 15

If I = 1 And J = 1 Then

Range("A" & J) = 500001
Range("C" & J).Formula = "=A15+1"

Else
If I <> 1 And J = 1 Then
Range("A" & J).Formula = "='" & Last_Name & "'!C15+1"
Range("C" & J).Formula = "=A15+1"
Else
Range("A" & J).Formula = "=A" & J - 1 & "+1"
Range("C" & J).Formula = "=C" & J - 1 & "+1"
End If
End If

Next J

Last_Name = Sheet_Name

Next I

End Sub

豪豪張

0分

樓主

豪豪張

個人積分：0分

文章編號：71588430

謝謝您的回答可以用!!!!

另外我能再請教您一個問題嗎?
大大這邊是使用 Worksheets.Add
那我如果今天活頁簿1 中有其他東西，我想使用的是複製頁面
因為其他的東西，有可能是表格，文字，不好用VBA去輸入
我才會想用複製的方式去處理~
那我該如何處理?

如圖中的表格我想在其他的部分也都有放進去

wbl2049

29分

4樓

wbl2049

個人積分：29分

文章編號：71588970

Sub Add_Sheet()

For I = 1 To 50

S_Name1 = 50000 + 1 + ((I - 1) * 30)
S_Name2 = 50000 + I * 30
Sheet_Name = S_Name1 & "-" & S_Name2

'Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Sheet_Name

Worksheets("工作表1").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = Sheet_Name

For J = 1 To 15

If I = 1 And J = 1 Then

Range("A" & J) = 500001
Range("C" & J).Formula = "=A15+1"

Else
If I <> 1 And J = 1 Then
Range("A" & J).Formula = "='" & Last_Name & "'!C15+1"
Range("C" & J).Formula = "=A15+1"
Else
Range("A" & J).Formula = "=A" & J - 1 & "+1"
Range("C" & J).Formula = "=C" & J - 1 & "+1"
End If
End If

Next J

Last_Name = Sheet_Name

Next I

End Sub

Excel問題_跨分頁_流水號

小惡魔新聞台

今日熱門文章 網友點擊推薦！

今日熱門文章　網友點擊推薦！