根据条件替代复制和粘贴值

Question

我试图找出一种有效的替代方法，用于根据条件复制和粘贴val。 例如，如果b列包含成本，我希望第二个选项卡包含b列中没有成本的所有数据。

当前我有sheets（“ sh2”）。range（“ a1：k50000”）。value = sheets（“ sh1”）。range（“ a1：k50000”）。value

然后删除填充了费用的sh2中的所有行（使用for选择循环）。 但是，对于大型数据集，删除1000行可能是一个漫长的过程。

Answer 1

您可以在复制之前使用Excel的内置筛选功能删除空白。 它看起来像这样：

sheets("sh1").range("a1:k50000").Select
Selection.AutoFilter
sheets("sh1").Range("$a$1:$k$50000").AutoFilter Field:=2, Criteria1:="="
sheets("sh1").Range("$a$1:$k$50000").Copy
sheets("sh2").Range("$a$1").PasteSpecial

Criteria1：=“ =”是空格的表达式。 “字段：= 2”是第2 / B列，用于检查空白。 这里的关键是复制命令仅包括过滤的单元格，因此您将仅粘贴过滤的数据。

另外，如果Range（“ $ a $ 1：$ k $ 50000”）中没有标题行，则可能需要添加一个以获得可靠的结果。