vba删除空值的单元格，上移数据

vba删除空值的单元格，上移数据Sub aa()Dim arrAs VariantDim iAs IntegerDim jAs IntegerDim rngAs RangeDim tempAs Var