为Excel Visual Basic创建字符串编辑宏

Question

我需要帮助，在Visual Basic中为Excel创建一个字符串编辑宏。 我将描述我需要做的事情，但是如果不可能给出完整的答案，那么任何少量的信息都会对我有所帮助。 我正在创建重定向列表以导入网站。 在我的Excel工作表的A列中，我有3500个网址 ，如下所示：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中研究一些字符串编辑，以尝试解决这一问题。

感谢您的时间。

Answer 1

您不需要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