-1

以下のコードを使用して、シート内のすべての数式に対して何かを行います。条件を追加して、一致するセルに対して同じことを行うことはできますか?

数式 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
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 に答える