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, 06:52 PM
leeqiang leeqiang is offline Windows 10 Office 2019
Advanced Beginner
  
Join Date: Aug 2020
Posts: 53
leeqiang is on a distinguished road
Default
Quote:
Originally Posted by Purfleet View Post
Run it and you will see that in a15 to j15 each column is now a sum of 1:14 as we have not put the $ the ranges are not locked so the columns are relative



The same for the rows



if you want to sum the corner you can just do range(k15) = Sum(a1:j14)





HTML Code:
Sub sumthe()Columns("k:k").ClearContentsRows("15:15").ClearContentsRange("a15:j15") = "=sum(a1:a14)"Range("k1:k14") = "=Sum(a1:j1)"Range("k15") = "=Sum(a1:j14)"End Sub

thx
Reply With Quote