求助一个代码，如何把符合条件的列集中在一起

三等菜鸟

求助一个代码，如何把符合条件的列集中在一起

lsc900707

没看懂你的逻辑，什么5行，6行的。

xiangbaoan

去掉了条件格式，用代码实现，仅供参考……

三等菜鸟

谢谢xiangbaoan，谢谢论坛。代码很好，能完全满足我的要求，可以大大减轻眼力寻找了。
再次感谢！

xiangbaoan

客气了！这个论坛很好，能让人进步！
sub flowers()
a=问题
q=答案
if q like "比较合适" then
点击 右下方 评分
输入或 选择 鲜花朵数
确定
else
不理会答题人
end if
end sub

三等菜鸟

@xiangbaoan   在移植使用时，出了个问题。因为一大串数字是通过计算获得的，执行代码后，出现的全是错了位的计算值。该如何只复制符合条件的数字呢？
谢谢

xiangbaoan

三等菜鸟 发表于 2018-8-1 14:11
@xiangbaoan   在移植使用时，出了个问题。因为一大串数字是通过计算获得的，执行代码后，出现的全是错了位 ...

上新的附件，并说明要求及问题所在

三等菜鸟

好的，我上传。
我想就这句要改：Cells(5, cr(c)).Resize(6).Copy [m18].Offset(0, c)，不知对不对？

三等菜鸟

上传不了了，不知咋回事？ upload error 521
xiangbaoan：你好，还想麻烦你给个指点.附件上不了，估计被什么拦住了。
现在以上一个附件为准，如果把Q6、Q7用任意公式写一下
用了代码后，提取的不是原来的21 18，而是各加了13 行/列的公式，与自己的要求不同。我改了一下是这样的：

我想问题是不是在这一句： Cells(t - 4, cr(c)).Resize(6).Copy Cells(t + 13, 104).Offset(0, c)？如何加.value
即 附件中的   Cells(5, cr(c)).Resize(6).Copy [m18].Offset(0, c)

谢谢

xiangbaoan

Cells(t - 4, cr(c)).Resize(6).Copy
with  Cells(t + 13, 104).Offset(0, c)
    .pastespecial 13 '也就是 xlPasteAllUsingSourceTheme'源格式
    .pastespecial -4163 '也就是xlPasteValues'粘贴值
end with
'我猜你是不是这个意思，若不是，请发附件。