归纳与总结，以备自查！

ctp_119

表一到表二vba法：

1. Private Sub CommandButton1_Click()
   
2. Dim arr As Variant
   
3. Dim brr()
   
4. Dim s As Integer
   
5. Dim i As Integer
   
6. Dim j As Integer
   
7. Sheet4.Range("a1:j1") = Array("班级", "考号", "姓名", "语文", "数学", "英文", "政治", "历史", "地理", "生物")
   
8. arr = Range("a3:e2053")
   
9. ReDim brr(1 To UBound(arr), 1 To 10)
   
10. For i = 1 To UBound(arr)
    
11.     If i Mod 7 = 1 Then
    
12.         j = j + 1
    
13.         s = 0
    
14.         brr(j, 1) = arr(i, 1)
    
15.         brr(j, 2) = arr(i, 2)
    
16.         brr(j, 3) = arr(i, 3)
    
17.     End If
    
18.     s = s + 1
    
19.     brr(j, 3 + s) = arr(i, 5)
    
20. Next i
    
21. Sheet4.Range("a2").Resize(UBound(brr), 10) = brr
    
22. End Sub
    

复制代码

ctp_119

从表二到表一vba法：

1. Private Sub CommandButton2_Click()
   
2. Dim i As Integer
   
3. Dim j As Integer
   
4. Dim s As Integer
   
5. Dim arr As Variant
   
6. Dim brr()
   
7. arr = Range("g2:p295")
   
8. ReDim brr(1 To 7 * UBound(arr), 1 To 5)
   
9. For i = 2 To UBound(arr)
   
10.     For j = 4 To 10
    
11.         s = s + 1
    
12.         brr(s, 1) = arr(i, 1)
    
13.         brr(s, 2) = arr(i, 2)
    
14.         brr(s, 3) = arr(i, 3)
    
15.         brr(s, 4) = arr(1, j)
    
16.         brr(s, 5) = arr(i, j)
    
17.     Next j
    
18. Next i
    
19. Sheet5.Range("a1:e1") = Array("班级", "考号", "姓名", "课程", "成绩")
    
20. Sheet5.Range("a2").Resize(UBound(brr), 5) = brr
    
21. End Sub
    

复制代码

ctp_119

从表一到表二，从表二到表一的SQL方法情况下面动画：

xgy0214dxy

谢谢了。收藏

lbay

楼主你好，我是个菜鸟，你的动态查询真的很好，但是，如何去修改原始数据呢？

dengjq2000

程版，方法太多了，收集得挺全面的，收下了。呵呵……

huotie

大神，请帮我看一下这个应该怎么改？
谢了~


导入accuracy_txt_V1_20150414.rar (26.1 KB, 下载次数: 5)

2015-4-14 22:19 上传

点击文件名下载附件

wangxuchun

请教版主：http://club.excelhome.net/thread-1198638-1-2.html　这个VBA为什么会运行不正常啊？

jpj123

好作品，谢谢老师分享。

ctp_119

下面对这个问题做个归纳！！以备用。