Question

我编写了一个宏来过滤，复制并将过滤后的标准粘贴到不同的工作簿中。我无法弄清楚如何取消选择工作簿中粘贴的范围。我试过＆＃34; .range（＆＃34; A1＆＃34;）。选择＆＃34; ，＆＃34; application.cutcopymode = false＆＃34;。我不知道还有什么可以尝试。我的代码也是如此 - 任何见解都会有所帮助

test = [(0, 33), (3, 26), (4, 95), (0, 28), (1, 12), (2, 3), (4, 69)]
unique_keys = set([pair[0] for pair in test]) #{0, 1, 2, 3, 4}
grouped_by_key = [[el[1] for el in test if el[0] == key] for key in unique_keys] # [[33, 28], [12], [3], [26], [95, 69]]
grouped_by_key = filter(lambda x: len(x) > 1,grouped_by_key) # [[33, 28], [95, 69]]

add = lambda x, y : x+y
mul = lambda x, y : x*y
# Alternatively:
# from operator import add, mul

out = reduce(add, map(lambda x: reduce(mul, x), grouped_by_key))  #7479

由于合规性问题，我无法透露我正在过滤的名称

谢谢！

编辑：**表示我尝试插入的地方.application.cutcopymode = false

Answer 1

好的，我现在看到你正在尝试做什么。它与目的地中的选择有关，而与CutCopyMode无关。尝试

Application.Goto workbooks(arrbooks(i).name).sheets(1).Range("A1")

OTOH，CutCopyMode删除了源的“虚线”选择，因此您无法再次手动粘贴它。

Answer 2

看到这个，Unselect column after pasting data我最终选择“A1”以便从选择区域移除merquri

Excel VBA - 使用变量粘贴代码后取消选择范围

2 个答案: