我的意思是:
例如我有一个文件夹A
里面有4个工作薄
分别是1,2,3,4(1,2,3,4中都只有一个工作表)
我要将1,2,3复制粘贴到4中,格式保留,要依次粘贴,不能将原内容覆盖

代码写到4工作簿中，运行以下代码即得到你要的结果，注意这四个文件在同一个文件夹中即可，可更多文件，自动全部写完。
Sub aa()
    Dim i&, arr, str_Lj As String, str_Bm As String, str_Bm1 As String
    str_Bm1 = ThisWorkbook.Name '当前工作簿名
    str_Lj = ThisWorkbook.Path & "\" '当前簿路径
    str_Bm = Dir(str_Lj & "*.xls") '路径下的工作簿
    Do While str_Bm  ""    ' 开始循环。
        If str_Bm  str_Bm1 Then
            Workbooks.Open str_Lj & str_Bm
            arr = Workbooks(str_Bm).Sheets(1).UsedRange '打开工作簿并把第一个表的数据赋值给数组arr
            Workbooks(str_Bm).Close False '关闭打开的工作簿
            With Sheet1
                i = .Range("A65536").End(xlUp).Row + 1 'sheet1表中A列最后非空单元格下一行号
                .Range("A" & i).Resize(UBound(arr), UBound(arr, 2)) = arr '拷贝打开的工作簿sheet1表中所有数据到合并工作簿sheet1的A列最后非空单元格下一单元格
            End With
        End If
        str_Bm = Dir    ' 查找下一个目录。
    Loop
End Sub

我运行了  的确可以 
如果我要选择呢 
比如 我想只把1,2复制粘贴到4中
或者把2,3复制粘贴到4中
要怎么做

一个问题要解决N个问题？把DO循环都不要了，用输入框或文本框来解决即可，请不要一个问题解决了问一串。OK？