如何根据Excel中的单元格值自动插入行?

时间:2019-05-29 13:45:56

标签: excel vba

我有一系列数据,我想在Excel中的某个值以下自动插入空白行。我仍然是初学者,因此我想在宏中找到要说的日期,例如26/04 / 2019、03 / 05 / 2019、10 / 05 / 2019、17 / 05 / 2019、24 / 05/2019并插入2个空白下面的行。

我希望将2019年4月26日的数据复制到下面插入的空白行中,并重复上述日期。这些日期每个月更改一次。

我有以下代码,但它仅搜索一个值。另外,我仍然不确定如何将数据复制到空白行。

Sub BlankLine()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
    Set WorkRng = WorkRng.Columns(1)
    xLastRow = WorkRng.Rows.Count
    Application.ScreenUpdating = False
    For xRowIndex = xLastRow To 1 Step - 1
        Set Rng = WorkRng.Range("A" & xRowIndex)
        If Rng.Value = "26/04/2019" Then
            If Rng.Value = "03/05/2019" Then
               Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

0 个答案:

没有答案