在Excel中循环列并将唯一字符串添加到数组

I am trying to write a program in VBA at the moment which is to be run in Excel. I am quite stuck right now because I am not very familiar with VBA and doing a search doesn't come up with my specific problem. I am trying to write a program in VBA at the mo