国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

Excel如何實現(xiàn)換行前一行變成后一行數(shù)字

2024-08-23 19:56:15
字體:
供稿:網(wǎng)友

  Excel如何實現(xiàn)換行。前一行變成后一行的數(shù)字?

  看圖吧。不是專業(yè)的說不清楚。就是比如說列到E,,行到50

  每次給A1給輸入數(shù)字。b1就變成A1的,,,c1就變成b1...e1就變成c1。。到e1結(jié)束。。。

  反正只要給A1輸入。。后面的就變成前面一行的數(shù)字..

  問題補充:每次給A1給輸入數(shù)字。B1就變成A1的,,,C1就變成B1...E1就變成C1。。。A2變成E1的數(shù)字。只要前面A1有輸入。就往后推。只要5列。。能輸入5列就行..行幾多都行。

Excel如何實現(xiàn)換行前一行變成后一行數(shù)字飛 CUOxin.COM

  寫了一段代碼,把這段代碼復制到你要實現(xiàn)功能的表里:

  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

  該代碼從第三行開始實現(xiàn)該功能,你可以在A2單元格里面輸入你要實現(xiàn)該功能的最后一行行數(shù),如10,參見下圖


發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 广灵县| 汶上县| 饶阳县| 绩溪县| 华阴市| 比如县| 金华市| 乌拉特中旗| 怀远县| 温宿县| 依安县| 宁德市| 韶山市| 噶尔县| 福海县| 锦州市| 尚志市| 微山县| 镇坪县| 郴州市| 黔江区| 同江市| 庆云县| 五华县| 城步| 福建省| 青浦区| 蕉岭县| 容城县| 连城县| 庄河市| 确山县| 金湖县| 万安县| 绍兴市| 桂平市| 莎车县| 京山县| 茂名市| 文山县| 将乐县|