Question

我有这个代码可以调整广告资源中的金额。我唯一不能做的就是把它引用到床单上。

Sub TESTEST()
For Each cl In Columns(8).SpecialCells(2).Offset(1).SpecialCells(2)

所以顶部位于sheet2

Columns(3).Find(cl.Value).Offset(, 1) = Columns(3).Find(cl.Value).Offset(, 1) - cl.Offset(, 1)
Next cl

底部位于sheet3

因此，简而言之，我的库存清单在sheet3中，而产品收据在表2中。每次购买都会改变库存中的金额

希望你们能帮忙。

Answer 1

您可能需要在底部提供有关如何分配的更多详细信息，还要添加测试以确保有一些要复制的单元格。也就是说，可能是这样的：

Sub TESTEST()
    With ThisWorkbook.Worksheets("Sheet2")

        For Each cl In .Columns(8).SpecialCells(2).Offset(1).SpecialCells(2)
          ThisWorkbook.Worksheets("Sheet3").Columns(3).Find(cl.Value).Offset(, 1) = .Columns(3).Find(cl.Value).Offset(, 1) - cl.Offset(, 1)
        Next cl

    End With
End Sub

引用工作表而不是宏中的活动工作表（在mac上）

1 个答案: