Question

我有一段代码是从工作簿中的首页调用的，并引用了工作簿中的两张表。我知道当我在“数据”选项卡上时，此代码可以执行所需的操作。但是，当我从“控制菜单”选项卡运行它时，不会填充它。我可以看到失败的原因，因为当我查看该行时：

If Range("B" & i + 1).Offset(0, -1).Value = 1 And Range("B" & i + 1).Value = "UK" Then

我将光标悬停在.Value命令上，并且框显示'Empty'，因此即使我使用With Sheets（“ Data”）启动代码，我也知道此代码正在查看“ Control Menu”标签。命令。

基本上，在“数据”选项卡上，我要拉取几百行数据，我试图遍历表，将ReportID = 1且“国家/地区” = UK的数据复制出来，然后将其移至另一个标签有图表链接。

完整代码如下：

With Sheets("Data")

    RowCount = .Cells(.Rows.Count, "B").End(xlUp).Row

    For i = 1 To RowCount

     Range("B1").Offset(1, 0).Select

    If Range("B" & i + 1).Offset(0, -1).Value = 1 And Range("B" & i + 1).Value = "UK" Then

        ActiveSheet.Cells.Range(Selection, Selection.End(xlToRight)).Select
        Selection.Copy
        With Sheets("DynamicCharts")
            .Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End With

    End If

Next i

End With

任何帮助将不胜感激。

预先感谢

其他工作表中的VBA IF命令

0 个答案: