excel - 如何在 MS Excel 中将特定数据从一个 Excel 工作表传输到另一个工作表？

Question

基本上，我有两张 Excel 表格。我想要做的是将特定的单元格值从当前单元格复制到另一个单元格。假设，我有一张现金存款表格:
现金存款表格信息:

然后，我需要将一些需要的数据复制并粘贴到另一个表单中。
这是我要从现金存款中粘贴单元格值的表格:

我尝试了宏，但我对它的了解有限，这对我来说似乎很困难。任何想法？

Answer 1

Sub move_data()

Dim main_sheet As String
Dim target_sheet As String

Dim info1 As String
Dim target_info1 As String

Dim info2 As String
Dim target_info2 As String

'CONFIG
'--------------------------
main_sheet = "Sheet1" 'set sheet name to copy from
target_sheet = "Sheet2" 'set sheet name to paste in

'cells to copy
info1 = "A1"
info2 = "B1"

'cells to paste
target_info1 = "B1"
target_info2 = "B2"
'----------------------

Sheets(target_sheet).Range(target_info1) = _
Sheets(main_sheet).Range(info1)

Sheets(target_sheet).Range(target_info2) = _
Sheets(main_sheet).Range(info2)

End Sub

如果您需要复制/粘贴更多单元格，只需添加更多 String变量为 info1和 info2将其对应的目标单元格粘贴进去，并在 End Sub 之前添加以下代码对变量名称进行相应的更改。

Sheets(target_sheet).Range(target_info2) = _
Sheets(main_sheet).Range(info2)