刪除空白行，其中保存值高於和低於

我是Excel中的VBA新手，因此需要一點幫助 - 我有一個運行3,000行以上的電子表格。我試圖在每個星期一之前放置一個空白行（每週分割一次）。我的電子表格包含許多人每天有幾次訪問 - 每個人都與下一個分開，我需要每週的小計，然後是一個月的總計。我有一個腳本在每個星期一的上方放置一個空行，但是星期一可能會出現在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

艾琳·麥卡錫週一25 04 16

艾琳·麥卡錫週二26 04 16

Aileen McCart HY週二26 04 16

艾琳·麥卡錫週二26 04 16

來源

2016-05-23 Marcidee

不明白你的目標：/ – findwindow

添加一個額外的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

來源

2016-05-23 21:12:32 Stadem

刪除空白行，其中保存值高於和低於

回答

相關問題