a b c d e f g h i 如何变为:a b c d e f i 以上每个字母占用一个单元格

a b c d e f g h i 如何变为:a b c d e f i 以上每个字母占用一个单元格
a b c d e f g h i 如何变为:a b c d e f i 以上每个字母占用一个单元格

a b c d e f g h i 如何变为:a b c d e f i 以上每个字母占用一个单元格
用VBA：
先选中字母单元格
sub test()
s=6
For Each cl In Selection
cells(s,1).value = cl.Value
s=s+1
Next
End Sub
s是你要转换到的起始行的行号.