嵌套for和if循环在VBA中不起作用

debugcn 发表于 Dev

小发明

有许多类型产品（铜）的价格报告。该报告在第一列中包含产品名称（铜，锌等），在第二列中包含价格，在第三列中包含相应的日期。

我需要在此报告中仅找到铜，然后需要获取特定日期范围内每个日期的价格，然后将此价格粘贴到也有日期的另一个电子表格中，因此在粘贴价格时，应将其粘贴到该日期的正确行。

我只能粘贴一个价格，但这不是正确的日期。我希望屏幕截图有助于理解任务。

 Dim elements As Range, element As Range, dates_pnl As Range, x As Range
 Set elements = Workbooks("Metals_2019_11_21.csv").Worksheets("Metals_2019_11_21").Range("A2:A10")
 Set wb1 = ThisWorkbook
 Set ws1 = wb1.Worksheets("Prices")
 Set dates_pnl = ws1.Range("A771:A779")

 For Each element In elements
     If element.Value = "Copper" Then
         For Each x In dates_pnl
             If element.Offset(0, 1) = x Then
                 element.Offset(0, 2).Copy
                 ws1.Range("B772").PasteSpecial Paste:=xlPasteValues
             End If
         Next x
     End If
 Next element

ZygD

您的复制方式不是最有效的方式，但是可以完成工作。这是一个很好的起点。

Dim elements As Range, element As Range, dates_pnl As Range, x As Range
Set elements = Workbooks("Metals_2019_11_21.csv").Worksheets("Metals_2019_11_21").Range("A2:A10")
Set wb1 = ThisWorkbook
Set ws1 = wb1.Worksheets("Prices")
Set dates_pnl = ws1.Range("A771:A779")

For Each element In elements
    If element.Value = "Copper" Then
        For Each x In dates_pnl
            If element.Offset(0, 1) = x Then
                x.Offset(0, 1).Value = element.Offset(0, 2).Value
            End If
        Next 'x
    End If
Next 'element

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。