Como recupero todos os valores de um intervalo 3D e insiro na planilha atual?

Question

Eu tenho uma série de planilhas com o nome 1.. 50 . Eu quero os valores do intervalo 3D '1:50'!A10 inserido em um intervalo na planilha atual, RawData . Como faço isso?

    

Answer 1

Você pode usar offset para conseguir isso. Na coluna A de RawData , insira uma lista de 1 a 50. Na coluna B , você pode usar a seguinte fórmula: =Offset(char(39) & $A1 & char(39) & "!A10") . Copiar essa coluna para baixo B fornecerá o resultado em% deA10 da célula de cada folha de 1 a 50.

Solução alternativa de VBA se as folhas não forem sequenciais:

Sub getA10()
    Dim sht As Worksheet
    Dim writeRow As Integer

    writeRow = 1

    'iterate through all the sheets in the workbook
    For Each sht In ThisWorkbook.Worksheets

        'Don't capture A10 of RawData
        If sht.Name <> "RawData" Then

            'Write in Column A the sheet name, and in column B the Value in A10
            Sheets("RawData").Cells(writeRow, 1).Value = sht.Name
            Sheets("RawData").Cells(writeRow, 2).Value = sht.Range("A10").Value

            'increment the row
            writeRow = writeRow + 1
        End If
    Next sht
End Sub