在Excel中，可以通過(guò)VBA（Visual Basic for Applications）宏來(lái)賦值一個(gè)工作簿中的數(shù)據(jù)到另一個(gè)工作簿。以下是一個(gè)簡(jiǎn)單的VBA宏示例，演示如何將一個(gè)工作簿中的數(shù)據(jù)復(fù)制到另一個(gè)工作簿。

請(qǐng)按照以下步驟操作：

1. 打開(kāi)Excel，然后打開(kāi)包含源數(shù)據(jù)的工作簿。

2. 按下 `Alt + F11` 打開(kāi)VBA編輯器。

3. 在VBA編輯器中，插入一個(gè)新的模塊（在菜單欄選擇“插入” > “模塊”）。

4. 在新模塊的代碼窗口中復(fù)制并粘貼以下代碼：

```vba

Sub CopyDataFromWorkbook()

Dim SourceWorkbook As Workbook

Dim TargetWorkbook As Workbook

Dim SourceSheet As Worksheet

Dim TargetSheet As Worksheet

Dim SourceRange As Range

Dim TargetRange As Range

' 設(shè)置源工作簿和目標(biāo)工作簿的路徑

Const SourcePath As String = "C:PathToYourSourceWorkbook.xlsx"

Const TargetPath As String = "C:PathToYourTargetWorkbook.xlsx"

' 打開(kāi)源工作簿和目標(biāo)工作簿

Set SourceWorkbook = Workbooks.Open(SourcePath)

Set TargetWorkbook = Workbooks.Open(TargetPath)

' 設(shè)置源工作表和目標(biāo)工作表

Set SourceSheet = SourceWorkbook.Sheets("Sheet1") ' 修改為你的源工作表名稱

Set TargetSheet = TargetWorkbook.Sheets("Sheet1") ' 修改為你的目標(biāo)工作表名稱

' 設(shè)置源范圍和目標(biāo)范圍

Set SourceRange = SourceSheet.Range("A1:C10") ' 修改為你的源數(shù)據(jù)范圍

Set TargetRange = TargetSheet.Range("A1:C10") ' 修改為你的目標(biāo)數(shù)據(jù)范圍

' 復(fù)制數(shù)據(jù)

SourceRange.Copy Destination:=TargetRange

' 關(guān)閉源工作簿

SourceWorkbook.Close SaveChanges:=False

' 提示操作完成

MsgBox "數(shù)據(jù)已復(fù)制到目標(biāo)工作簿！"

End Sub

```

5. 修改上述代碼中的 `SourcePath` 和 `TargetPath` 變量，設(shè)置正確的源工作簿和目標(biāo)工作簿的路徑。

6. 修改 `SourceSheet` 和 `TargetSheet` 變量，設(shè)置正確的源工作表和目標(biāo)工作表名稱。

7. 修改 `SourceRange` 和 `TargetRange` 變量，設(shè)置正確的源數(shù)據(jù)范圍和目標(biāo)數(shù)據(jù)范圍。

8. 關(guān)閉VBA編輯器，回到Excel界面。

9. 按下 `Alt + F8`，選擇 `CopyDataFromWorkbook` 宏，然后點(diǎn)擊“運(yùn)行”。

執(zhí)行上述步驟后，你就可以將一個(gè)工作簿中的數(shù)據(jù)復(fù)制到另一個(gè)工作簿了。請(qǐng)確保你有足夠的權(quán)限來(lái)打開(kāi)和修改這兩個(gè)工作簿。