Excel VBA删除字符串中的字符串和后续行

Question

我需要从多个字符串中删除某些字符串（例如“SUBJECT：”，此字符串后面有换行符），和整个后续行，包括下一个换行符 Excel中的单元格。

任何人都可以为此支持宏吗？

我猜它会是

Cells.Replace What:="Subject:" & Chr(10) & "[ANY TEXT]" & Chr(10), Replacement:="", Lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False

（会张贴一张照片但不允许！不知怎的，我被识别出来了，最后却出现在另一个没有积分的帐户上）

非常感谢！

Answer 1

谢谢大家，

这适用于我的情况！

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

Answer 2

您需要使用InStr找到字符串中的起点和终点：

  

InStr（[start]，string，substring，[compare]）

通过搜索“主题：”找到起点：

awk -v OFS='\t' '{print $1, $2, $3}'

结束点是此后的第二个vbLf（换行符）字符，因此您希望在起始点加上第一个搜索字符串（8）加上一个的长度开始第二个InStr：

startingPoint = InStr( cellValue, "Subject:" )

然后将它与Mid函数一起放在一起：

  

Mid（text_string，start_position，Length）

长度将等于结束位置减去起始位置。