在vba中的每一行之后为excel插入一个空行

时间:2018-04-01 00:22:09

标签: excel-vba vba excel

我使用以下代码:

Sub del_row()
Dim r As Long, y As Long
y = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
    For r = 2 To y Step 2
    Rows(r).Insert Shift:=xlDown
    Next r
End Sub

这样可行,但在第1020行停止,我不知道为什么。有没有办法可以修改它以继续,直到没有更多的数据?

1 个答案:

答案 0 :(得分:2)

如果要插入或删除行,请从下往上工作。

public static int DealerCardValue(List<Card> DealerHand)
{
    int[] dealerResults = GetAllPossibleHandValues(DealerHand);
    int dealerScore = dealerResults.Where(x => x < 22).DefaultIfEmpty().Max();
    return dealerScore;
}