2013-08-27 14 views
-1

我現在在下面的代碼中爲表格中的所有公式做些事情。我可以添加條件,以便對匹配的單元格執行相同的操作:爲每一個屬於公式並列K或第50行的單元格做些什麼?

公式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 

回答

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 
相關問題