如何用VBA隔行填色 同时粘贴数据进去

xiangbaoan

tx = Application.WorksheetFunction.CountA(Sheets("sheet7").Columns("C:C"))
Set rng = Sheets("sheet7").Range("c4:c" & tx)
'上面是我改的，先不管结果是否达到预期，你的
Worksheetsfunction'多了一个s
.[c4:c&"tx"],这个嘛，你自己看区别
我给了你一段新的代码，已通过消息发给了你，你仅供参考。

梦远方

xiangbaoan 发表于 2018-8-15 18:20
tx = Application.WorksheetFunction.CountA(Sheets("sheet7").Columns("C:C"))
Set rng = Sheets("sheet7 ...

赞！！我是论坛新人，鲜花数量不多 ，但是有的都送给你哈！！

梦远方

xiangbaoan 发表于 2018-8-15 18:20
tx = Application.WorksheetFunction.CountA(Sheets("sheet7").Columns("C:C"))
Set rng = Sheets("sheet7 ...

好像只能送两朵~

梦远方

朱荣兴 发表于 2018-8-15 07:29
看了半天附件，说明文字看不懂，模拟结果更看不懂，

版主，请帮忙看下我今天发的求助贴么？~我的等级不还不能发短消息，只能在帖子回复里求助您了！是关于新建工作表的贴，不胜感激！！