嵌套的for next循環：外環不遍歷

Question

我從A2:A34與它不同的名字，我需要複製到範圍E9:E14的數據範圍。我只需要複製和粘貼唯一的名稱（我不需要同名的雙精度）。我敢肯定，使用嵌套For Next循環的路要走，但我遇到麻煩外環轉到下一次迭代。現在，這只是給我的姓氏在在E9:14重複範圍A2:A34。我正在研究使用Exit For，但是當我在代碼中添加了外部循環時，迭代但內部循環從2開始。

任何與此有關的幫助將不勝感激。謝謝！ 下面是我的代碼：

Sub FillTable() 
    Dim tableCount As Integer 
    Dim rowCount As Integer 

    For tableCount = 9 To 13 
    If Range("E" & tableCount).Value = "" Then 
     For rowCount = 2 To 34 
     If Range("E" & tableCount).Value = Range("A" & rowCount).Value Then 

     ElseIf Range("E" & tableCount).Value <> Range("A" & rowCount).Value Then 
      Range("E" & tableCount).Value = Range("A" & rowCount).Value 
     End If 
     Next rowCount 
    End If 
    Next tableCount 
End Sub 

Answer 1

我不知道是否真的需要VBA這個確切的問題，但希望下面的代碼會有所幫助。我切換循環，以便您只遍歷大名單的名單一次，然後你迭代通過第二個列表檢查重複。我還添加了一個變量，以便允許超過5個獨特的名稱（與tablecount爲9到13時不同）。

公平的警告 - 這是一個快速簡便的解決方案。它既不優雅也不優化。

Sub FillTable() 

Dim tableCount As Integer 
Dim rowCount As Integer 
Dim n As Integer 

n = 0 
For rowCount = 2 To 34 

    For tableCount = 9 To 9 + n 
     If Range("E" & tableCount).Value = Range("A" & rowCount).Value Then 
     ' name already found, break out of loop 
     Exit For 
     ElseIf Range("E" & tableCount).Value = "" Then 
     Range("E" & tableCount).Value = Range("A" & rowCount).Value 
     n = n + 1 
     End If 
    Next tableCount 

Next rowCount 

End Sub 

Answer 2

看來您對您的目標的描述與代碼不符。

您是從複製（以簡化位）山坳對col E. 山坳是否已經ê包含數據？如果不是，爲什麼第一個「如果」要查看某個單元格是否爲空？ 如果是，E已經包含數據，那麼你想通過E循環查看E是否已經包含新名稱。 我還會指出，E有6個名字的空間（根據你的規格），而源有33個名字。

不知道你的目標，我不會建議真實的代碼，但也許是一種解決問題的方法： 創建只做非常簡單的小事情的函數。例如，也許最簡單，一個函數來查看名稱是否已經在列表中。請注意，我假定一個最高使用行的值，請確保將其定義爲14，或者作爲某個計數器。

Function Is_Name_Already_Present_in_E(Name-to-check as String) As Bool 
    Is_Name_Already_Present_in_E = False    ; Default we'll return if don't find name. 
    for r = 9 to highest-so-far-used 
     if Name-to-check = Range("E" & r).value then ; If found name in list, 
     Is_Name_Already_Present_in_E = true   ; then return true. 
     exit function 
     end if 
    next r 
end function           ; If scan whole list, and not found,false. 

我確定有一些語法錯誤，但它們應該很容易解決。

然後，創建一個簡單的功能，新的名稱添加到E.也許類似（小心的假設！）：

Function Add_New_Name_To_List(Name as string) as bool 
    if highest_used_so_far >= 14 then 
     Error "No room to insert name:" & Name & ". Rejected." 
     Add_New_Name_To_List = false 
     exit function 
    end if 
    highest_used_so_far = highest_used_so_far + 1 
    range(A & h_u_s_r).value = Name 
    Add_New_Name_To_List = true 
exit function 

然後，你的主成爲一個非常簡單的（假的代碼示例，因爲我不不知道你的意圖）：

for r = 2 to 34 
    if not Is_Name_Already_Present_in_E(range("A" & r).value) then 
     if not Add_Name_to_E(range("A" & r).value) then 
      ... what to do if add fails. ... 
     end if 
    end if 
next name 

把你的問題分解成幾塊，它應該清楚如何寫每一塊。祝你好運。