VBA-表1填入数据然后数据自动填入至表2、这个VBA是怎么弄的??，请大神教我，萌新...

aa37883788

有几个问题想请大伙教我:
1，这串VBA是什么意思？
Sub 存档()
    Dim arr, r%, i%
    arr = Array([F4], [h4], [D5], [j4], [l4], [d4], [h5], [J5], [d6], [L5], [F6], [H6]，[N4])
    With Sheet4
        r = .Range("a65536").End(3).Row
        If r = 2 Then
            i = 3
            .Range("a" & i) = 1
        Else
            i = r + 1
            .Range("a" & i) = .Range("a" & r) + 1
        End If
        .Range("b" & i).Resize(1, 13) = arr
    End With
    MsgBox "OK！保存成功！"
End Sub


2，表1填入数据，表2自动生成这份数据，这个功能叫什么？

表1

                           表1

表2

                          表2

3，表2的这个序列能否删除不自动录入吗？


4，这个串VBA有没有简单点，方便修改的？比如我在表2的离职日期后面再增加几列数据后。

本人在做表格的时候想到了这个东西，但是不会怎么编写VBA
能不能请大伙教教回我怎么弄这个东西。

数据表.rar (21.32 KB, 下载次数: 5)

2019-10-11 15:34 上传

点击文件名下载附件

清风竹-

Sub 存档()
    Dim arr, r%, i%
    arr = Array([F4], [h4], [D5], [j4], [l4], [d4], [h5], [J5], [d6], [L5], [F6], [H6], [d7], [f7], [h7], [j7]) '[d7], [f7], [h7], [j7]为新增的单元格。
    With Sheet4
        .Range("b" & .Range("b65536").End(3).Row + 1).Resize(1, UBound(arr) + 1) = arr
    End With
    MsgBox "OK！保存成功！"
End Sub