我有一系列数据,我想在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