excel - 根据条件循环和复制范围

Question

我已经处理了以下代码，它根据 I 列中的标准复制 1 个单元格。我知道如何为 -6 列设置偏移量，当我需要单元格 Offset(0,-6) 和 Offset(0,- 5) 同时作为一个范围而不是偏移量。你能帮忙吗？就是这一行:Range("I" & i).Offset(0, -6).Copy我需要来自 col C 和 D 的一系列单元格，而不是简单地偏移(这给了​​我一个单元格)。

Sub xxx()

Dim WB As Workbook
Dim ZXC As Worksheet
Dim INF As Long, RSP As Long
Set WB = Workbooks("test.xlsm")
Set ZXC = WB.Sheets("MMLPLC")
Set VBN = WB.Sheets("VBN")
ZXC.Activate
INF = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To INF
If Range("I" & i).Value = "Further Information Needed" Then
    Range("I" & i).Offset(0, -6).Copy
    VBN.Range("C" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If
Next i
VBN.Activate
Application.CutCopyMode = False
End Sub

Answer 1

您可以使用 Resize方法，确实很有用

Range("I" & i).Offset(0, -6).resize(,2).copy