粘貼復制的VBA代碼

Question

我需要有關VBA代碼邏輯語句的幫助，我有一個worksheet1，其中c19是開始日期，d19是結束日期。 還有另一個工作表，其f列包含一系列日期。 我需要從f列中選取大於等於開始日期且小於等於結束日期的日期，然后將日期復制粘貼到worksheet1中，說范圍c25

Answer 1

盡管我將輸入范圍保持為F1到F12，而不是整個F列，但這應該可以工作

Sub copy_paste()

Dim cell As Range, paste_loc As Range

Set paste_loc = Range("C25") 'Output paste location

For Each cell In Range("F1:F12")    'Input range

    If cell.Value > Range("C19").Value And cell.Value < Range("C19").Value Then
        paste_loc = cell.Value
        Set paste_loc = paste_loc.Offset(1, 0)
    End If

Next cell


End Sub