如何将一个工作表中的数据按相关条件自动追加到另一个工作表的相应单元格中？

sjh701120

dsmch 发表于 2014-12-30 09:29
标题行录取志愿重复，删除一列

老师，我下载试了下，非常好!如有时间能不能在代码后加注释，我把代码放在另一个不同类型的工作表中用，总是只添加第4列至第17列的内容，期盼，谢谢!

dsmch

程序解释器
http://www.excelpx.com/forum.php ... 2%BD%E2%CA%CD%C6%F7

sjh701120

dsmch 发表于 2015-1-7 16:16
程序解释器
http://www.excelpx.com/forum.php?mod=viewthread&tid=186721&highlight=%B3%CC%D0%F2%BD%E2% ...

谢谢老师!下载看下，如不明白还请老师多指导!

sjh701120

dsmch 发表于 2014-12-30 09:29
标题行录取志愿重复，删除一列

大师，麻烦抽时间请你看下这个，是你写的代码，我“添加成绩”时能成功，用同样的代码添加录取信息时虽然添加成功，但是内容和原来的却不一致，对不上号，不知什么原因？盼解决，谢谢!

dsmch

1. Sub 提取全部()
   
2. Dim arr, brr, crr, d, i&, j%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. ReDim brr(1 To UBound(arr) - 2, 1 To UBound(arr, 2) - 2)
   
6. crr = Sheet2.Range("a1").CurrentRegion
   
7. For i = 3 To UBound(crr)
   
8.     For j = 3 To UBound(crr, 2)
   
9.        zf = crr(i, 1) & "," & crr(2, j)
   
10.        d(zf) = crr(i, j)
    
11.     Next
    
12. Next
    
13. For i = 3 To UBound(arr)
    
14.     For j = 3 To UBound(arr, 2)
    
15.        zf = arr(i, 1) & "," & arr(2, j)
    
16.        brr(i - 2, j - 2) = d(zf)
    
17.     Next
    
18. Next
    
19. Range("c3").Resize(UBound(brr), UBound(brr, 2)) = brr
    
20. End Sub

复制代码

sjh701120

dsmch 发表于 2015-1-8 19:27

试了下，可以正确添加了，谢谢dsmch老师!

还想咨询下，为什么将      
       zf = crr(i, 1) & "," & crr(1, j)         '
       zf = arr(i, 1) & "," & arr(1, j)         '
改为
       zf = crr(i, 1) & "," & crr(2, j)         '
       zf = arr(i, 1) & "," & arr(2, j)    就可以了，那个“1” 和“2”分别表示什么意思？能告诉下吗？谢谢

sjh701120

sjh701120 发表于 2015-1-9 10:04
试了下，可以正确添加了，谢谢dsmch老师!

还想咨询下，为什么将      

还是不是很懂，在“添加成绩”时，同样标题为2行，可为什么能正确添加，而 j大于10后就不能正确添加了？谢谢!

hzfmg

dsmch 发表于 2014-12-30 09:25

上面的代码编译通不过，不知是什么原因？

hzfmg

dsmch 发表于 2015-1-8 19:27

编译调试时“ReDim brr(1 To UBound(arr) - 1, 1 To 14)”变黄色，应该怎样修改？