富贵论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

手机号码,快捷登录

手机号码,快捷登录

广告位招租qq41463402
查看: 11|回复: 0

[教程] Excel怎样实现换行前一行变成后一行数字

[复制链接]

1万

主题

1258

回帖

4万

积分

缴100拍卖保证金

UID
12
金钱
0 点
威望
0 点
贡献
18225 点
宣传
0 人
买家
0 元
卖家
0 元
注册时间
2017-11-19
最后登录
2024-7-20

富贵吧信誉勋章签到达人勋章

发表于 2024-4-19 21:19 | 显示全部楼层 |阅读模式

excel怎样实现换行。前一行变成后一行的数字?

看图吧。不是专业的说不清楚。就是比如说列到E,,行到50

每次给A1给输入数字。b1就变成A1的,,,c1就变成b1...e1就变成c1。。到e1结束。。。

反正只要给A1输入。。后面的就变成前面一行的数字..

问题补充:每次给A1给输入数字。B1就变成A1的,,,C1就变成B1...E1就变成C1。。。A2变成E1的数字。只要前面A1有输入。就往后推。只要5列。。能输入5列就行..行几多都行。

Excel怎样实现换行前一行变成后一行数字-1.jpg

写了一段代码,把这段代码复制到你要实现功能的表里:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer

For i=3 To Range("a2").Value

If Range("a" & i).Value <> "" Then

Range("A" & i).Insert Shift:=xlToRight

End If

Next

End Sub

该代码从第三行开始实现该功能,你可以在A2单元格里面输入你要实现该功能的最后一行行数,如10,参见下图

您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|小黑屋|富贵论坛 ( 琼ICP备2022019866号-1 )

GMT+8, 2024-7-27 09:37 , Processed in 0.157814 second(s), 35 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表