在宏中应用excel公式时遇到错误

我在excel的J列中有以下类型的值

<a href="http://twitter.com" rel="nofollow">Twitter Web Client</a>

要获取此值，请单击“Twitter Web客户端”

当我试图用下面的代码在“不获取值”中为此应用宏时。也可以通过在引用“J”列的整个“Q”列范围内应用公式来帮助我编写代码

Sub Enter_Formula()

    Range("Q2").Formula = "=RIGHT(LEFT(J2,LEN(J2)-4),LEN(LEFT(J2,LEN(J2)-4))-FIND(" > ",LEFT(J2,LEN(J2)-4),2))"

End Sub

---

你可以试试这样的

LastRow = ActiveSheet.UsedRange.Rows.Count
MsgBox LastRow 'This would give the User range value to be used to enter the formulaa in all the rows
Range("Q2:Q" & LastRow).Formula = "=LEFT(RIGHT(RC[-7],LEN(RC[-7])-FIND("">"",RC[-7],2)),LEN(RIGHT(RC[-7],LEN(RC[-7])-FIND("">"",RC[-7],2)))-4)"

---

结果集将是“Twitter Web客户端”文本。

您需要在公式中加上两倍的引号。在我思考之前，这已经被问过很多次了。我在公式中加了两倍的引号，我得到的是真的不是确切的值，即Twitter Web客户端？它不在您发布的代码中。它应该是：

“=右（左（J2，LEN（J2）-4），LEN（左（J2，LEN（J2）-4））-FIND（“>”，左（J2，LEN（J2）-4），2））“

LastRow = ActiveSheet.UsedRange.Rows.Count
MsgBox LastRow 'This would give the User range value to be used to enter the formulaa in all the rows
Range("Q2:Q" & LastRow).Formula = "=LEFT(RIGHT(RC[-7],LEN(RC[-7])-FIND("">"",RC[-7],2)),LEN(RIGHT(RC[-7],LEN(RC[-7])-FIND("">"",RC[-7],2)))-4)"