在 Excel 2010 中查找斜线并将其替换为新的换行符

在 Excel 2010 中查找斜线并将其替换为新的换行符

有人能告诉我如何在 Excel 2010 中用换行符替换斜线 (/) 吗?我有一张很长的工作表,里面有单词、起源和定义。在起源列中,有些行显示多个位置,用斜线分隔。我希望单元格中的每个项目都位于单元格内的新行上。这可能吗?

现在单元格看起来像这样

罗马 / 凯尔特 / 波罗的海

我希望单元格看起来像这样

罗马
凯尔特
波罗的海

答案1

  • 选择你的细胞
  • 右键单击,Format Cells ...转到结盟标签,并检查Wrap Text(图1)
  • 一起
  • 转到代替标签
  • 在下方Find What输入“/”
  • 转到Replace With然后按
  • Replace All(图2)

图片 1 图片 1

图2 图2

答案2

作为另一种选择,这里有一些 VBA 代码来创建一个将 / 转换为 LF 的新函数:

Public Function SlashToLF(oldstring As String) As String
    Dim newString As String
    Dim c As Long

    For c = 1 To Len(oldstring)
        If Mid(oldstring, c, 1) = "/" Then
            newString = newString & vbNewLine
        Else
            newString = newString & Mid(oldstring, c, 1)
        End If
    Next
    slashtolf = newString

End Function

如果您将公式放在=SlashToLF(A1)另一个单元格中,您将获得带有换行符的新版本。然后,您可以根据需要将公式复制/粘贴为值覆盖原始版本。此外,您需要将单元格格式化为自动换行,才能使其正常工作。

相关内容