Question

用VBA创建一个新的excel文件在当前目录并复制当前表中指定行到新的excel文件中的指定位置！

用VBA创建一个新的excel文件在当前目录并复制当前表中指定行到新的excel文件中的指定位置！用VBA创建一个新的excel文件在当前目录并复制当前表中指定行到新的excel文件中的指定位置！

Answer 1

关键是你没有说复制哪些行到哪些位置，下面的代码复制A1到B1，请自行适当修改：

sub 宏1()
    dim st as worksheet, wb as workbook
    set st=activesheet '当前表
    set wb=workbooks.add
    st.range("a1").copy wb.sheets(1).range("b1") '复制内容
    wb.saveas thisworkbook.path & "\" & "123.xlsx"
end sub

追问

请问复制一个区域，怎么表示？

追答

我的语句就是复制区域，我猜不到你复制什么区域，无法帮你写语句。

追问

st.range("a1").copy wb.sheets(1).range("b1")

这不是复制的a1单元格吗？假如我要复制a1:b5这区域呢

追答

我这个语句怎么了？A1就是一个区域，我猜不到你要复制什么，随便举的一个例，如果你需要复制A1:D5，替换就是了，依样画葫芦。
提问多打几个字好不好

追问

黄色那句有哪里错了

追答

语句是对的，如果报错了，请拷屏报错信息。

追问

追答

一般情况下，这类错误的原因是工作表没显示，估计是你的系统混乱了，因为你默认的Range就是当前表，你可以看看当前表的A1是不是出了什么问题。