如何设置一个等于单元格地址的变量？答案

【问题标题】：How to set a variable equal to a cell address?如何设置一个等于单元格地址的变量？
【发布时间】：2015-06-25 03:18:57
【问题描述】：

我必须在 B 列（变量 coluna_amostras）中找到下一个空单元格，保存其地址（使用变量 inserir）并使用它来粘贴新的行数据。但是，我不知道如何将地址存储在 inserir 变量中。正如它所定义的那样，excel 返回“运行时错误 91 - 对象变量或未设置块变量”。有人可以帮助我吗？谢谢！！

    Sub CopiarOriginais()


    Dim Certeza As VbMsgBoxResult
    Dim sample As String
    Dim coluna_amostras As Range
    Dim inserir As Range


        ActiveSheet.Name = Range("Y1").Value
        sample = Range("Y1").Value

    Certeza = MsgBox("Você tem certeza de que os dados originais já não foram copiado? Utilizar novamente essa função, após o teste 2-sigma ter sido aplicado, comprometerá os seus dados originais.", vbYesNo)

        If Certeza = vbNo Then End

        Sheets("Results").Activate
        Range("B2").End(xlDown).Offset(1, 0).Select
        inserir = ActiveCell

  Sheets(sample).Activate

        Range("B3:D122").Copy
        Range("B132").PasteSpecial xlPasteValues
        Application.CutCopyMode = False


        Worksheets(sample).Range("ratio143144").Copy

            Worksheets("Results").Activate
            Range("D" & inserir.Row).Select
            ActiveSheet.PasteSpecial Link:=True

【问题讨论】：

标签： excel vba

【解决方案1】：

inserir = ActiveCell 与inserir.Value = ActiveCell.Value 相同，因为inserir 是Nothing 而失败。

如果要save a reference to an object，必须使用Set：

Set inserir = ActiveCell

【讨论】：

【解决方案2】：

你需要设置值

Set inserir = ActiveCell

【讨论】：