Question

我想在单元格（j，1）与（j-1,1）不同时插入一行，这是我的代码：

Sub colocar_Linha()
ultima_linha = Worksheets("Sheet2").Range("A3").End(xlDown).Row

    i = 3

    While i <= ultima_linha

        If Not Cells(i, 1) = Cells(i - 1, 1) Then

            Rows(i).Insert shift:=xlShiftDown

        End If

        i = i + 1

    Wend

End Sub

Answer 1

修复了最后一行值的获取和if条件在您发表评论后，我在行插入后加了1 这样，一旦插入一行，计数器就会随之移动，并跳过新的空白行。由于整个范围都增加了，因此ultima_linha也应该增加：

boolean isValid = string.matches("[a-zA-Z]+\\s+:\\s+[a-zA-Z]+\\s+:\\s+\\d+\\s+:\\s+\\d+");

在条件下插入行VBA Excel

1 个答案: