Question

我现在为表格中的所有公式做一些事情，代码如下。我可以添加条件，以便对匹配

的单元格执行相同的操作

公式AND（在K OR列中是在第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

Answer 1

试试这个

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

为每个作为公式的单元格以及列K或行50执行某些操作？

1 个答案: