循環以遞增格式格式化行

Question

我有一個工作表，我想像第5至第7行那樣，每11至13行進行格式化。 我走了這么遠，然后才意識到我不知道該如何推進循環。 因此，很明顯，如果我什至正確地執行操作，sub只是在格式化11-13 37×格式時是微不足道的嘗試。

Rows("5:7").Select
Selection.Copy
For i = 1 To 37
    Rows("11:13").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
Next i

Answer 1

聽起來好像您希望從復制5：7行中的格式開始，然后將11行前進到16：18、27：29、38：40等行，以添加總共3個其他組，然后粘貼格式。 為此，您需要在For Next語句中引入Step參數。 Step參數始終存在，但默認情況下為1，因此除非您希望以不同於1的增量進行擴展，否則通常不會顯示該參數。

For i = 0 To 33 step 11
    if i = 0 then
        Rows("5:7").copy
    else
        Rows("5:7").offset(i,0).PasteSpecial Paste:=xlPasteFormats, _
                      Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    end if
Next i
Application.CutCopyMode = False

Step 11表示每個周期我將增加11 。 .Offset(i, 0)使用它在工作表中進一步前進。