表格自动更新到另一个表

fcxk2016

VAB如何让表1的数据从A2开始更新到表2的A4开始填充
表1修改增加表2自动更新
Book1.zip (1.57 KB, 下载次数: 45)

2017-3-7 16:37 上传

点击文件名下载附件

lsc900707

代码放sheet1的代码区即可：
Private Sub Worksheet_SelectionChange(ByVal T As Range)
   Dim arr
   arr = [a1].CurrentRegion
     For i = 2 To UBound(arr)
         If arr(i, 2) <> 0 Then k = k + 1
         For j = 1 To UBound(arr, 2)
             arr(k, j) = arr(i, j)
        Next
     Next
     With Sheet2
        .[a4:e5000].ClearContents
        .[a4].Resize(k, UBound(arr, 2)) = arr
     End With
End Sub

fcxk2016

lsc900707 发表于 2017-3-7 17:21
代码放sheet1的代码区即可：
Private Sub Worksheet_SelectionChange(ByVal T As Range)
   Dim arr

谢谢....