在一个范围内遍历每个单元格。

I've got a basic understanding of how VBA works. I was hoping someone could help shorten this. You will see quickly that the code is massive and would love it if I could get it optimized for my project.I've got a basic understanding of how VBA works