我想在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)的格式实现?
答案 0 :(得分:0)
这是两个修复程序。第一个循环通过每个单元格,随着它修复它们;第二个修复第一个单元格并将其用于一系列填充。
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