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

我需要帮助在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/看起来很熟悉吗？这是因为它是与“attachment/...”相同的URL。我想创建一个宏，可以为我做这个，并将结果放在列B中。问题是我有一个很大的背景与Java而不是Visual Basic，事实上我甚至不知道这是可以做到这一点在Excel中直到今天。无论如何，我并没有要求任何人解决我的问题，但任何帮助或方向将不胜感激。与此同时，我将研究VB中的一些字符串编辑，试图解决这个问题。为Excel Visual Basic创建字符串编辑宏

谢谢你的时间。

来源

2012-08-03 ErichNova

你不需要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-03 17:36:55

谢谢你让我觉得自己很笨。这就是为什么我喜欢这个网站。 – ErichNova 2012-08-03 17:37:39

'谢谢你让我感到很蠢。'我的道歉。这是从来没有这样的意图:) – 2012-08-03 17:40:10

这是一个很好的愚蠢。我很感激帮助。 – ErichNova 2012-08-03 17:49:00

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

回答

相关问题