如何复制空格到另一个表（已有内容下移）

flybywind · 发表于 2022-7-19 14:37

本帖最后由 flybywind 于 2022-7-19 15:04 编辑

有个疑问很久了，请教各位大佬：我在第一个表格里面插入了一些空行，位置是不固定的。现在有另一个表格，里面是没有空行的，现在想将第一个表格的空行复制到第二个表格里，第二个表格里已有的内容下移，这样两个表格里空行的位置就一样了（两个表格数据量是一样的）。我试了很多方法都做不到，因此在这里请教，提前感谢各路大神！

已添加附件，第一个表里有空行，现在要将空行插入到第二个表，两个表里的数据都是50个。

许夜 · 发表于 2022-7-19 14:48

空行连带着内容一起复制就可以了啊

flybywind · 发表于 2022-7-19 14:49

许夜发表于 2022-7-19 14:48
空行连带着内容一起复制就可以了啊

内容是不一样的，不能复制过去，只想空白行的位置一样

许夜 · 发表于 2022-7-19 14:51

flybywind 发表于 2022-7-19 14:49
内容是不一样的，不能复制过去，只想空白行的位置一样

附件有没有

minchar · 发表于 2022-7-19 14:53

有合并单元格不？

flybywind · 发表于 2022-7-19 15:04

许夜发表于 2022-7-19 14:51
附件有没有

已添加附件

flybywind · 发表于 2022-7-19 15:35

没有大佬帮忙看看吗

许夜 · 发表于 2022-7-19 15:38

抱歉，我真不知道怎么弄，要是你这些表都在一个工作簿的话还好弄，你只要把整个工作簿所有工作表都选上，然后统一调整就好了，其他方法我不知道了

劲钟华 · 发表于 2022-7-19 16:38

Sub test()
Dim row1, i
row1 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To row1
      If Range("a" & i) = "" Then
         Sheets(2).Rows(i).Insert
      Else
         i = i + 1
      End If
Next
End Sub
设第一个工作表为当前工作表。是不是需要这样的结果。

minchar · 发表于 2022-7-19 19:49

通过辅助列能实现！已插入空行称为表一，另一个为表二
1、表一插入辅助列A列，填充序列号；定位空行并隐藏，复制A列可见单元格并粘贴到表二辅助列
2、将表一A列可见单元格删除，定位A列常量并复制，粘贴到表二辅助列数据区尾端
3、利用表二辅助列排序，然后删除该列

		自动登录	找回密码
密码			免费注册

[求助] 如何复制空格到另一个表（已有内容下移）

评分

评分

评分