VBA将按年初至今复制范围

Sub CopyRangeFromYearStart()
    Dim rngSource As Range
    Dim rngDestination As Range
    Dim startDate As Date
    Dim currentDate As Date
    
    ' 获取年初日期
    startDate = DateSerial(Year(Date), 1, 1)
    
    ' 获取当前日期
    currentDate = Date
    
    ' 定义要复制的范围
    Set rngSource = Range("A1:B10")
    
    ' 定义目标位置
    Set rngDestination = Range("C1")
    
    ' 判断当前日期是否在年初之后
    If currentDate >= startDate Then
        ' 计算要复制的行数
        Dim copyRows As Integer
        copyRows = DateDiff("d", startDate, currentDate) + 1
        
        ' 复制范围
        rngSource.Resize(copyRows).Copy rngDestination
    End If
End Sub