如果满足 If 条件，则从行中复制粘贴特定列

Question

当满足 If 条件时，我正在尝试构建一个宏以从行中复制粘贴特定列。 If 条件的一部分已经过测试并且可以正常工作，就像我在另一个宏中使用过的一样。我的问题是我不知道如何在循环中选择行的特定列。我只知道如何选择整行（在这种情况下，如果我没记错的话，它会是 rows(i).EntireRow.Copy）。我在下面提供我的代码。需要编辑的部分是

.Rows(i).Columns(1, 4, 6, 8).Copy
Sheets("WFRandVFR_REPORT").range("W2").Paste

整个代码就是这个

（更新版本）

我也提供截图

Dim lr As Long
Dim rng As range
Dim mDiff1 As Double
mDiff1 = 0.01
With Worksheets("WFRandVFR_REPORT")
    lr = range("L" & Rows.Count).End(xlUp).Row
    For i = 2 To lr
        If Cells(i, "U").Value - Cells(i, "V").Value > mDiff1 Then
            If rng Is Nothing Then
                Set rng = .range("L" & i & ":V" & i)
            Else
                Set rng = Union(rng, .range("L" & i & ":V" & i))
            End If
        End If
    Next i
    rng.Copy
    Sheets("WFRandVFR_REPORT").range("AI2").PasteSpecial
End With

Answer 1

复制你可以使用

Range("A" & i & ", D" & i & ", F" & i & ", H" & i & "").Copy  '(as mentioned in comment)

或

Union(.Range("A" & i), .Range("D" & i), .Range("F" & i), .Range("H" & i)).Copy

---

所以，试试

Union(.Range("A" & i), .Range("D" & i), .Range("F" & i), .Range("H" & i)).Copy
Sheets("WFRandVFR_REPORT").range("W2").PasteSpecial xlPasteValues

或者只是

Union(.Range("A" & i), .Range("D" & i), .Range("F" & i), .Range("H" & i)).Copy
Sheets("WFRandVFR_REPORT").range("W2").PasteSpecial

或

Union(.Range("A" & i), .Range("D" & i), .Range("F" & i), .Range("H" & i)).Copy Sheets("WFRandVFR_REPORT").range("W2")

---

编辑：

如果没有将FOR循环更改为从下到上循环，是否有任何具体原因

For i = 2 To lastrow

您的代码将是

Dim mDiff As Integer
Dim rng As Range
mDiff = 0.03
With Worksheets("WFRandVFR_REPORT")
    lastrow = Range("L" & Rows.Count).End(xlUp).Row
    For i = 2 To lastrow
        If Cells(i, "U").Value - Cells(i, "V").Value > mDiff Then
            If rng Is Nothing Then
                Set rng = .Range("L" & i & ":V" & i)
            Else
                Set rng = Union(rng, .Range("L" & i & ":V" & i))
            End If
        End If
    Next i
    rng.Copy
    Sheets("WFRandVFR_REPORT").Range("AI2").PasteSpecial
End With