補間用にExcelの列に不足している時間を追加する方法

Question

Excelのスプレッドシートに時間と温度の2つの列のデータがあります。そう、私はそれらのブランクスポットに補間を行うことができます（

2017-10-17 14:18:15  
2017-10-17 14:18:17  
2017-10-17 14:18:18  
2017-10-17 14:18:19  
2017-10-17 14:18:21  
2017-10-17 14:18:22 

が、Excelが対応する空白行とそれらの行方不明の時間に追加することは可能です：時間の欄には、そのようないくつかの秒がスキップされている場合、次のような値を持っています？）

Answer 1

私はあなたのデータがどのように見えるかわからないが、これはあなたがVBAを使用したくない場合は、あなたが何ができるかです。

cell B2からこの式を使用し、下にドラッグ：

=IF(B1="","",IF(N(B1),IF(ROW(A2)-ROW($A$1)-1<SECOND(MAX($A$2:$A$7)-MIN($A$2:$A$7))+1,B1+TIME(0,0,1),""),A2)) 

これはありませんが、あなたに基づいて、この部分を変更することができますどのように多くの秒の最大と最小の間で、その後、参照として行を使用します（決定することですデータ構造）。試してみてください。

Answer 2

お試しください！それはあなたがピボットテーブルを使用している場合、あなたはおそらく秒でグループが存在しない日付を取得することができ、セルA1

Sub AddRows() 

'Finds out what row to go up to 
Dim lRow As Long 
lRow = Cells(Rows.Count, 1).End(xlUp).Row 

For i = 2 To lRow + 1 

'If the difference between the cell below is more than a second, then add a 
row above and skip the next i 
If Cells(i + 1, 1) - Cells(i, 1) > 0.000011575 Then 
    Cells(i + 1, 1).Select 
    Selection.EntireRow.Select 
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    lRow = lRow + 1 
    Cells(i + 1, 1).Select 
    Cells(i + 1, 1).Value = Cells(i, 1).Value + 0.000011575 
    i = i + 1 

Else 

End If 

Next i 

End Sub