Excel VBA：重新啟動循環計數器

Question

嗨，我正在嘗試重啟我的循環計數器（iColumn）。 我循環遍歷列以替換模板中的多個單詞（TemplateSheet）。 循環遍歷所有列（內部循環）后是否可以重新啟動循環計數器。

我唯一的問題是在遞增行值后，它返回到循環（列），然后iColumn的值變為4並終止內部循環。

While Sheets("DataSheet").Cells(iRow, 1).Value <> ""

   While Sheets("DataSheet").Cells(1, iColumn) <> ""

      sFind = Sheets("DataSheet").Cells(1, iColumn)

      sReplacement = Sheets("DataSheet").Cells(iRow, iColumn)

      sTemplate = Replace(sTemplate, sFind, sReplacement)

      iColumn = iColumn + 1

Wend
      Sheets("OutputSheet").Cells(iRow, 1) = sTemplate
      iRow = iRow + 1
   Wend

在重新啟動循環計數器時解決了該問題。 但是現在我必須覆蓋替換函數，因為它不存儲新替換的數據。

Answer 1

只需將iColumn的值重置為您需要的初始值即可。 我假設1 。

While Sheets("DataSheet").Cells(iRow, 1).Value <> ""
   While Sheets("DataSheet").Cells(1, iColumn) <> ""
      sFind = Sheets("DataSheet").Cells(1, iColumn)
      sReplacement = Sheets("DataSheet").Cells(iRow, iColumn)
      sTemplate = Replace(sTemplate, sFind, sReplacement)
      iColumn = iColumn + 1
   Wend
   MsgBox sTemplate
   iRow = iRow + 1
   iColumn = 1
Wend

您可以像這樣簡化代碼：

While Sheets("DataSheet").Cells(iRow, 1).Value <> ""
   While Sheets("DataSheet").Cells(1, iColumn) <> ""
      sTemplate = Replace(sTemplate, Sheets("DataSheet").Cells(1, iColumn), Sheets("DataSheet").Cells(iRow, iColumn))
      iColumn = iColumn + 1
   Wend
   MsgBox sTemplate
   iRow = iRow + 1
   iColumn = 1
Wend

最后，請注意， MsgBox調用的位置只能獲得sTemplate的最終值，而不是任何中間值。 當然，這可能就是你所追求的。

Answer 2

如果sTemplate具有您在單元格中所需的值，那么您需要將單元格設置為該數據，如下所示：

Sheets("DataSheet").Cells(iRow, iColumn) = sTemplate

這是整個循環：

While Sheets("DataSheet").Cells(iRow, 1).Value <> ""
    While Sheets("DataSheet").Cells(1, iColumn) <> ""
        sFind = Sheets("DataSheet").Cells(1, iColumn)
        sReplacement = Sheets("DataSheet").Cells(iRow, iColumn)
        sTemplate = Sheets("TemplateSheet").Cells(1, 1)
        Sheets("OutputSheet").Cells(iRow, iColumn) = Replace(sReplacement, sTemplate, sFind)
        iColumn = iColumn + 1
    Wend
    MsgBox sTemplate
    iRow = iRow + 1
    iColumn = 1
Wend