Excel VBA Diagonal Sorting -


click view image

good day! image attached contains sorting want data. vba code this?

the code use is:

for b = 1 30     if < 2         cells(b, a).value = 1         = + 1     else         cells(b, a).value = 1         = 1     end if next b 

it can sort 2 rows before resets. how expand 1 in image? thanks!

like this:

for b = 1 30    = 1 3     if = 1         cells(b, a).value = 1                 elseif = 2         cells(b, a).value = 1      else          cells(b, a).value = 1                 end if    next next b 

Comments

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

vue.js - Create hooks for automated testing -

Add new key value to json node in java -