[已解决]把5个表连成表六样子

2014新手

用vba把把5个表连成表六样式

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2014-6-12 16:22

你看看是不是你需要的结果 是麻烦评个最佳嘛

跳转到最佳答案楼层

2014新手

我刚学的VBA只会照葫芦画瓢

2014新手

还不懂啥意思

我心飞翔410

你看看是不是你需要的结果 是麻烦评个最佳嘛

grf1973

1. Sub tt()
   
2.     Dim brr(1 To 10000, 1 To 5)
   
3.     Range("a2:e65536").Clear
   
4.     For Each sh In Worksheets
   
5.         If sh.Name <> ActiveSheet.Name Then
   
6.             arr = sh.[a1].CurrentRegion
   
7.             For i = 2 To UBound(arr)
   
8.                 n = n + 1
   
9.                 brr(n, 1) = n
   
10.                 brr(n, 2) = arr(i, 2): brr(n, 3) = arr(i, 3): brr(n, 4) = arr(i, 4)
    
11.                 brr(n, 5) = sh.Name
    
12.             Next
    
13.         End If
    
14.     Next
    
15.     [a2].Resize(n, 5) = brr
    
16.     [a2].Resize(n, 5).Borders.LineStyle = 1
    
17. End Sub
    

复制代码

grf1973

请看附件。

2014新手

4楼的的老师这个 Range("c:c").NumberFormatLocal = "@"可以加到哪里

2014新手

这样可以使得身份证号后几位不变成000

我心飞翔410

加在最后啊

我心飞翔410

写的有点复杂