Filling Series with non-sequential cell references

[Prevost]

Hi There. I have data that is taken once every 15 minutes, starting on the hour. I want to turn that into 1 minute interval data using just those 4 values. So for example, if temperature X is taken at 1:00 PM, then 1:01 PM = X, 1:02 PM = X and so on until 1:15 PM when a new temperature is recorded. How can I make that happen? I tried creating a new column and the first 15 cells referenced A1, then the next 15 cells referenced A2 and then tried to fill that series but it didn't work. Does anyone know how I can do this?
Thanks!

 

[ParamRay]

.
.

Supposing your 15-minute temperatures are in column A, then you can run the following macro, as needed, to replicate the temperatures into 1-minute intervals in column B:

Sub CopyTemperatures()

    Dim rngTemperature As Range
    Dim lngCounter As Long
    
    lngCounter = 1
    For Each rngTemperature In Intersect(Columns("A"), ActiveSheet.UsedRange)
        Cells(lngCounter, "B").Resize(15, 1).Value = rngTemperature.Value
        lngCounter = 15 + lngCounter
    Next rngTemperature

End Sub

 

[ParamRay]

.
.

Or, if you want to reference the cells using a formula, try this instead:

Sub CopyTemperatures()

    Dim rngTemperature As Range
    Dim lngCounter As Long
    
    lngCounter = 1
    For Each rngTemperature In Intersect(Columns("A"), ActiveSheet.UsedRange)
        Cells(lngCounter, "B").Resize(15, 1).Formula = "=" & rngTemperature.Address
        lngCounter = 15 + lngCounter
    Next rngTemperature
    
End Sub