10 min interval data to 5 min

[NovaKZM]

Hi there, I have excel files with 10 min interval data rows, now I wanna conversion it to 5 min data, time 5 min, other columns copy.
Did anyone do the same thing?
Is there any idea to help me pls?
Ive seen some body do it with macron excel but my files are huge, cannot do and record what Im doing in a macro.
Could you pls help?

 

[offthelip]

welcome to the forum, I assume you want to interpolate between the 10 min values by using the average of the 10 min values. You haven't said which columns you want interpolating but hopefully this code will help you on your way: It doeas all the column and assumes they are all numeric

Sub test()
Dim outarr()
With Worksheets("Sheet1")
lastcol = .Cells(1, .Columns.Count).End(xlToLeft).Column
lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
inarr = .Range(.Cells(1, 1), .Cells(lastrow, lastcol))
ReDim outarr(1 To lastrow * 2, 1 To lastcol)
For i = 2 To lastrow - 1
  For j = 1 To lastcol
   outarr((i - 1) * 2, j) = inarr(i, j)
   outarr(1 + (i - 1) * 2, j) = (inarr(i, j) + inarr(i + 1, j)) / 2
  Next j
Next i
  For j = 1 To lastcol
   outarr(lastrow * 2 - 2, j) = inarr(lastrow, j)
  Next j
End With
Worksheets.Add
Range(Cells(1, 1), Cells(lastrow * 2, lastcol)) = outarr

 
End Sub

 

[NovaKZM]

welcome to the forum, I assume you want to interpolate between the 10 min values by using the average of the 10 min values. You haven't said which columns you want interpolating but hopefully this code will help you on your way: It doeas all the column and assumes they are all numeric

Sub test()
Dim outarr()
With Worksheets("Sheet1")
lastcol = .Cells(1, .Columns.Count).End(xlToLeft).Column
lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
inarr = .Range(.Cells(1, 1), .Cells(lastrow, lastcol))
ReDim outarr(1 To lastrow * 2, 1 To lastcol)
For i = 2 To lastrow - 1
  For j = 1 To lastcol
   outarr((i - 1) * 2, j) = inarr(i, j)
   outarr(1 + (i - 1) * 2, j) = (inarr(i, j) + inarr(i + 1, j)) / 2
  Next j
Next i
  For j = 1 To lastcol
   outarr(lastrow * 2 - 2, j) = inarr(lastrow, j)
  Next j
End With
Worksheets.Add
Range(Cells(1, 1), Cells(lastrow * 2, lastcol)) = outarr

 
End Sub

Thanks for that, I will check and let you know mate. Yes first column date/ time and other are numberic.