Question

我需要将范围 A1：G200 从一个工作簿复制到当前工作簿（两个工作簿都处于活动状态）但我需要代码只复制符合G列中某个条件的行。列G只有.000到.999之间的值。我需要宏来复制范围 A1：G200 ，但前提是它们在G列中 .250 和 .500 之间。

我已经创建了用于复制和粘贴的宏，这很有用，但问题是我对If语句不太熟悉。谁能帮我吗？以下是我到目前为止的情况：

Sub test()

    Dim masterWb As Workbook
    Dim mySht As Worksheet
    Set mySht = ThisWorkbook.ActiveSheet
    Set masterWb = Workbooks("JME") 
    With masterWb.Worksheets.Add
        .Range("A1:G200").Value = mySht.Range("A1:G200").Value
    End With

End Sub

Answer 1

您可以这样做的一种方法是逐行粘贴值。只需检查列G是否符合条件，如果行符合条件，请粘贴值

A           B
1009972     0039000002FGDkQAAX
10099725647 0039000002FGDkQAAXZZXXCCVVBBN

如果这对您有用，请告诉我。享受！

VBA代码使用If语句复制和粘贴

1 个答案: