Excel里如何实现单个工作表拆分为多个工作表

Quilla

请各位大神帮帮忙，因为数据太多，如果慢慢整合的话会很费劲，所以，我写了这个帖子，并建立了几个表作为例子，想请各位编码大神解决下这个问题，非常非常感谢~
要求具体如下：


我有一张数据工作簿“Sheet 1.xlxs”，里面含有“日期”还有“A”跟“B”三列内容，但是在名称为“Data”的工作表中含有三天的数据

首先我想实现的功能是 如何按照也就是“第一列”的日期分为三张以“m.d”的形式命名的工作表，结果为“Sheet 2.xlxs”
但是 第一列 的形式 均是 yyyy/m/d h:mm:ss 的格式，如2014/12/21 0:01:49，变为新的工作表的时候 表名的形式是“m.d”

第二：根据“Sheet 2.xlxs”，我想实现的功能如下：
假如我对表格里非“Data”的每列数据每六个求一个平均值得到一个均值，如何将这个均值的格式改为有“两个小数点”，这个求均值再改小数点如何用VBA实现，结果应为“Sheet 3.xlxs”表现出来的一样

另外，如果我每列有100个数，但是呢并不是像上面要求的每六个数求以平均值，而是随机的选择数据取平均，比如第2~4个数取一个平均，第5~11个取一平均，第12~13个取一个平均，……，依次类推，总共进行24次取平均的过程24次过后，这100个数据都已经被用过，且数据不再进行重复计算，这个功能要怎么实现呢？同样的，小数位数为两位

第三：根据“Sheet 3.xlxs”，我想实现的功能如下：
将刚刚求得的平均值进行提取然后汇总到新的工作表或工作簿里，因为求平均的过程是带有公式的，所以以公式的形式粘贴到新工作表里的话，数值会进行改变，所以这个要求是“只提取数值 然后进行粘贴，且小数点位数仍然为两位”，结果应为“Sheet 4.xlxs”中所示的一样。


如果可能的话“Sheet 4.xlxs”中的两个工作表中的数据再进行转置粘贴，粘贴的目的地仍为原工作表。


Sheet 1-4.rar (44.85 KB, 下载次数: 56)

2014-12-24 16:33 上传

点击文件名下载附件

LangQueS

题外话

关于使用Excel管理数据的基本方法请参考：
  
★Excel数据管理的一般规律★    http://club.excelhome.net/thread-287461-1-1.html

chenbiao2012

Sub test()
On Error Resume Next
Set d = CreateObject("scripting.dictionary")
With Sheets("Data")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    arr = .Range("a2:a" & r)
    For i = 1 To UBound(arr)
        d(Month(arr(i, 1)) & "." & Day(arr(i, 1))) = ""
    Next
    For Each a In d.keys
        Set sh = Sheets.Add(, Sheets(Sheets.Count))
        
        n = n + 1
        sh.Name = a
        .Rows(1).Copy sh.[a1]
        sh.[e1] = "avg-A"
        sh.[f1] = "avg-B"
        .Range("a" & 2 + 24 * (n - 1)).Resize(24, 3).Copy sh.[a2]
        For i = 1 To 24
            lja = lja + sh.Cells(i + 1, "b")
            ljb = ljb + sh.Cells(i + 1, "c")
            If i Mod 6 = 0 Then
                m = m + 1
                sh.Cells(m + 1, "e") = WorksheetFunction.Round(lja / 6, 2)
                sh.Cells(m + 1, "f") = WorksheetFunction.Round(ljb / 6, 2)
                lj = 0
               
            End If
            
        Next
        m = 0
    Next
End With
End Sub

chenbiao2012

看的人都晕了

office小白鼠

我今天研究了一下午，没有任何收获。表格还是没拆分成功··发了个帖，希望大神暂时用代码解决目前问题。明天继续研究代码

opiona

参考69楼：http://club.excelhome.net/thread-1409141-1-1.html