excel两行第二行等于第一行 如:a2=a1,a4=a3
excel两行第二行等于第一行 如:a2=a1,a4=a3每两行为一组!数据量比较大,不想一个一个输入!小弟悬赏分不多,求帮忙!
最佳回答
插入一个辅助列如B列,在B1输入公式=IF(MOD(ROW(),2),A1,INDIRECT("A"&ROW()-1))
公式下拉完成,然后,选择B列,复制,右键选择性粘贴,值,确定,再把A列删除了。
更好的办法是用VBA来完成,快!
宏如下
Sub 输入公式()
Dim R&,x&
R = Range("A65536")。End(xlUp)。Row + 1
For x = 2 To R Step 2
Cells(x,1) = "=A" & x - 1
Next x
End Sub
只需要运行下这个宏,你A列的双数行单元格就写入了你要的公式
公式下拉完成,然后,选择B列,复制,右键选择性粘贴,值,确定,再把A列删除了。
更好的办法是用VBA来完成,快!
宏如下
Sub 输入公式()
Dim R&,x&
R = Range("A65536")。End(xlUp)。Row + 1
For x = 2 To R Step 2
Cells(x,1) = "=A" & x - 1
Next x
End Sub
只需要运行下这个宏,你A列的双数行单元格就写入了你要的公式
最新回答共有2条回答
-
2026-04-02 19:33:04犹豫的美女
回复插入一个辅助列如B列,在B1输入公式=IF(MOD(ROW(),2),A1,INDIRECT("A"&ROW()-1))公式下拉完成,然后,选择B列,复制,右键选择性粘贴,值,确定,再把A列删除了。更好的办法是用VBA来完成,快!宏如下Sub 输入公式()Dim R&,x&R = Range("A65536")。End(xlUp)。Row + 1For x = 2 To R Step 2Cells(x,1) = "=A" & x - 1Next xEnd Sub只需要运行下这个宏,你A列的双数行单元格就写入了你要的公式
热门文章
- 康达学院专转本五年制
- 高考一个考场分ab卷吗
- not only but also用法
- 某物体做自由落体运动,从释放开始计时,则物体在前2s内的平均速度为______m/s,物体下落2m时的速度大小为______m/s.
- 三角函数公式大全表格
- 地理中考必背知识点2022
- 2013-2014学年小学六年级科学上学期期末考试试卷及答案
- 人教版2014-2015学年小学五年级英语第二学期期中教学质量检测试卷及答案
- 【Linux驱动开发】设备树详解(二)设备树语法详解
- 别跟客户扯细节
- 在别的城市买房子能落户吗
- 卖房前要把装修贷还完吗
- 高中政治教学提高教学效果的方法探究
- “互联网+”背景下的初中英语课堂教学改革与创新策略研究
- 2022年终止合同范本
- 租房合同范本范文
- 如何挑选土豆
- 如何挑选土鸡
