Question

我是Excel中的VBA新手，所以需要一些帮助 - 我有一个运行3000行以上的电子表格。我试图在每个星期一之前设置一个空行（每周划分）。我的电子表格包含许多每天都有多次访问的人 - 每个人与下一个人分开，我需要每周一次的小计，然后是一个月的总计。我有一个脚本在每个星期一上面放置一个空行但是星期一可以连续4行出现，所以我需要一个脚本来删除一行，其中星期一在空白行的上方和下方 - 任何想法？。

Sub Insert_Rows()
Dim i As Long

For i = 5000 To 1 Step -1
    If Cells(i, "A").Value Like "*Monday*" Then
        Cells(i, "A").EntireRow.Insert
    End If
Next i
End Sub

Aileen McCarthy周一25 04 16

Aileen McCarthy星期二26 04 16

Answer 1

添加额外的If语句以检查上一行：

For i = 28 To 1 Step -1
    If Cells(i, "A").Value Like "*Monday*" Then
        If i = 1 Then
            Cells(i, "A").EntireRow.Insert
        ElseIf Not Cells(i - 1, "A").Value Like "*Monday*" Then
            Cells(i, "A").EntireRow.Insert
        End If
    End If
Next i

删除保存值高于和低于的空白行

1 个答案: