vba - VBA - 如果单元格值更改，则移动行

Question

如果我更改特定行中的值，VBA 是否有办法移动特定范围内的行？

在图片中你可以看到我的桌子：

范围 A4:B7 中的日期采用德语格式 (DD.MM.YYYY)，范围 D3:O3 中的标题标签只是文本格式。

因此，例如当我将 B5 中的值更改为 01.12.2019 时，我希望该行中的单元格从 E5:H5 移动到 L5:O5。

这是我到目前为止所拥有的：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastrow As Long

    lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1

    If Target.Address = "$B$3:" & lastrow Then
        Call Mymacro
    End If
End Sub

但我真的不知道我必须如何编写宏。我希望有一个人可以帮助我。谢谢

编辑：

可以解决。感谢所有试图提供帮助的人:)

这是我现在使用的代码。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim DelRng As Range
    Dim Rng As Range
    Dim rngyear As Range
    Dim rngmonth As Range

    Dim lastrow As Long

    Dim year As String
    Dim month As String

    Dim FAA As Integer
    Dim MFG As Integer
    Dim AGA As Integer

    lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    Set KeyCells = Range("H11:H" & lastrow)

    year = Format(ActiveCell.Value, "yyyy")
    month = Format(ActiveCell.Value, "mmm")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        Set DelRng = Range("N" & Target.Row & ":BI" & Target.Row)
        DelRng.ClearContents

        Set rngyear = ActiveSheet.Range("N1:BI1").Find(What:=year, LookAt:=xlWhole, SearchDirection:=xlPrevious)
        If Not rngyear Is Nothing Then
            Set rngmonth = ActiveSheet.Range(Cells(Target.Row, rngyear.Column), Cells(2, rngyear.Column + 11)).Find(What:=month, LookAt:=xlWhole, SearchDirection:=xlPrevious)
            If Not rngmonth Is Nothing Then
                ActiveSheet.Cells(Target.Row, rngmonth.Column).Value = "DEL"
                If IsEmpty(ActiveSheet.Range("N" & Target.Row)) Then
                    FAA = ActiveSheet.Cells(Target.Row, rngmonth.Column).Find(What:="DEL", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column - 1
                    ActiveSheet.Cells(Target.Row, faa).Value = "FAA"
                End If
                If IsEmpty(ActiveSheet.Range("N" & Target.Row)) Then
                    MFG = ActiveSheet.Cells(Target.Row, rngmonth.Column).Find(What:="DEL", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column - 2
                    ActiveSheet.Cells(Target.Row, faa3).Value = "MFG"
                End If
                If IsEmpty(ActiveSheet.Range("N" & Target.Row)) Then
                    AGA = ActiveSheet.Cells(Target.Row, rngmonth.Column).Find(What:="DEL", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column - 3
                    ActiveSheet.Cells(Target.Row, faa2).Value = "AGA"
                End If
            End If
        End If
    End If
End Sub

标签： vbaexcel