没有合适的资源?快使用搜索试试~ 我知道了~
首页从有规律的多个sheets表里提取数据到一个新sheet里.docx
资源详情
资源推荐
![](https://csdnimg.cn/release/download_crawler_static/12150590/bg1.jpg)
原始数据
想得到
Sub geogethor()
Dim i%, jj%
Dim row%, col% '新表的坐标
row = 1
col = 2
For i = 1 To 9
jj = 1
Sheets(10).Cells(row, 1) = Sheets(i).Name
Dim prow%, pcol% '旧表的坐标
prow = 3 '坐标起点
pcol = 6
Do While 1
'新表里的操作-赋值 右移
If Sheets(i).Cells(prow, pcol) <> "" And prow <> 5 And prow <> 8 And prow <> 11 Then
Sheets(10).Cells(row, col) = Sheets(i).Cells(prow, pcol)
col = col + 1
End If
'旧表 下移一个
prow = prow + 1
If prow = 14 Then
prow = 3
pcol = pcol + 1
End If
'跳出循环
If jj = 55 Then
Exit Do
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://profile-avatar.csdnimg.cn/ef176ebf74a34f56b211e4a6a95e5f93_shortail1.jpg!1)
shortail1
- 粉丝: 5
- 资源: 6
上传资源 快速赚钱
我的内容管理 收起
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
我的下载
下载帮助
![](https://csdnimg.cn/release/wenkucmsfe/public/img/voice.245cc511.png)
会员权益专享
最新资源
- 基于联盟链的农药溯源系统论文.doc
- 基于Python的猫狗宠物展示系统.doc
- 基于Spring Boot的房产中介系统.doc
- 1.12 项目实战-商城官网实现(二).pdf
- 3.项目范围管理.pdf
- 8.项目风险与采购管理.pdf
- 4.项目进度管理.pdf
- 6.项目质量管理.pdf
- 1.项目管理 基础.pdf
- 5.项目成本与资源管理.pdf
- 7.项目相关方与沟通管理.pdf
- 2.项目整合管理.pdf
- 数据挖掘过程在R环境下的应用.pdf
- TCPIP协议.docx
- 福瑞达:聚焦发展大健康产业,看好化妆品板块成长逐步加速.pdf
- 汇成股份:中国大陆DDIC封测领军企业,国产替代浪潮提供长期业绩增长动能.pdf
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
![](https://img-home.csdnimg.cn/images/20220527035711.png)
![](https://img-home.csdnimg.cn/images/20220527035711.png)
![](https://img-home.csdnimg.cn/images/20220527035111.png)
安全验证
文档复制为VIP权益,开通VIP直接复制
![](https://csdnimg.cn/release/wenkucmsfe/public/img/green-success.6a4acb44.png)