求导出表格时可以勾选需要的列的代码

武松打鼓 · 发表于 2020-7-30 06:33

本帖最后由武松打鼓于 2020-7-30 15:10 编辑

有一个工资表有很多列数据，只想导出生成含自己需要的列的新工作簿，方便查看，代码怎么写。

导出选择框.zip (12.83 KB, 下载次数: 32)

liulang0808 · 发表于 2020-7-30 07:32

楼主可以录制一段宏，选择需要的列，然后复制到新工作簿内，再保存

3190496160 · 发表于 2020-7-30 08:39

Excel 灵活拆分工具-ExcelVBA程序开发-ExcelHome技术论坛 - http://club.excelhome.net/thread-1520853-1-1.html
可以看看这个帖子，也许适合你的

武松打鼓 · 发表于 2020-7-30 11:09

要求，弹出选择列的对话框

caffish · 发表于 2020-7-30 11:22

武松打鼓发表于 2020-7-30 11:09
要求，弹出选择列的对话框

添加一个触发多选的控件不就行了

武松打鼓 · 发表于 2020-7-30 20:41

希望得到热心朋友的帮助哦

武松打鼓 · 发表于 2020-8-1 22:06

liulang0808 发表于 2020-7-30 07:32
楼主可以录制一段宏，选择需要的列，然后复制到新工作簿内，再保存

我是想到时候可以根据自己的需要选择某几列数据。另存为新表哦

醉清心 · 发表于 2020-8-2 01:26

好好学习天天向上

liulang0808 · 发表于 2020-8-2 08:24

Sub 导出()
Set Rng = Application.InputBox("请选择区域", "选择", , , , , , 8)
Sheets.Add after:=Sheets(1)
Rng.Copy Sheets(2).[a1]
End Sub

简单模拟供参考

aman1516 · 发表于 2020-8-4 21:45

武松打鼓发表于 2020-8-1 22:06
我是想到时候可以根据自己的需要选择某几列数据。另存为新表哦

		自动登录	找回密码
密码			免费注册

[求助] 求导出表格时可以勾选需要的列的代码