如何用VBA实现当A1=1时，L26:P26=AB12:AF12，当A1=2时，L26:P26=AB31:AF31

运行此宏
Sub aa()
If Range("A1") = 1 Then
Range("L26:P26").Value = Range("AB12:AF12").Value
ElseIf Range("A1") = 2 Then
Range("L26:P26").Value = Range("AB31:AF31").Value
End If
End Sub
或
工作表事件修改A1单元格值时直接运行
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = 1 Then
Range("L26:P26").Value = Range("AB12:AF12").Value
ElseIf Target.Value = 2 Then
Range("L26:P26").Value = Range("AB31:AF31").Value
End If
End If
End Sub