如何用代码实现将选区标题及选区内容存入新工作簿中？

作者：绿色风分类：时间：2022-08-17 浏览：92

楼主
kevinchengcw

Q: 如何用代码实现将选区标题及选区内容存入新工作簿中？
A: 利用如下VBA代码可以将当前工作簿中的选定区域对应的标题行（本例为第一行）及选定区域内容组合成新表存入新建工作簿中，代码如下：

Sub test()
Dim Wb As Workbook '定义一个工作簿变量
Application.SheetsInNewWorkbook = 1 '设置新建立的工作簿中的工作表数为1
Set Wb = Workbooks.Add '将新建的工作簿赋值给工作簿变量
Application.SheetsInNewWorkbook = 3 '恢复新建工作簿中工作表数为默认的3个
With ThisWorkbook.ActiveSheet '在当前工作簿的活动工作表中进行相关操作
.Activate '为免出错，先激活
Wb.Worksheets(1).Cells(1, 1).Resize(1, Selection.Columns.Count) = .Cells(1, Selection.Column).Resize(1, Selection.Columns.Count).Value '将新建工作簿的第一行的内容赋值为当前工作簿选定区域对应的第一行（即标题行）的内容
Wb.Worksheets(1).Cells(2, 1).Resize(Selection.Rows.Count, Selection.Columns.Count) = Selection.Value '将新建工作簿的第二行开始的与选定区域大小一致的区域赋值为选定区域的数值
Wb.Worksheets(1).UsedRange.EntireColumn.AutoFit '新建工作簿当前工作表的已使用区域的列宽自适应
End With
Wb.SaveAs ThisWorkbook.Path & "\" & Wb.Worksheets(1).Name & ".xls" '新建工作簿以当前工作表名命名后保存到当前工作簿所在路径处
Wb.Close '关闭新建工作簿
End Sub

附示例文件，选定区域后运行test宏即可。

106.rar

2楼
xmyjk

学习了，K哥V5

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表