-1

我现在使用下面的代码为工作表中的所有公式做一些事情。我可以添加条件以便我对匹配的单元格执行相同的操作吗

公式 AND(在 K 列中或在第 55 行中)?

    For Each ran In srcWbk.Sheets("BSC").Cells.SpecialCells(xlCellTypeFormulas)
        trgtWbk.Sheets("BSC").Range(ran.Address).Formula = srcWbk.Sheets("BSC").Range(ran.Address).Formula
    Next ran
4

1 回答 1

0

尝试这个

With srcWbk.Sheets("BSC")
    For Each ran In Union(.Rows(55), .Columns("K")).SpecialCells(xlCellTypeFormulas)
        trgtWbk.Sheets("BSC").Range(ran.Address).Formula = ran.Formula
    Next ran
End With
于 2013-08-27T11:31:32.950 回答