方法一:
For i = 1 To rng.row
For j=1 to rng.column
cells(i,j).value=??.
Next
counter = 1
For Each cell In rng
Cells(21, counter).Value = cell.Value
counter = counter + 1
Next
To see a world in a grain of sand.
And a heaven in a wild flower
Hold infinity in the palm of your hand.
And eternity in an hour
一花一世界
一沙一天堂
掌中握无限
霎那成永恒