如何在不相同的文本行之间添加空格

我正在寻找一种在行之间添加空格的方法。 我只想要添加一个空格的时候，文本是不一样的上面的行。 我有一些麻烦，不能完全弄清楚。 这是我到目前为止：

Sub Spaces() Dim cell As Range Dim Text1 As String Dim Text2 As String For Each cell In Selection Text1 = Cells(cell, 1).Text Text2 = Cells(cell - 1, 1).Text If InStr(1, cell, "-", 1) Then If Cells(cell, 1) <> Cells(cell - 1, 1) Then Else: Cells(cell + 1, 1).EntireRow.Insert End If End If Next End Sub 

任何线索，我要去哪里错将非常感激。

Answer 1

这是我用来分隔不同pipe道尺寸的行的代码。

 Sub blastListSort() Range("A1").Resize(Cells.Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Row, _ Cells.Find(What:="*", SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Column).Select For rown = Selection.Rows.Count To 2 Step -1 Size = Cells(rown, 3).Value Size2 = Cells(rown, 3).Offset(-1).Value lastRow = Range("A" & Rows.Count).End(xlUp).Row If Size2 <> Size Then Cells(rown, 6).EntireRow.Select Cells(rown, 6).EntireRow.Insert End If Next End Sub 

希望能帮助到你！ 🙂

Answer 2

没有太多的改变，你可以尝试这样的事情：

 Sub Spaces() Dim cell As Range Dim Text1 As String Dim Text2 As String For Each cell In Selection ' initialize first string Text1 = cell.Text ' initialize second string for first time through If Text2 = vbNullString Then Text2 = Text1 ' perform test If InStr(1, Text1, "-", 1) Then If Text1 <> Text2 Then ' insert row cell.EntireRow.Insert End If End If ' set second string for next time through loop Text2 = Text1 Next End Sub