爲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創建字符串編輯宏

回答

相關問題