VBA：单元格相对于select的偏移量

我比较两列，并将比较范围的相同部分向右拉。

现在我想要的是相同的部分，比较的数据右边的单元格6列中的内容也被提取出来，以备匹配。

这是某种双重相关的抵消。

换句话说，我希望比较范围右边的单元格6行可以偏移另外8个单元格。

代码如下所示：

Dim CompareRange, x , y As Variant ActiveSheet.Columns("A:A").SpecialCells(xlCellTypeConstants, 23).Select Set CompareRange = Worksheets("pumps").Range("B4:B67") Dim SelDate As Date For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 13) = x _ And Range(x).Offset(0, 6).Select = SelDate _ And Date1.Offset(0, 8) = SelDate Next y Next x 

这部分似乎并不正确：

  And Range(x).Offset(0, 6).Select = SelDate _ And Date1.Offset(0, 8) = SelDate