Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2910|回复: 6

老师们看看怎么修代码能满足下面的要求

[复制链接]
发表于 2021-4-22 20:37 | 显示全部楼层 |阅读模式
本帖最后由 sanpiao 于 2021-4-22 20:45 编辑

数据输出到R到AF列,删除代码中复制字体颜色部分

求助将行数据等5的组合在一起.rar

25.11 KB, 下载次数: 2

发表于 2021-4-22 20:56 | 显示全部楼层
您好,看不懂需求,要不要再說明詳細一點!
回复

使用道具 举报

 楼主| 发表于 2021-4-22 21:03 | 显示全部楼层
cutecpu 发表于 2021-4-22 20:56
您好,看不懂需求,要不要再說明詳細一點!

老师您看一下
22222.png

求助将行数据等5的组合在一起.rar

25.31 KB, 下载次数: 7

回复

使用道具 举报

发表于 2021-4-22 22:33 | 显示全部楼层

還是看不懂需求,要等其他先進了
回复

使用道具 举报

 楼主| 发表于 2021-4-22 22:35 | 显示全部楼层
cutecpu 发表于 2021-4-22 22:33
還是看不懂需求,要等其他先進了

谢谢啦!

评分

参与人数 1学分 +2 收起 理由
cutecpu + 2 不客氣。祝順心,南無阿彌陀佛!

查看全部评分

回复

使用道具 举报

发表于 2021-4-23 14:17 | 显示全部楼层
如果只是要删除颜色,把下面这类代码分成两行写:
   Cells(j + 1, 4).Resize(1, 3).Copy Cells(r, 34)

改成:
   Cells(j + 1, 4).Resize(1, 3).Copy
   Cells(r, 34).PasteSpecial Paste:=xlPasteValues        '值粘贴,不含格式

后面还有3行也要这么改;

但你的问题还要求输出到 R 到 AF 列,R列是第18列,而上面代码则是输出到了 cells(r,34),第 34 列是 AH 列,这别人就搞不懂了;
不仅仅是这一个问题,你要求的“每三列之间空出一列”也没有实现;
回复

使用道具 举报

 楼主| 发表于 2021-4-23 16:18 | 显示全部楼层
hfwufanhf2006 发表于 2021-4-23 14:17
如果只是要删除颜色,把下面这类代码分成两行写:
   Cells(j + 1, 4).Resize(1, 3).Copy Cells(r, 34)

...

谢谢老师
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 20:34 , Processed in 0.583073 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表