Excel怎样将数据隔N空行排列 _Excel|2007

修法布施得聪明智慧，多分享让生活更美好。上次分享了《Excel数据怎样快速向下填充空格》，介绍了数据快速填充空格处理方法，数据怎样隔N空行排列生成呢？2Excel数据如何快速标的目的下填充空格

文章插图

需要这些哦
Microsoft Office Excel 2007
Excel VBA
处置方式/
1起首打开Microsoft Office Excel 2007，新建文档并保留文件名《Excel如何将数据隔N空行摆列 .xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。

文章插图

2然后按下快捷键ALT+F11打开VBE（宏）编纂界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。

文章插图

3然后插入了一个模块1，在代码框中复制如下代码：
Sub 选数据隔N空行摆列()
'2020-10-6 21:50:08
Dim myrs As Range, myr As Range, r As Long, c As Long, N As Long
Set myrs = Selection
r = myrs.Rows.Count
c = myrs.Columns.Count
N = Application.InputBox(prompt:="输入隔空行数N:", Type:=1)
Set myr = Application.InputBox(prompt:="选生当作数据第一个单位格", Type:=8)
For i = 1 To c
For j = 1 To r
If Left(myrs.Cells(j, i).Text, 1) = "0" Then
myr.Offset((j - 1) * (N + 1), i - 1).NumberFormatLocal = "@"
If
myr.Offset((j - 1) * (N + 1), i - 1).Value = https://vvvtt.com/article/myrs.Cells(j, i).Value
【Excel怎样将数据隔N空行排列】 Next j
Next i
Sub