0

VisualBasicで優れた文字列編集マクロを作成するためのサポートが必要です。何をする必要があるかを説明しますが、完全な答えが得られない場合は、少しでも情報があれば役立ちます。Webサイトにインポートするためのリダイレクトリストを作成しています。エクセルシートの列Aには、次のような3,500のURLがありますhttp://www.realitynation.com/tv-shows/snooki-jwoww/drag-queen-lap-dances/17772/attachment/02_shot_jenni_snooki_081-2/ Iこれらのページのリダイレクトリストを作成する必要があります。リダイレクトする必要のあるページはhttp://www.realitynation.com/tv-shows/snooki-jwoww/drag-queen-lap-dances/17772/です。見覚えがあります？これは、「添付ファイル/...」を外したものと同じURLだからです。これを実行できるマクロを作成し、結果を列Bに配置したいと思います。問題は、Visual BasicではなくJavaのバックグラウンドが大きいことです。実際、これが可能かどうかさえ知りませんでした。今日まで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 に答える