Excel VBAmacros,发现新行,并添加一个新的行?

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

我有一个包含多个换行符(小问号框符号)的多个单元格的电子表格。 我想要做的是find所有换行符为每个换行符添加一个新行,并将新行后的内容粘贴到新行。 我是新来的macros,所以我试着录制一个试图理解它。 现在上面的代码是find新行,并用相同单元格中的空格replace它。 不知道如何去添加新的行?

这是一个部分的答案。 这是一个单细胞

select一个包含带有硬返回的文本的单元格,然后运行:

 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 

您应该将其embedded到循环中以涵盖所有有问题的单元格。