EXCEL VBA求救?

最近因工作所需, 在一個EXCEL檔裡, 要做31個工作頁

每一個工作頁的內容都一樣

我己經成功的用VBA複製了31頁工作頁,編號為1,2,3,4,5,到31

但是每一個工作頁有指定的欄位還要更改

我工作頁1的B4 沒有指定連結,所以我複製的31頁工作表裡的B4也沒有連結

但接下來我想要把B4的欄位等於B65, 意思是2的B4要等於1的B65,3的B4要等於2的B65,4的B4要等於3的B65 以此類推,請問這VBA要怎麼寫呢~

1 個解答

評分
  • 5 年前
    最佳解答

    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

    • Commenter avatar登入以對解答發表意見
還有問題?馬上發問,尋求解答。