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)"

结果集将是＆＃34; Twitter Web Client＆＃34;文本。

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

1 个答案: