현재 VBA 코드를 루프하는 방법

Question

루프를 사용하여 기존 VBA를 수정해야합니다. A 열에 웹 사이트 링크가 있습니다.이 줄 아래에서 동적으로 싶습니다.

ticjername = Sheet1.Range("A1").Value 

내가 데이터를 내 코드 열 A. 에서 찾을 때까지이 코드를 계속 싶어서, 루프 그것을 필요 : 코드 아래

Sub Macro1() 
' 
' Macro1 Macro 
' 
' Keyboard Shortcut: Ctrl+q 
' 

Dim ticjername As String 
ticjername = Sheet1.Range("A1").Value 
mURL$ = "http://www.example.com=" & ticjername 
    With ActiveSheet.QueryTables.Add(Connection:= _ 
     "URL;" & mURL, Destination:=Range("B1")) 
     .Name = " " 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = False 
     .RefreshPeriod = 0 
     .WebSelectionType = xlSpecifiedTables 
     .WebFormatting = xlWebFormattingNone 
     .WebTables = "1" 
     .WebPreFormattedTextToColumns = True 
     .WebConsecutiveDelimitersAsOne = True 
     .WebSingleBlockTextImport = False 
     .WebDisableDateRecognition = False 
     .WebDisableRedirections = False 
     .Refresh BackgroundQuery:=False 
    End With 

Columns("B:C").Select 
    Selection.Delete Shift:=xlToLeft 
    Columns("B:B").Select 
    Selection.SpecialCells(xlCellTypeBlanks).Select 
    Selection.Delete Shift:=xlUp 
    Range("B1").Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Selection.Cut 
    Sheets("Sheet2").Select 
    ActiveCell.Select 
    ActiveSheet.Paste 
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select 
End Sub 

Answer 1

봅니다

Dim rowID As Integer 
    rowID = 1 
    Do 

     '<Your code> 

     rowID = rowID + 1 
    Loop Until Sheet1.Cells(rowID, 1).Value = "" 

신용 간다 www.stackoverflow.com