Re: [算表] Excel 時間排序問題(VBA)

看板Office作者windknife18 (windknife18)時間14年前 (2012/06/27 00:53)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串1/1

看看以下的VBA試不試合囉, VBA 使用方法請參考以前文章 Option Explicit Sub marco1() Dim i As Integer Dim value As String Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In Worksheets With ws For i = 2 To 1440 value = .Cells(i, 1).value If value = "" Then .Cells(i, 1).value = TimeSerial(0, 0, i - 1) .Cells(i, 2) = .Cells(i - 1, 2) ElseIf TimeSerial(Hour(value), Minute(value), Second(value)) _ <> TimeSerial(0, 0, i - 1) Then .Rows(i & ":" & i).Insert Shift:=xlDown .Cells(i, 1).value = TimeSerial(0, 0, i - 1) .Cells(i, 2) = .Cells(i - 1, 2) End If Next i End With Next Application.ScreenUpdating = True MsgBox ("完成！") End Sub ※ 引述《superfeats (奕師奕友)》之銘言： : 軟體:excel : 版本:2007 : 我手上有筆資料為excel檔 : 總共有12個分頁每個分頁代表不同點的量測數據 : 每頁格式都一樣都是時間日期數值這樣三欄 : 時間為按照每分鐘排序,如下 : 12:00:00 AM 06/11/2012 xxxx : 12:01:00 AM 06/11/2012 oooo : 每天應該有1440個數據 : 可是其中有些不規則缺漏時間的點 : 幾乎都為缺一分鐘的也有少數缺超過一分鐘的 : 我現在想做的是 : 把這些數據整理為每分鐘都有 : 缺漏時間的位置需要新增一列 : 此列第一欄列出缺漏的時間第二欄為該時間相對應的日期(幾乎都是與上下相同) : 第三欄以後空白 : 之前數據少土法煉拉一欄按順序的時間列並且手動對照缺漏來增加列 : 可是現在每頁14天等於有約兩萬筆的數據 : 又有12頁數據等於近24萬筆要整理又有急迫性要盡快完成 : 想請問各位excel高手有沒有快速的做法 : 感覺應該有函數或是vba 可以快速的做到這樣的需求 : 可惜我都不會 : 還請各位高手指導,謝謝大家!! -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 122.116.146.144