Question

Selection.Replace What:="" & Chr(10) & "", Replacement:=" ", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

我有一个电子表格，其中包含多个包含多个换行符的单元格（小问号框符号）。我要做的是找到所有换行符为找到的每个换行符添加一个新行，并将换行符后的内容粘贴到新行中。我是宏的新手，所以我尝试录制一个以试图理解它。现在，上面的代码是找到新行并将其替换为同一单元格中的空格。不确定如何添加新行？

Answer 1

这是部分答案。它适用于单个单元

选择包含包含硬回车的文本的单元格并运行：

Sub dural()
    Dim r As Range, s As String, HR As String
    Set r = Selection(1)
    v = r.Value
    HR = Chr(10)
    If InStr(v, HR) = 0 Then Exit Sub
    ary = Split(v, HR)
    For i = 1 To UBound(ary)
        r.Offset(1, 0).EntireRow.Insert
    Next i
    For i = 0 To UBound(ary)
        r.Offset(i, 0).Value = ary(i)
    Next i
End Sub

你应该将它嵌入循环中以覆盖所有相关细胞。

Excel VBA宏找到换行符并添加新行？

1 个答案: