按列拆分工作簿

jzheyifan · 发表于 2018-3-20 23:18

本帖最后由 jzheyifan 于 2018-3-21 11:53 编辑

将A、B列作为表头，将B列以后的列拆分并输出为单独的excel文件，拆分出的文件名称为本列中的“项目概况表+建设地区+工程名称+专业”，sheet名称为“项目概况表”，
需求：
1、既可以批量全部导出，又可以指定导出一列或者几列；
2、输出单元格的格式，与原单元格一致

朱荣兴 · 发表于 2018-3-21 11:39

提示: 作者被禁止或删除内容自动屏蔽

jzheyifan · 发表于 2018-3-21 11:54

朱荣兴发表于 2018-3-21 11:39
拆分问题研究了好多，但看不懂你的说明文字。

将A、B列作为表头，拆分列，放入不同的文件，文件名根据本列的单元格内容取，sheet名称固定

6688 · 发表于 2018-3-21 15:06

Sub kb()
Set cprng = Sheet1.Range("A:B")
x = Range("iv2").End(xlToLeft).Column
For i = 3 To x
cprng.Copy
Sheets.Add
act = Cells(4, i) & Cells(5, i) & Cells(6, i) & Cells(7, i)
ActiveSheet.Name = act
Sheets(act).Range("A1").Activate
ActiveSheet.Paste
Sheet1.Columns(i).Copy
Sheets(act).Range("C1").Activate
ActiveSheet.Paste

Next i

End Sub

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-3-21 11:39 来自手机 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 按列拆分工作簿