用VBA创建一个新的excel文件在当前目录并复制当前表中指定行到新的excel文件中的指定位置！
发布网友
发布时间：2022-04-26 09:31
共1个回答
热心网友
时间：2023-10-09 06:13
关键是你没有说复制哪些行到哪些位置，下面的代码复制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
