在excel中如何在每一行中插入一行

Posted 2023-04-18

怎样把excel中这样：
A 1
B 2
C 3
D 4
E 5
F 6
G 7
变为这样：
A
1
B
2
C
3
D
4
E
5
F
6
G
7
谢谢啦。
字母和数字都代表单个实体。如：姓名 小明 变为：姓名
小明
能不能一步托出来啊，要不然我还得一个个剪切复制。在这谢过了！

全选，复制粘贴一次；



升序排列；



C列公式处理；C2单元格公式：=A2；C3单元格公式：=B3；



选中C2：C3，自动填充；



C列复制，选择性粘贴（值与数字格式），去公式；

删掉A.B数据，余下部分即是；

参考技术A 不是太理解你的意思

不知道数据量是否很大
如果不大，可以考虑这样：

在第一列后插入一列，标记为1、2、3下拉至数据末行
在原第二列后页插入一行 同样标记为1、2、3下拉至数据末行
将现在的第三、四列全部选中，拖拽到一、二列下面
形成了两列数据，选中这两列，点击“数据”菜单里面的“排序”
以第二列为关键字升序排列
然后把刚刚增加的辅助列删除就可以了

补充：
没问题啊~在姓名列后面插入一列，在小明列后面插入一列
稍微操作一下就可以搞定了
这个已经比一个一个剪切省去很多时间了本回答被提问者采纳 参考技术B 想要实现这个功能就必须要借助Word了。首先将Excel文件保存为.csv类型的文件，然后使用word打开刚才保存的.csv文件，这时你会看到数据与数据之间使用,(英文状态下)分割，应用word的查找替换功能，将所有,（英文状态）替换为^p保存，再用Excel打开，就可以实现你想要的效果。有问题再帮你哦~ 参考技术C '设数据在AB列，运行下面代码把数据合成到D列并居中对齐

Sub reSort()
Dim Rbtm, nRbtm
Rbtm = [a65536].End(xlUp).Row
For i = 1 To Rbtm
nRbtm = [d65536].End(xlUp).Row + 1
Cells(i, 1).Copy Cells(nRbtm, 4)
nRbtm = nRbtm + 1
Cells(i, 2).Copy Cells(nRbtm, 4)
Next i
Columns(4).HorizontalAlignment = xlCenter
End Sub 参考技术D =OFFSET($A$1,(ROW(A1)-1)/2,MOD(ROW(A2),2))
向下复制公式

在excel表中插入一行(或一列)后vba代码如何自动修改？

一、问题提出的引述连接：
插入一行后vba如何自动修改
如何在excle单元格中编写的vba语言当插入一列的时候公式也自动改变？

二、解决办法：
1、把单元格或单元区域选中。

2、然后给单元格命名。

3a、这时可以检验刚才的命名。再框选测试区域以数组形式显示。（数组形式：按下F2，然后Ctrl+Shift+Enter）

3b、在vba里写如下代码。

Sub test()
MsgBox Sheet1.Evaluate("测试").Rows.Count
End Sub

4、结果。

5、现在你尝试手工移动C3:C5区域，或如标题插入行或列，再运行代码看看结果是否没变化！

三、结语：
复杂的使用方法读者自己研究，我这里只是抛砖引玉。

四、参考文章连接：
excel定义名称，妙不可言
VBA中名称的使用