删除 libreoffice calc 中单元格内的第一行答案

【问题标题】：Remove first lines within cells in libreoffice calc删除 libreoffice calc 中单元格内的第一行
【发布时间】：2020-08-12 04:32:01
【问题描述】：

我在 libreoffice calc 中有大量单元格，每个单元格都有两行。我想从每个单元格中删除每一行。有什么简单的方法吗？这段代码在 VBA excel 中完美运行，但在 libreoffice calc 中无法运行。

{ Sub RemoveFirstLine(ByRef Target As Range)

Dim xCell As Range

For Each xCell In Target.Cells

    xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))

Next

结束子

Sub StartRemove()

将 xRng 调暗为范围

出错后继续下一步

Set xRng = Application.InputBox("请选择范围：", "Excel 10 Tutorial", Selection.Address, , , , , 8)

如果 xRng 什么都不是，则退出 Sub

出错后继续下一步

删除第一行 xRng

结束子 }

【问题讨论】：

你想要哪里的结果？在新专栏中？还是您想要一个可以就地编辑的宏？你都尝试了些什么？你对公式有多少经验？您对宏编程有多少经验？ ...这么多悬而未决的问题...
我希望结果在相同的列中。我不了解宏，我只是在一列中没有大量单元格，我无法编辑每个单元格以手动删除第一行。我什么都没试过，而不是手动做。虽然从未使用过公式。正则表达式的小手。也不懂宏编程

【解决方案1】：

此任务不需要宏，请使用Find&Replace。

按 Ctrl+H 或选择 Edit-Find&Replace

输入到字段查找.*\n，设置其他选项-正则表达式为ON，点击全部替换

【讨论】：