我必须在 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