在Excel中將一個工作簿復制到另一個工作簿並將單元格數據復制到另一個工作簿

Question

我需要在第二個工作簿上找到一個特定的單元格並返回其值。 我的范圍始終在變化，但是我可以濾除不良值。 我需要從一個工作簿復制（MCN＃）到另一個工作簿的單元格正在更改其格式。

有時是單行，有時是7行左右的合並。我使用的代碼是：

=HLOOKUP("MCN #",[CuPe1810_CH520.xlsx]CuPe1820_CH520!$A$1:$S$16,2,FALSE)

我正在尋找鏈接的工作簿上的“ MCN＃”，並在主工作簿上返回分配給它的行值（B3）。

我需要從用戶輸入值更改[CuPe1810_CH520.xlsx]，並且需要將制表符或范圍（CuPe1820_CH520！$ A $ 1：$ S $ 16）更改為相同的名稱，然后減去.xlsx，因此在我的示例中CuPe1820_CH520將代表選項卡名稱和.xlsx名稱。 我需要幫助才能根據用戶輸入進行操作，並且可以完成公式或宏，我不在乎。

Answer 1

你可以做這樣的事情。

在下面的示例中， F1 （或$F$1的短代碼）是您正在編輯以更新公式的單元格。

A1是我們要更新的單元格公式。

如果您需要更新多個單元格，則可以在For Each循環中循環通過它們，也可以使用Range("SomeRange").AutoFill Destination:=Range("SomeDestination")函數。

根據您的情況，可能需要更新Application.ActiveWorkbook.Path指向文件的路徑。

這進入您的工作表對象（ Worksheet_Change事件）。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
    'Range to update formula goes here
    Range("A1").Formula = "='" & Application.ActiveWorkbook.Path & "\[" & [F1] & ".xlsx]" & [F1] & "'!A1"
End If
End Sub

在上面的示例中，您無需在輸入字符串中放入.xlsx 。