用VBA:
Sub mymove()
Cells(1, 1).End(xlDown).Select
r = ActiveCell.Row
c = 2
While Cells(1, c) ""
p = 1 '每列从第一行开始,如果是从第二行开始,则改成 p = 2
While Cells(p, c) ""
r = r + 1
Cells(r, 1) = Cells(p, c)
Cells(p, c) = ""
p = p + 1
Wend
c = c + 1
Wend
End Su
用VBA:
Sub mymove()
Cells(1, 1).End(xlDown).Select
r = ActiveCell.Row
c = 2
While Cells(1, c) ""
p = 1 '每列从第一行开始,如果是从第二行开始,则改成 p = 2
While Cells(p, c) ""
r = r + 1
Cells(r, 1) = Cells(p, c)
Cells(p, c) = ""
p = p + 1
Wend
c = c + 1
Wend
End Su
最新问答: 卵细胞是人体最大的细胞,与精子相比它没有---和----,但有较多的-- 冰雹是怎样形成的 (2012•松北区一模)如图所示.借助该装置,小文用150N的力将重为600N的摩托车拉高2米.此过程小文做功_____ 1-己烯如何发生麦氏重排 英语翻译Aman who witness the accident said that the car was goin steal的过去式和过去分词是什么? that 引导的定语从句是不是只能修饰that前面的那个词? 描写神态的词语 两个字的 x/4+2等于x,x=多少.y/5等于y-3,Y=多少 关于due to的用法.看下面这个句子对否:I guess that's due to his talent and g 昆明市东郊八公里昆船工业区英文怎么翻译 搭()筑()词语一哪些 一小球自某一高度处由静止自由释放,在落地前最后1S内下落的高度为45M,求小球 什么是不可数名词和可数名词? “地球上约有10%的陆地终年穿着白色的衣服”釆用了数字说明和( )的说明方法 在学海中游泳的开头怎么写啊?作文. 【呼叫】初一数学[几何题],如图,在平面直角坐标系xoy中,点A、B 分别在Ox、Oy 上,∠OAB=60°,BE是∠A 拿一张圆形的纸,把它对折再对折,得到的角是直角.______.(判断对错) 利用因式分解计算:101²+202*99+99²= 小明家5月份用电250千瓦时,其中用“峰电”150千瓦时,用谷电100千瓦时.请计算他们家使用峰电电价