Question

我想知道我是否可以获得一些帮助或提示，使这个for循环更复杂。而不是它有3个不同的循环，我试图将它们合二为一。我似乎无法修复它，我已经尝试了googleing并自行修复它。如果你能看一下，我会非常感激。

// noob程序员

Dim lastRow As Long
lastRow = Range("B" & Rows.Count).End(xlUp).Row

Dim rowCnt As Long
For rowCnt = lastRow To 3 Step -1

    Range("B" & rowCnt).Resize(4, 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Next

Answer 1

假设订单确实很重要，我认为你至少需要两个循环;像，

row[4].add(button[18]);
for (int i = 0; i < 14; i++) {
    int ndx = 1 + (i / 4);
    row[ndx].add(button[i]);
}
for (int i = 1; i < 5; i++) {
    row[i].add(button[13 + i]);
    add(row[i]);
}

应该是等效的（所有按钮以相同的顺序添加到一行并添加所有行）。

Answer 2

类似的东西：

    for (int r = 0; r < 4; r++) {
        for (int i = 4 * r; i < 4 * r + 4; i++)
            row[r + 1].add(button[i]);
        row[r + 1].add(button[r + 14]);
        add(row[r + 1]);
    }

显然缺少row[4].add(button[18]);，但无论如何这看起来很虚假。

将4个for循环转换为1个

2 个答案: