使用儀表板複製特定列中的特定行並將其粘貼到不同的Excel文檔中

Question

在我的Excel電子表格中，我有一個基本上控制一切的主控。在這個高手中，我有一個允許我選擇xlsx文件的頁面，然後在下拉菜單中允許我選擇要使用的選定文件中的哪個表格。 [這部分工作正常，但是...]

我正在努力的是以下內容，用戶必須能夠規定數據從哪一行開始，哪一行數據結束以及該數據在哪一列

例如：

行，其中數據開始7 行，其中數據結束25 列中的數據碼d

的數據G 柱使用該信息，我需要練成以提取數據的並將其複製到另一個sp readsheet用戶已經選擇並把它們合併起來

列輸入數據H 標題列TITLE 列中的數據代碼E

的（代碼必須與用戶的輸入命名）的合併時數據必須提前

Answer 1

這聽起來好像你是問我們來設計你的程序中的數據相匹配的「數據代碼」

感謝。

• 用戶必須能夠規定該行中的數據的開始和該行的數據端和哪一列這個數據是在實施例：「行中的數據開始7行中，數據結束25列的用戶已經選擇了數據代碼D.

• 其他電子表格（工作簿？）的數據G列。

只有你知道你的用戶會發現，方便又會有怎樣配合您現有的代碼。下面我將展示一種選擇你的範圍的方法ght喜歡。

Option Explicit 
    Sub Test() 

    Dim CopyRange As Range 
    Dim reply As Long 

    Do While True 
    Err.Clear 
    On Error Resume Next 
    Set CopyRange = Application.InputBox(Prompt:="Select ranges to be copied", _ 
             Type:=8) 
    On Error GoTo 0 
    If CopyRange Is Nothing Then 
     reply = MsgBox(Prompt:="Do you wish to exit without copying a range?", _ 
        Buttons:=vbYesNo) 
     If reply = vbYes Then 
     ' User wants to exit 
     Exit Sub 
     End If 
     ' Loop for another go 
    Else 
     ' User had entered a valid range 
     Exit Do 
    End If 
    Loop 

    Debug.Print CopyRange.Address 

    End Sub 

您告訴我們您已打開另一個工作簿，以便您瞭解如何在多個工作簿中工作。

最簡單的命令，在我看來，對於複製數據是：

SourceRange.Copy Destination:=TopLeftCellOfDestinationRange 

上面應該給你對你的宏的下一章節的開始。如果您遇到問題，請回答有關不按您的要求工作的代碼的具體問題。請不要提供含糊不清的要求清單。