2

列 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
4

2 に答える 2

7

inserir = ActiveCellは と同じですがinserir.Value = ActiveCell.Value、 が であるため失敗しinserirますNothing。

オブジェクトへの参照を保存する場合は、次を使用する必要がありますSet。

Set inserir = ActiveCell
于 2013-10-07T20:33:30.540 に答える
3

値を設定する必要があります

Set inserir = ActiveCell
于 2013-10-07T20:33:21.277 に答える