如何将不同日期的数据对齐

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有2009-2014年日度数据，变量有3个a,b,c。
  1.    但是如何将这几年的日度数据对齐呢，比如2009-1-1的三个变量与2010-1-1、2011-1-1、2012-1-1、2013-1-1、2014-1-1对齐呢？
  2.   以变量如何将这几年的数据在在一个表内画出折线图呢（比如对变量a，将2009--2014的数据在一个图中表示。）
谢谢！！！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：日度数据 折线图 如何

excel里面插入折线图，就可以，我做过

先回答第一个对齐的问题：
1.你把不同年份的数据复制到不同的sheet数据表里；例如，我把14年留在sheet1，13年放在sheet2给你举个例子。
2.在F2单元格输入以下公式并拖动：=LOOKUP(1,0/(TEXT($A2,"mm/dd")=TEXT(Sheet2!$A$2:Sheet2!$A$251,"mm/dd")),Sheet2!A$2:A$251)
3.一次把其它年份也这么做。日期那一列如果是数字，更改单元格格式为日期。
例子见附件 Book1.xls (66.5 KB)

2014-4-15 13:29:06 上传

第二个问题，你去百度搜索一下“excel  多个折线图”自己研究一下吧  很容易

客初 发表于 2014-4-15 13:29
先回答第一个对齐的问题：
1.你把不同年份的数据复制到不同的sheet数据表里；例如，我把14年留在sheet1，1 ...

非常感谢！！！

echoflyecho 发表于 2014-4-15 11:11
excel里面插入折线图，就可以，我做过

主要是横轴的时间不一样（比如2月29日不是每年都有），有些年份的日期有数据，而另外年份的数据缺失之类的。不过现在已近解决了，数据对齐后就直接可以画折线图了。谢谢关注！！！

客初 发表于 2014-4-15 13:55
第二个问题，你去百度搜索一下“excel  多个折线图”自己研究一下吧  很容易

第一个问题解决了，第二个就比较简单了，谢谢！！！

Sub Macro1()
    Dim MyPath$, MyName$, arr, sh As Worksheet, d As Object, i&
    Set d = CreateObject("scripting.dictionary")
    MyPath = ThisWorkbook.Path & "\"
    MyName = Dir(MyPath & "*.xls")
    Application.ScreenUpdating = False
    Do While MyName <> ""
        If MyName <> ThisWorkbook.Name Then
            With Workbooks.Open(MyPath & MyName)
                With .Sheets(1)
                    arr = .Range(.[a1], .[IV1].End(1))
                End With
                For i = 2 To UBound(arr, 2)
                    d(arr(1, i)) = i
                Next
                For Each sh In .Sheets
                    If sh.Name <> .Sheets(1).Name Then
                        With sh
                            With .Range("A1").CurrentRegion
                                arr = .Value
                                .Offset(0, 1).ClearContents
                            End With
                            For i = 2 To UBound(arr, 2)
                                .Cells(1, d(arr(1, i))).Resize(UBound(arr)) = WorksheetFunction.Index(arr, 0, i)
                            Next
                        End With
                    End If
                Next
                .Close True
            End With
            d.RemoveAll
        End If
        MyName = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "完毕"
End Sub