2

我有一个非常大的推文数据库。大多数推文都有多个#hashtags 和@mentions。我希望所有#hashtags 在一列中用空格分隔，而所有@mentions 在另一列中。我已经知道如何提取 a#hashtag和 a的第一次出现@mention。但我不知道要全部拿到吗？一些推文有多达 8 个#hashtags。手动浏览推文并复制/粘贴#hashtags 和@mentions 对于超过 5,000 条推文来说似乎是一项不可能完成的任务。

这是我想要的一个例子。我有 A 列，我想要一个可以填充 B 列和 C 列的宏。（我在 Windows 和 Excel 2010 上）

Column A
-----------
Dear #DavidStern, @spurs put a quality team on the floor and should have beat the @heat. Leave #Pop alone. #Spurs a classy organization.
Live broadcast from @Nacho_xtreme: "Papelucho Radio"http://mixlr.com nachoxtreme-radio … #mixlr #pop #dance
"Since You Left" by @EmilNow now playing on KGUP 106.5FM. Listen now on http://www.kgup1065.com  #Pop #Rock
Family Night #battleofthegenerations Dad has the #Monkeys Mom has #DonnieOsman @michaelbuble for me #Dubstep for the boys#Pop for sissy
@McKinzeepowell @m0ore21 I love that the PNW and the Midwest are on the same page!! #Pop

我希望 B 列看起来像这样：

Column B
--------
#DavidStern #Pop #Spurs
#mixlr #pop #dance
#Pop #Rock
#battleofthegenerations #Monkeys #DonnieOsman #Dubstep #Pop
#pop

C 列看起来像这样：

Column C:
----------
@spurs @heat
@Nacho_xtreme
@EmilNow
@michaelbuble
@McKinzeepowell @m0ore21
4

2 回答 2

1

考虑使用正则表达式。

Microsoft VBScript Regular Expressions 5.5您可以通过添加对from的引用在 VBA 中使用正则表达式Tools -> References。

这是一个很好的起点，有许多有用的链接。

更新

添加对库的引用后Regular Expressions，将以下函数放入 VBA 模块中： 

Public Function JoinMatches(text As String, start As String)
Dim re As New RegExp, matches As MatchCollection, match As match
re.pattern = start & "\w*"
re.Global = True
Set matches = re.Execute(text)
For Each match In matches
    JoinMatches = JoinMatches & " " & match.Value
Next
JoinMatches = Mid(JoinMatches, 2)
End Function

然后，在单元格B1中输入以下公式（用于主题标签）：

=JoinMatches(A1,"#")

在列C1中输入以下公式：

=JoinMatches(A1,"@")

现在您可以一直复制公式。

于 2012-11-30T08:01:16.733 回答
0

如果您不熟悉正则表达式，请参阅 (@Zev-Spitz)

于 2012-11-30T08:19:06.833 回答