Excel 将变量设置为范围

我试图使用变量存储范围，但我得到的方法范围全局失败，或者它们保持为空。有人能帮我吗？这两个变量是Ultimamostra e Cabecarios

Sub MediaBCOGJbrutos()

    Dim Amostra As String 'Variável com o endereço da amostra
    Dim n As Long 'Variável que controlará a linha onde se encontra o endereço da amostra a ser aberta


    Dim EnderecoAmostras As Range 'Intervalo da planilha com o endereço dos arquivos de cada amostra
    Dim UltimaAmostra As Range 'Célula correspondente à ultima amostra
    Dim CabecarioIsotopos As Range 'Intervalo dentro de cada planilha .dynamic.exp onde se encontram os cabeçários da colunas

    Workbooks("Recuperar (simplificada)").Sheets("DadosProcessados").Activate

            n = 2

           Set EnderecoAmostras = Range("B2", "B" & Range("B2").End(xlDown).Row)


1    With EnderecoAmostras 'O número 1 à esquerda é uma referência para a macro seja executada a partir daqui sob certas condições
        For n = 2 To .Rows.Count
            Amostra = Cells(n, 2)
            Workbooks.Open Filename:=Amostra
        n = n + 1

        Set CabecarioIsotopos = Range("A15:U15")

---

您在哪一行得到错误？为了找到最后一行，看看你是否遵循这两个链接，那么你的问题就会得到解决。