Thread: [Solved] How to optimize the data summation code for each row and column in a data rectangle area?
View Single Post
 
Old 10-04-2020, 02:33 AM
Purfleet Purfleet is offline Windows 10 Office 2019
Expert
  
Join Date: Jun 2020
Location: Essex
Posts: 345
Purfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to behold
Default
As long as the rows and columns are static, you just need to do a sum formula in the range without the fixed references

Sub sumtheall()

Columns("k:k").ClearContents
Rows("15:15").ClearContents

Range("a15:j15") = "=sum(a1:a14)"
Range("k1:k14") = "=Sum(a1:j1)"

End Sub
Last edited by Purfleet; 10-04-2020 at 02:36 AM. Reason: typo
Reply With Quote