Question

怎样将指定文件中的一个工作表复制粘贴到当开工作簿的当前工作表末尾？

现有一打开ExceL文件，当前工作表为“总计划”，想把D盘另一文件名“新增计划”中的“补充计划”工作表，去掉标题行复制粘贴到总计划表的末尾。(两表“标题行相同”)。请求大师帮忙！

Answer 1

这个需要用到VBA。
Sub test()
Dim wb As Workbook
Dim brow, zrow As Integer
brow = wb.Sheets("补充计划").Range("a1000").End(xlUp).Row
zrow = ThisWorkbook.Sheets("总计划").Range("a1000").End(xlUp).Row

Set wb = Workbooks.Open("d:\新增计划")
Application.DisplayAlerts = False
wb.Sheets("试用").Range("2:" & brow).Copy ThisWorkbook.Sheets("总计划").Range("a" & zrow + 1)
wb.Close
Application.DisplayAlerts = True
End Sub

追问

谢谢！
试了一下，有错

Brow = wb.Sheets("补充计划").Range("a1000").End(xlUp).Row
运行时错识91

Answer 2

Sub 打开文件()
Dim wkb As Workbook
Set wkb = Workbooks.Open("D:\新增计划.xlsx") '
Sheets("补充计划").Range("A2:Z1000").Copy Cells(Range("a66536").End(xlUp).Row + 1, "a")
wkb.Close False
End Sub

追问

谢大师，短小精悍，可实现我的理想。
Sheets("补充计划").Range("A2:Z1000").Copy Cells(Range("a66536").End(xlUp).Row + 1, "a")
不太懂，请大师讲一下这句？

Range("A2:Z1000")，列范围选择A—z，能否换成选择A2以下有数据的行。，

追答

把 补充计划这个sheetA2:Z1000这个区域的数据复制到
本表A列最后1行
Cells(Range("a66536").End(xlUp).Row

判断A列最后1行有数据的行数，然后+1
就开始粘贴

追问

行 = ActiveSheet.UsedRange.Rows.Count '有效列(包含空值）（到空值停止）
列 = ActiveSheet.UsedRange.Columns.Count '有效列(包含空值）（到空值停止）

Sheets("补充计划").range(Cells(2, 1), Cells(行, 列)).Copy Cells(range("a66536").End(xlUp).Row + 1, "a")
这么改了一下，不再受z1000约束。

追答

假设以补充计划的A列为标准，非空的最后1行,10列，列数假设10列，多了是空白也没关系
y=Sheets("补充计划").[A65536].END(XLUP).ROW
Sheets("补充计划").range(Cells(2, 1), Cells(Y, 10)).Copy Cells(range("a66536").End(xlUp).Row + 1, "a")
或
ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.UsedRange).Copy Cells(range("a66536").End(xlUp).Row + 1, "a")

ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.UsedRange).COPY Cells(range("a66536").End(xlUp).Row + 1, "a")

追问

用cells(1,1)或(2,1)都把标题行也复制过来啦!

我上面，行和列哪种改法，在WPS表中完美，在ExCeL中报错。还有待研究?

补充计划后面空白行也复制过来啦

Answer 3

2个文件都打开
然后再复制粘贴不就行了吗
最好截图上来看看