首页 > 解决方案 > 仅将过滤结果复制到同一工作表但不同的列

问题描述

我做了一个过滤,它不是空白的,然后将结果复制到同一张表中的列,但是,当我粘贴结果时,如果不遵循行号,附加 jped 和编码以供参考。

以防万一,如果粘贴列的值为空白,我想保留它的值,我可以使用 for 循环来做到这一点,但它太慢了,因为我有 200k 行,我需要做 20 列。

.Range("$A$7:$" & colbcMatch & "$" & bcFinalrow).AutoFilter Field:=colnbcsd, Criteria1:="<>"
.Range(colbcSD & "7:" & colbcSD & bcFinalrow).SpecialCells(xlCellTypeVisible).Copy
.Range("DY7").PasteSpecial xlPasteValues

请注意,它只是部分代码,并且所有变量都已明确定义。

在此处输入图像描述

标签: excelvbafiltering

解决方案


推荐阅读