|
如果只是要删除颜色,把下面这类代码分成两行写:
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 列,这别人就搞不懂了;
不仅仅是这一个问题,你要求的“每三列之间空出一列”也没有实现;
|
|