根據數據輸入複製並粘貼動態範圍

我有一個工作簿內的工作表，所有的日期與列標題看起來一樣。

是否有辦法彈出數據輸入屏幕，並且用戶輸入第一列的日期以開始複製，然後提出另一個問題以複製最後一列的結束日期。

我希望Excel特定工作表中找到數據輸入畫面這兩個日期，將信息複製，然後粘貼此信息到啓動4行同列標題行34

（行會保持不變，複製和粘貼，列將根據用戶輸入而改變）

我可以錄製一個宏來複制和粘貼，但我不知道如何使它變爲動態。

希望有人在那裏可能有一個想法。

先嚐試（錄音可能是一個開始），然後回來一個更具體的問題，涉及您的編碼試驗和錯誤。 –

您可以創建輸入框來提示用戶輸入日期，然後將該值傳遞給定義的變量。

Dim start_date As Date 
start_date = InputBox("Please enter the start date:")

用戶輸入的日期現在被保存在變量稱爲start_date。然後，您可以使用功能Find在工作表中搜索此日期的位置。例如

Dim x As Range 
With ThisWorkbook.ActiveSheet.UsedRange 
    Set x = .Find(start_date, LookIn:=xlValues) 
End With

你可以在你希望它被搜索對工作表中的特定區域替換UsedRange。現在，x是包含用戶輸入日期的範圍（或單元格）。

只需應用相同的概念來查找結束日期，然後將這些信息集成到複製粘貼例程中。

希望這將幫助！

2014-02-19 22:24:50 learnexcel

回答