使用仪表板复制特定列中的特定行并将其粘贴到不同的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 

上面应该给你对你的宏的下一章节的开始。如果您遇到问题，请回答有关不按您的要求工作的代码的具体问题。请不要提供含糊不清的要求清单。