使用VBA擴展日期範圍和相關數據

Question

我有大量的數據需要處理才能進行數據分析。 目前，數據爲，我的目標是使用VBA生成。

任何想法？

Answer 1

試試這個。應該爲你的例子...

Sub Dates() 

Dim LastRow As Long 
Dim RowIns As Integer 

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 

For i = 2 To LastRow 

Cont: 

    If Cells(i, 1).Value = "" Then 

     GoTo Cont2 

    End If 

    RowIns = Cells(i, 4).Value - Cells(i, 3).Value 

    If RowIns <= 0 Then 

     i = i + 1 

     GoTo Cont 

    End If 

    Rows(i + 1 & ":" & RowIns + i).Insert Shift:=xlDown 

    Range("C" & i).Select 
    Selection.AutoFill Destination:=Range("C" & i & ":C" & RowIns + i), Type:=xlFillDefault 

    Range("A" & i & ":B" & i).Select 
    Selection.AutoFill Destination:=Range("A" & i & ":B" & RowIns + i), Type:=xlFillCopy 

    LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 

    i = i + RowIns + 1 

    GoTo Cont 

Next 

Cont2: 

Columns(4).EntireColumn.Delete 

End Sub