首页 > 文章列表 > 在排序后的EXCEL表格中,如何在不同姓名之间插入多个空行?

在排序后的EXCEL表格中,如何在不同姓名之间插入多个空行?

349 2024-01-30

EXCEL排序后表格中如何将一列中不同名字之间加多个空行

EXCEL排序后表格中如何将一列中不同名字之间加多个空行

少的话,在行号那里,点击鼠标右键,选插入。就会在前面插入一行。重复几次。

多的话用vba编程吧。

创建一个宏。把这段代码拷贝进去,把,“D”,改成你要判断重复的那个列字母,然后运行就行了。

For i = ActiveSheet.UsedRange.Cells.Rows.Count To 2 Step -1

If Len(Trim(ActiveSheet.Cells(i, "D").Value)) = 0 Then

Else

If Trim(ActiveSheet.Cells(i - 1, "D").Value) <> Trim(ActiveSheet.Cells(i, "D").Value) Then

Rows(i).Insert

End If

End If

Next

excel单元格中的每一个字占一行

用VBA设计一个命令按钮,输入以下代码:

Private Sub CommandButton1_Click()

Range("C:D").ClearContents

k = 1

For Each rag In Range("A:A")

If rag.Value = "" Then Exit For

For j = 1 To Len(Trim(rag.Offset(, 1)))

Range("C" & k) = rag.Value

Range("D" & k) = Mid(Trim(rag.Offset(, 1).Value), j, 1)

k = k + 1

Next j

Next

End Sub