|
첨부한 엑셀을 참고 해주세요..
1. 2018.3.5일의 00:00~23:59 분단위 데이터 입니다..
2. 저장시간 셀의 갯수는 1424개 입니다..(1분 1440분) 타임랙 문제로 보입니다..
3. 데이터 분석을 위해서 해당 데이터를 1440분으로 만들고 싶습니다..
4. 저장시간 A열을 1440분으로 만들어 없는 분을 빈칸으로 생성하고 싶습니다.. 태블로란 프로그램으로 했던 샘플 사진을 같이 첨부해드립니다..(엑셀 2번째 시트)
엑셀관련 서적을 참고해보고 있는데 어렵네요..
잘 부탁드리겠습니다..
==============[황지현님 글에 대한 답변입니다]==============
첨부화일 참고하세요...
Sub createTimeSerial()
Dim sh As Worksheet
Dim lRow As Long
Dim iYear As Integer, iMonth As Integer, iDay As Integer
Dim iHour As Integer, iMinute As Integer
Dim iH As Integer, iM As Integer
Set sh = ActiveSheet
With sh.Range("A2")
iYear = Year(.Value)
iMonth = Month(.Value)
iDay = Day(.Value)
End With
lRow = 2
For iHour = 0 To 23
For iMinute = 0 To 59
If Hour(TimeValue(sh.Cells(lRow, 1))) = iHour And Minute(TimeValue(sh.Cells(lRow, 1))) = iMinute Then
Else
sh.Cells(lRow, 1).EntireRow.Insert
sh.Cells(lRow, 1).Value = Format(DateSerial(iYear, iMonth, iDay) + TimeValue(iHour & ":" & iMinute), "yyyy""/""mm""/""dd hh:mm:ss")
End If
lRow = lRow + 1
Next
Next
End Sub
|
|