删除手动分行符之前的内容

honey_bee · 发表于 2024-1-12 10:07

目标：删除工作簿所有工作表中单元格内手动分行符（ALT+ENTER）之前的文本

单元格中如果没有手动分行符，则不需要改动
如果有分行符（有且只有一个分行符），则分行符之前的文本（表格第一个字符到分行符本身）需要删除
工作簿包括多个工作表，都需要执行删除操作

请问，如何使用VBA代码实现。

ykcbf1100 · 发表于 2024-1-12 10:11

是删除英文吗？

honey_bee · 发表于 2024-1-12 10:35

不完全是，判断标准是ALT+ENTER之前的字符需要删除，删除英文不能作为判断依据

honey_bee · 发表于 2024-1-12 10:39

ykcbf1100 发表于 2024-1-12 10:11
是删除英文吗？

红色字符需要删除，这些红色字符在单元格中都是以分行符结束（ALT+ENTER）的。

大灰狼1976 · 发表于 2024-1-12 10:39

for each sht in worksheets
sht.usedrange.replace "*" & chr(10),""
next

复制代码

ykcbf1100 · 发表于 2024-1-12 10:52

附件供参考。。。

honey_bee · 发表于 2024-1-12 11:04

ykcbf1100 发表于 2024-1-12 10:52
附件供参考。。。

谢谢，大部分工作表没问题，不过下面这个工作表中不起作用，不知怎么回事？

limonet · 发表于 2024-1-12 11:10

关键字：FIND

limonet · 发表于 2024-1-12 11:11

Sub Limonet()
Dim RngCell As Range, FirstAddress$
On Error Resume Next
Set RngCell = Cells.Find(What:=vbLf)
If Not RngCell Is Nothing Then
      FirstAddress = RngCell.Address
      Do
         RngCell.Value = Split(RngCell.Value, vbLf)(1)
         Set RngCell = Cells.FindNext(RngCell)
      Loop While RngCell.Address <> FirstAddress
End If
End Sub

ykcbf1100 · 发表于 2024-1-12 11:12

honey_bee 发表于 2024-1-12 11:04
谢谢，大部分工作表没问题，不过下面这个工作表中不起作用，不知怎么回事？

这个表中有些英文没有换行符的，手工删下吧。

		自动登录	找回密码
密码			免费注册

[求助] 删除手动分行符之前的内容

评分