0

我需要帮助为 Visual Basic 中的 excel 创建字符串编辑宏。我将描述我需要做的事情，但如果无法获得完整的答案，任何一点点信息都会对我有所帮助。我正在创建一个重定向列表以导入网站。在我的 Excel 表的 A 列中，我有 3,500 个 URL，看起来像这样http://www.realitynation.com/tv-shows/snooki-jwoww/drag-queen-lap-dances/17772/attachment/02_shot_jenni_snooki_081-2/我需要为这些页面创建重定向列表。它需要重定向到的页面是http://www.realitynation.com/tv-shows/snooki-jwoww/drag-queen-lap-dances/17772/看起来熟悉？那是因为它是去掉“附件/...”的同一个 URL。我想创建一个可以为我执行此操作的宏并将结果放在 B 列中。问题是我有大量的 Java 背景而不是 Visual Basic，事实上我什至不知道可以这样做在 Excel 中直到今天。无论如何，我没有要求任何人解决我的问题，但任何帮助或指导将不胜感激。同时，我将研究 VB 中的一些字符串编辑来尝试解决这个问题。

感谢您的时间。

4

1 回答 1

0

您不需要为此使用 vba。将此公式复制到单元格 B1 中并将其复制下来。

=LEFT(A1,SEARCH("/attachment",A1,1))

如果你仍然想要 VBA，那么看看这个

Sub Sample()
    Dim ws As Worksheet
    Dim lRow As Long

    Set ws = Sheets("Sheet1")

    With ws
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row

        .Range("B1:B" & lRow).Formula = "=LEFT(A1,SEARCH(""/attachment"",A1,1))"
    End With
End Sub
于 2012-08-03T17:36:55.567 回答