Critera Range忽略了当前区域

Question

提取和移动数据时，标准的第一列正在运行，但第二列标准没有吸引人。如果他们已售出该商品，它将返回所有商店的运动。

列标题列表。

1. R2 =左Len，

2. S2 =商店

3. A2 =左Len，

4. B2 = UPC，
5. C2 =商店，
6. D2 =运动

该文件总共缺少900k行数据。

我认为这是当前地区的一个问题。

如果该商店没有移动，也需要返回零。这将在右侧重复39次以获得每个位置的结果。

最终目标是找到需要解决的零移动器。所以upc的行需要与标准保持一致。

非常感谢任何帮助。 使用Windows 7， Office 2016

Sub Find_Fill_Data()

Range("u2:x" & Range("x" & Rows.Count).End(xlUp).Row).ClearContents

Range("a2:D" & Range("D" & Rows.Count).End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, criteriarange:=Range("r2").CurrentRegion, copytorange:=Range("u2"), unique:=False


Range("q4").Select

End Sub

**Left Len  Item                             5  7   8     9**
1070002152  MILK DUDS THEATER BOX           123 254 181 196
1070002385  WHOPPERS MALT BALLS             19  0   28  42
1070002440  WHOPPERS MALT BALLS             92  188 79  133
1070002660  WHOPPERS MALT BALLS             22  21  11  22
1070006080  CANDY BAR                       575 463 446 303
1070006611  WHOPPER ROBIN EGGS              22  28  25  0
1070008807  CANDY                           132 57  59  0
1070008813  THEATER BOX                     331 127 101 171
1070013272  J/RANCHER CRNCH CHEW ASST       61  0   0   0
1070050180  WHOPPERS MALT BALLS CARTN       119 24  99  99