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

Question

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

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

而且，我用过这个公式

=RIGHT(LEFT(J2,LEN(J2)-4),LEN(LEFT(J2,LEN(J2)-4))FIND(">",LEFT(J2,LEN(J2)-4),2))

获取此值“Twitter Web Client。

当我尝试使用以下代码为此应用宏时，没有获得价值。 还可以通过在引用“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

Answer 1

你可以试试这样的

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 Client”文本。