BP130's questions

Problema: Desenvolver um subprocedimento para colar uma matriz de dados em um intervalo de células (sem loop) em uma planilha do MS Excel.

Nota: as funções build_date_array e populate_date_array trabalham juntas para criar e armazenar dados em um array. O subprocedimento paste_array chama essas funções antes de tentar colar dados na planilha "test". O subprocedimento as-is está colando incorretamente o primeiro elemento do array no exemplo codificado abaixo. Veja as duas imagens anexadas.

build timeline data storage array
Function build_date_array(length As Integer) As Variant

' declare array variable
Dim eNumStorage() As String ' initial storage array to take values

' dimension the array
ReDim eNumStorage(1 To length)

' set empty array to variable to pass back to module
build_date_array = eNumStorage

End Function

' Populate a date array
Function populate_date_array(dimed_array As Variant, start As Variant) As Variant

Dim i As Long

' iterate through dimension empty array to populate it with data
For i = LBound(dimed_array) To UBound(dimed_array)
   
    If i = LBound(dimed_array) Then
        ' first element of array needs to be the desired start
        dimed_array(i) = Format(WorksheetFunction.EDate(start, 0), "MM/DD/YYYY")
    Else
        ' kick in function for 2nd element to end of array
        dimed_array(i) = Format(WorksheetFunction.EDate(start, i - 1), "MM/DD/YYYY") ' https://learn.microsoft.com/en-us/office/vba/api/excel.worksheetfunction.edate
    End If
   
Next i

populate_date_array = dimed_array

End Function

Sub paste_array()

Dim wb As Workbook, sh As Worksheet, date_array As Variant, horizon As Integer

Set wb = ActiveWorkbook '  instance of workbook
Set sh = wb.Sheets("test") ' instance of sheet

horizon = 5 ' time increment in months

date_array = build_date_array(horizon) ' build empty array

date_array = populate_date_array(date_array, "10/01/2024")  ' populate array

LastRow = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row + 1 ' get last row

'sh.Range("A2").Resize(UBound(date_array), 1).Value = date_array

sh.Range(sh.Cells(LastRow, 1), sh.Cells(UBound(date_array), 1)).Value = date_array

End Sub

Exibição de tela dividida do código e da saída:

Estou desenvolvendo uma solução python para um desafio de transformação de dados e estou enfrentando um pequeno obstáculo que não consigo entender. Quero mesclar os dois quadros de dados (ou seja, df1 e df2) para criar um novo quadro de dados que tenha inserido df2['value2'] em df1['value1'] enquanto considera o alinhamento de data e 'Tipo'. Alguém já resolveu um problema semelhante? O pandas é a melhor biblioteca para resolver este problema?

Consulte o trecho de código que estou usando em meu notebook Jupyter para testar a solução abaixo.

import pandas as pd 

df1 = pd.DataFrame({ 'Type': ['Labor', 'Material', 'Labor', 'Material' , 'Labor', 'Material', 'Labor', 'Material'],'date1': ['2021-01-01', '2021-01-01', '2021-02-01', '2021-02-01', '2021-03-01', '2021-03-01', '2021-04-01', '2021-04-01'], 'value1': [0,0,0,0,0,0,0,0]})
df2 = pd.DataFrame({ 'Type': ['Labor', 'Material', 'Labor', 'Material'],'date2': ['2021-01- 
11', '2021-02-22', '2021-02-05', '2021-03-15'], 'value2': [10,20,25,45]})

display(df1)
display(df2)

df1['date1'] = pd.to_datetime(df1['date1'])
df2['date2'] = pd.to_datetime(df2['date2'])

df1 = df1.sort_values(['date1', 'Type'])
df2 = df2.sort_values(['date2', 'Type'])

merge_df = pd.merge_asof(df2, df1, left_on= 'date2', right_on= 'date1' , by = 'Type', 
direction = 'nearest')

display(merge_df)

A saída que estou tentando alcançar é visualizada abaixo.