將數據從一張工作表上的兩個單元格傳輸到同一 Excel 工作簿中不同工作表上的兩個單元格

Question

我知道代碼必須包含“目標”和“源”這兩個詞，但僅此而已。 我想將單元格 I7 中的 Sheet2 中的數據移動到單元格 E5 中的 Sheet1，並且我想將單元格 C8 中的 Sheet2 中的數據移動到 E6。 我是否必須在代碼中包含實際工作表名稱或工作表編號是否足夠？

表 1 是儀表板表。 我希望通過按一下按鈕，在工作表 2 中輸入的所有數據都顯示在工作表 1 中。 在所有數據都傳輸到表 1 之后，我希望表 2 那里的數據為零。 有人可以幫我處理這段代碼嗎，我是 VBA/Macro 的新手。

Answer 1

'declare alias

Dim wkb As Excel.Workbook
Dim wks As Excel.Worksheet
Set wkb = Excel.Workbooks("nameoftheworkbook.xlsm")
Set wks = wkb.Worksheets("nameofthesheet")

Dim wks2 As Excel.Worksheet
Set wks2 = wkb.Worksheets("nameofthesheet")

'copy value

wks.Range("E5").Value = wks2.Range("I7").Value