Sub Macro1() Dim a, b, c As Range Set a = Workbooks("Book1").Sheets(1).Range("B1") Set b = Workbooks("Book2").Sheets(1).Range("B1") Set c = Workbooks("Book3").Sheets(1).Range("B1") c = WorksheetFunction.Sum(a, -b) End Sub
کامنت