나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 dew (dewdrop)

추천:  2
파일:     2018-03-5_Ans.xls (515KB) 조회:  1258
제목:   [RE]엑셀 2016 X분의 데이터를 1440분로 정리
     
  첨부한 엑셀을 참고 해주세요..

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
 
[불량 게시물 신고]  
        
  

작성일 : 2019-01-21(14:48)
최종수정일 : 2019-01-21(14:48)
 


 ◎ 관련글

  제 목   작성자   날짜
엑셀 2016 X분의 데이터를 1440분로 정리 황지현 2019-01-17
[RE]엑셀 2016 X분의 데이터를 1440분로 정리 dew 2019-01-21