在Excel VBA中的某個字符串上方插入空白行

Question

我有一個包含多個工作表的工作簿，每個工作表都有不同的產品信息。 在每張紙的B列中，最后一行是總計，如果它在B列中找到“ TOTALS”，我想插入一個空白行，我想在TOTALS行的正上方插入它。

現在代碼可以正常運行了，但是什么也沒發生。 如果可以將它們合並為一個過程，則不必調用插入行。

Sub Main()
  Dim ws As Worksheet

  For Each ws In ActiveWorkbook.Worksheets

  Call insert_row


  Next ws

End Sub


Sub insert_row()
Dim r As Long
  For r = 100 To 1 Step -1
    If Cells(r, 2).Value = "TOTALS" Then Rows(r).Insert
  Next r
End Sub

Answer 1

您需要使用ws作為您的子項的參數。 像這樣：

Sub Main()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        insert_row ws
    Next ws
End Sub

Sub insert_row(ws As Worksheet)
    Dim r As Long
    For r = 100 To 1 Step -1
        If ws.Cells(r, 2).Value = "TOTALS" Then ws.Rows(r).Insert
    Next r
End Sub