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函数（[开始]，字符串，字符串，[对比]）

出发点是通过搜索找到了“主题：”：

startingPoint = InStr(cellValue, "Subject:") 

终点后，第二vbLf（换行）字符，所以你要在STA启动第二InStr函数rting点加上第一搜索字符串（8）加一的长度：

MID（text_string的，START_POSITION，长度）

：

endingPoint = Instr (startingPoint + 8 + 1, cellValue, vbLf) 

然后用Mid函数把它放在一起

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