0

在这个公式中：

With Intersect(wsDAO.UsedRange, wsDAO.Columns("R"))
            .AutoFilter 1, "<>Same"
            With Intersect(.Offset(2).EntireRow, .Parent.Range("B:O"))
                .Copy wsDAR.Cells(Rows.Count, "B").End(xlUp).Offset(1)
                .EntireRow.Delete
            End With
            .AutoFilter
        End With

它允许我从 R 列中的 wsDAO 中获取单元格，除了单词“Same”之外的任何其他单词都会将副本放到另一个页面 'wsDAR' 并删除原始页面。

我想做什么，我不知道从哪里开始，但我在想的是使用脚本的这一部分：

lastrow = wsDAO.Range("A" & Rows.Count).End(xlUp).Row

With Intersect(.Offset(2).EntireRow, .Parent.Range("B"))
     .Copy wsDAO.Cells(Rows.Count, "B").End(xlUp).Offset(1)
End With

并在上面公式中有一个单元格的地方使用它，并将其复制到最后一行包含数据。

我只是不知道从哪里开始，我想如果我从另一个单元格复制数据但那将不起作用，因为“.Copy”会覆盖任何保存的内容。

有人可以帮我弄这个吗？我知道我距离解决我的问题还有几行，但我似乎无法解决这个问题。

任何帮助将不胜感激。

4

1 回答 1

0

从您的示例文件中，您希望将 I1 中的公式复制到 I 列中的任何空单元格中。以下代码行应执行此操作：

lastrow = wsDAO.Cells(Rows.Count, "I").End(xlUp).Row

wsDAO.Range("I1:I" & lastrow).SpecialCells(xlCellTypeBlanks).FormulaR1C1 _
    = wsDAO.Cells(1, "I").FormulaR1C1
于 2012-09-24T17:17:43.537 回答