EXCEL　ＶＢＡ求救?

[匿名]

2015-09-14 10:56 am

最近因工作所需，　在一個ＥＸＣＥＬ檔裡，　要做３１個工作頁
每一個工作頁的內容都一樣
我己經成功的用ＶＢＡ複製了３１頁工作頁，編號為１，２，３，４，５，到３１
但是每一個工作頁有指定的欄位還要更改
我工作頁１的Ｂ４　沒有指定連結，所以我複製的３１頁工作表裡的Ｂ４也沒有連結
但接下來我想要把Ｂ４的欄位等於Ｂ６５，　意思是２的Ｂ４要等於１的Ｂ６５，３的Ｂ４要等於２的Ｂ６５，４的Ｂ４要等於３的Ｂ６５　以此類推，請問這ＶＢＡ要怎麼寫呢～

回答 (1)

先生

2015-09-14 12:34 pm

✔ 最佳答案

Sub test()
Sheets("1").Cells(4, 2) = Sheets("31").Cells(65, 2)
For i = 2 To 31
Sheets(i).Cells(4, 2) = Sheets(i - 1).Cells(65, 2)
Next
End Sub

👍 1 👎 0

EXCEL ＶＢＡ求救?

回答 (1)

EXCEL　ＶＢＡ求救?