Question

我目前正在开发一个AddIn，当更改单元符合certaing标准时，我需要更改一些单元格值。我遇到的问题是我失去了复制单元格并多次粘贴它的能力。我正在尝试获取当前复制的单元格，以便在更改所需单元格上的值后再次复制。

无论如何我可以获得当前复制的单元格/范围吗？

Answer 1

我会创建一个与此类似的子程序：

Sub Foo(rngRange as Range, rngOutputRange as Range)

    Dim varVariant as Variant
    Dim lngCounter as Long

    varVariant = rngRange  'Assuming rngRange is one column here

    For lngCounter=lBound(varVariant,1) to uBound(varVariant,1)
        If varVariant(lngCounter)=TRUE 'or whatever your criteria are
            'Do whatever you need here
        End If
    Next lngCounter

    rngOutPutRange=varVariant

End Sub

Excel编程。获取当前复制的单元格

1 个答案: