如何提取一系列excel表中的特定单元格内容

hhfhyh

单位给了四五个excel表，每个表有20~30个不等的sheet，每个sheet的C6单元格是我想要的。   怎么样能让这一百多个C6单元格内容排列在一个新的单元格内的一列。请高手相助

hasyh2008

Sub 汇总()
    Dim i%, x%
    For i = 1 To Sheets.Count
        If Sheets(i).Name = "汇总" Then
            MsgBox "汇总表已存在"
            Sheets("汇总").Move after:=Sheets(Sheets.Count)
            For x = 1 To Sheets.Count - 1
                Sheets("汇总").Cells(x, 1) = Sheets(x).Cells(6, 3)
            Next x
            Exit Sub
            End If
    Next i
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "汇总"

    For x = 1 To Sheets.Count - 1
        Sheets("汇总").Cells(x, 1) = Sheets(x).Cells(6, 3)
    Next x
End Sub

hasyh2008

附件！！！！！！！

hasyh2008

hasyh2008 发表于 2018-7-16 07:36
Sub 汇总()
    Dim i%, x%
    For i = 1 To Sheets.Count

这个只能在一个工作簿中汇总。