如果你的那个colletter变量代表的是敬销核一个列号字母。
如果是用VBA,则对range的select 操作是无意义的,斗蔽不用选择直接操作就选择亮掘单行整行
range("1:1")
单列,range("A:A")
遍历range中的每个一单元格
dim Rng as Range
dim tRng as range
set tng=range("A:A")
for each tRng in Rng
debug.print tRng
next
set rng=nohing
set trng=nothing