vba 如何判定列数