Question

我们正在使用Excel文件来跟踪药物治疗。

一旦药物治疗结束，我会在K栏写下“是”（可能会将其改为以后的某个日期）。我已经为每个月准备了一张表（命名为：01 - 12），我希望它能自动将列K中没有条目的行复制到下一个电子表格中。范围是3A:K22。（第1行和第2行都有不应修改的数据。我希望我已经详细描述了它，以便您理解。如果不是，我很乐意澄清任何误解。

Answer 1

如果我理解正确，你想要复制列K中的单元格为空的每一行？

Dim rCell As Range, rng As Range, NextRow As Long
Set rng = Workbook.Sheets("SheetName").Range("K3:K22")

'loop through each K cell
For Each rCell In rng
    If IsEmpty(rCell) Then
        'copy that row
        Range("A" & rCell.Row & "K" & rCell.Row).Copy
        'if desired here can be code to check the date to see which sheet to insert into
        NextRow = Workbook.Sheets("MonthSheet").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
        Workbook.Sheets("MonthSheet").Range("A" & NextRow & "K" & NextRow).Paste
    End If
Next rCell

这将检查K列中的每个单元格以查看它是否为空，如果是，它会将其复制到月份表中的下一个空白行

如果单元格为空，如何复制行？

1 个答案: