用vb编写一个代码，一个excel中有很多sheet，每个sheet里第三列是日期加时间得格式，在线等急！！！

Question

每个sheet的第三列是日期加时间，我想在整个excel中提取相同所在列，放在一个新的excel中，并且excel表命名为该日期。如图

我想把整个excel中的相同日期所在行提取出来放在新建的excel表中并以日期命名，由于数据比较多，有好几十万个，复制粘贴太麻烦，求大神！！！

Answer 1

Sub dataCopy()
Dim wbSource As Workbook, wbDist As Workbook
Dim shSource As Worksheet, shDist As Worksheet
Dim r As Range
Set wbSource = ActiveWorkbook
Set wbDist = Workbooks.Add
For Each shSource In wbSource.Sheets
    For Each r In shSource.Range("C2:C" & shSource.[C1048576].End(xlUp).Row)
        If r = "" Then Exit For
        On Error Resume Next
        Set shDist = wbDist.Sheets(Format(r, "yyyy-mm-dd"))
        If Err.Number <> 0 Then
            Err.Clear
            Set shDist = wbDist.Sheets.Add
            shDist.Name = Format(r, "yyyy-mm-dd")
        End If
        On Error GoTo 0
        Set shDist = wbDist.Sheets(Format(r, "yyyy-mm-dd"))
        shSource.Rows(r.Row).Copy shDist.Rows(shDist.[C1048576].End(xlUp).Row + 1)
        shDist.Columns.AutoFit
    Next
Next
End Sub

因为不知道你的表的表头情况，所以代码没有考虑表头标题的问题，只是从每张表的第二行开始拷贝数据

附件可参考

追问

大神 这代码我运行时出错了 没法把数据提取出来，可以给你原始数据帮我看看么？

追答

不是大神哈！
能不能把出错信息贴上来？你的C列日期数据难道不是日期型而是文本型的？