基於條件的循環和復制范圍

Question

我已經處理了以下代碼，它根據第一列中的條件復制 1 個單元格。我知道如何為 -6 列設置偏移量，當我需要單元格 Offset(0,-6) 和 Offset(0,- 5) 同時作為一個范圍而不是偏移量。 你能幫忙嗎？ 這是這一行： Range("I" & i).Offset(0, -6).Copy where I need a range of cells from col C and D 而不是簡單的 offset （這給了我一個單元格）。

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