无法使用数据切割单元并移动到不同的表VBA

Question

我正在尝试创建一个宏的麻烦。

我想查看一个单元格中是否有特定的月份，如果是，则从该单元格行切换到另一个单元格的范围。

这是我到目前为止的代码：

id

此代码执行时没有任何错误，但没有任何反应。我在这里缺少什么？

一旦我使这段代码工作，我实际上的目的是检查B的值，但是切A：E。

我每个月都会检查一下，不过我在本例中只使用了11月来使代码工作，因为我正在测试的数据集具有11月的值。

Answer 1

您的For循环次序有点混淆，需要在With .Cells(n, "B")之外。你可以完全摆脱With .Cells(n, "B")。

请参阅以下代码部分：

For n = nLastRow To nFirstRow Step -1
    CellMonth = Format(.Cells(n, "B").Value, "mmmm")
    If CellMonth = "November" Then
        .Cells(n, "B").Cut Worksheets("November").Cells(i, "T")
        i = i + 1
    End If
Next n