[已解决]如何可以将表一数据，同时可以在表二中显视出来

新一

如何可以将表一数据，同时可以在表二中显视出来。如我附件，表一的数据，在表二中同步显视出来。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-17 13:31

………………

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr(1 To 16, 1 To 8), i&, s&
   
3. arr = ActiveSheet.UsedRange
   
4. Sheets("表二").Range("a3:h65536").ClearContents
   
5. For i = 2 To UBound(arr)
   
6.     If InStr(arr(i, 1), "对应单号") And Len(arr(i, 1)) > 5 Then
   
7.         brr = Cells(i, 1).Resize(16, 8)
   
8.         y = Val(brr(1, 6)): m = Val(brr(1, 7)): r = Val(brr(1, 8))
   
9.         rq = DateSerial(y, m, r)
   
10.         dh = Mid(brr(1, 1), 6)
    
11.         mc = Mid(brr(2, 1), 4)
    
12.         For j = 4 To UBound(brr)
    
13.             If brr(j, 2) <> "" Then
    
14.                 s = s + 1
    
15.                 crr(s, 1) = rq
    
16.                 crr(s, 2) = dh
    
17.                 crr(s, 3) = mc
    
18.                 crr(s, 4) = brr(j, 2)
    
19.                 crr(s, 5) = brr(j, 5)
    
20.                 crr(s, 6) = brr(j, 6)
    
21.                 crr(s, 7) = brr(j, 7)
    
22.                 crr(s, 8) = brr(j, 3)
    
23.             End If
    
24.         Next
    
25.         Sheets("表二").Range("a3").Resize(s, UBound(crr, 2)) = crr
    
26.     End If
    
27. Next
    
28. End Sub
    

复制代码

dsmch

………………

新一

如何可以在访问时，不弹出提示呀

新一

可否将表二的数据变化，在表一中同时显视出来。

dsmch

新一 发表于 2014-3-17 18:23
如何可以在访问时，不弹出提示呀

访问什么？有什么提示，用附件说明问题。

新一

还是那个表呀

新一

如何可以在访问时，不弹出提示呀