粘贴复制的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