Sas日期格式-yymmn6。在excel中无法识别。什么是最简单的出路?

时间:2017-06-15 19:21:24

标签: excel sas

我想在SAS中自动执行一系列计算,以便最终在Excel中执行图表。在此过程中,我将日期作为列名称。所以根据我使用这种格式的日期对它们进行排序 - yymmn6。格式得到例如201604年,月,以便我可以按日期排序(dd总是01)。并添加了前缀C _。

     C_201406   C_201407    C_201408    C_201409    C_201410 ....
MAX     8      5.681818    4.291845    3.755725     2.281169 ....
…

我按此顺序安排一切。我准备好了所有计算。当我在Excel中粘贴数据时,我删除了前缀C_。日期无法正确识别。例如-201406被认为是6/5/2451。 对于我的图表,我想以这种格式在Jun-14中使用它。 我不确定是否很容易在excel中进行更改或在SAS中进行更改并在订单中进行安排。我想知道如何做到这一点,最终以日期为Jun-14(mmm-YY)的格式实现?

1 个答案:

答案 0 :(得分:0)

这是两个修复程序。第一个循环通过每个单元格,随着它修复它们;第二个修复第一个单元格并将其用于一系列填充。

enter image description here

Sub wqewhgwq()
    Dim yymmm6 As Range
    With Worksheets("sheet5")
        With .Range(.Cells(1, "B"), .Cells(1, "B").End(xlToRight))
            For Each yymmm6 In .Cells
                yymmm6 = DateSerial(Mid(yymmm6.Value2, 3, 4), Right(yymmm6.Value2, 2), 1)
            Next yymmm6
            .NumberFormat = "mmm-yy"
        End With
    End With
End Sub

Sub fgsaewrt()
    With Worksheets("sheet5")
        With .Range(.Cells(1, "B"), .Cells(1, "B").End(xlToRight))
            .Cells(1) = DateSerial(Mid(.Cells(1).Value2, 3, 4), Right(.Cells(1).Value2, 2), 1)
            .NumberFormat = "mmm-yy"
            .DataSeries Rowcol:=xlRows, Type:=xlChronological, Date:=xlMonth, Step:=1
        End With
    End With
End Sub

enter image description here