用于复制粘贴的 Vba 代码

【问题标题】：Vba code for copy paste用于复制粘贴的 Vba 代码
【发布时间】：2018-02-20 04:44:42
【问题描述】：

我需要有关 vba 代码逻辑语句的帮助我有一个 worksheet1，其中 c19 是开始日期，d19 是结束日期。还有另一张表，其 f 列包含一系列日期。我需要从 f 列中提取大于等于开始日期且小于等于结束日期的日期，然后将日期复制粘贴到 worksheet1 中，例如范围 c25

【问题讨论】：

欢迎来到 Stack Overflow！请阅读How to Ask 页面并更新您的问题。

标签： excel vba

【解决方案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

【讨论】：

谢谢托马斯，但我觉得我没有很好地解释我的需要已经发布了另一个问题。请帮助