根据条件将特定列中的单元格复制到下一个可用行的另一列中答案

【问题标题】：Copy cells from a certain column based on a criteria into another Column from the next available row根据条件将特定列中的单元格复制到下一个可用行的另一列中
【发布时间】：2017-06-22 08:20:58
【问题描述】：

我有两个工作表，“签名”和“四月”。我想根据某些条件将“已签名”中的“Y”列复制到“A”列，从下一个可用/空白行开始。（就在现有数据之下）。

我对 Y 列的标准是，如果列 L =“April”中的单元格“D2”的月份和“ApriL”中的单元格“D2”的年份...（所以现在 D2 是 2017 年 4 月 30 日).. 然后将该单元格复制到“April”的 Col A 的下一行并继续添加。

我的代码如下：

Dim sourceSht As Worksheet
Dim myrange As Range
Dim DestRow As Integer
Dim ws2 As Worksheet
Dim MonthVal As String

Range("D3").Select
ActiveCell.FormulaR1C1 = "=MONTH(R[-1]C)"
Range("D3").Select
Selection.NumberFormat = "General"
MonthVal = ActiveCell.Value

Set sourceSht = ThisWorkbook.Worksheets("Signed")
Set myrange = sourceSht.Range("Y1", Range("Y" & Rows.Count).End(xlUp))
Set ws2 = Sheets("April")
DestRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1

For Each rw In myrange.Rows
  If rw.Cells(12).Value = MonthVal Then
    myrange.Value.Copy Destinations:=Sheets(ws2).Range("A" & DestRow)
  End If  
Next rw

【问题讨论】：

什么是rw？和 Cells(12).Value？所以它是一个固定值？像 Cells([Lines],[Rows]) 是第 12 行吗？或者你想要“L”行？

标签： vba excel

【解决方案1】：

试试这个：

Dim sourceSht As Worksheet
Dim myrange As Range
Dim DestRow As Integer
Dim ws2 As Worksheet
Dim MonthVal As String
Dim rw As Range

Range("D3").Select
ActiveCell.FormulaR1C1 = "=MONTH(R[-1]C)"
Range("D3").Select
Selection.NumberFormat = "General"
MonthVal = ActiveCell.Value

Set sourceSht = ThisWorkbook.Worksheets("Signed")
Set myrange = sourceSht.Range("Y1:Y" & sourceSht.UsedRange.Row - 1 + sourceSht.UsedRange.Rows.Count)
Set ws2 = Sheets("April")
DestRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row ' + 1

For Each rw In myrange '.Rows
    If sourceSht.Cells(rw.Row, 12).Value = MonthVal Then
        DestRow = DestRow + 1
        rw.Copy Destination:=Sheets("April").Range("A" & DestRow)
    End If
Next rw

编辑：修复第 15 行的潜在漏洞（从Set myrange = sourceSht.Range("Y1:y" & sourceSht.UsedRange.Rows.Count) 到Set myrange = sourceSht.Range("Y1:Y" & sourceSht.UsedRange.Row - 1 + sourceSht.UsedRange.Rows.Count)），以防顶部有未使用的行。

【讨论】：