如果是用VBA,则对range的select 操作是无意义的不用选择,直接操作就行选择单行整行 range("1:1")单列,range("A:A")遍历range中的每个一单元格dim Rng as Rangedim tRng as rangeset tng=range("A:A")for each tRng in Rng debug.print tRngnextset rng=nohingset trng=nothing