Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2339|回复: 13

[已解决]请老师帮助编写代码

[复制链接]
发表于 2013-5-31 20:17 | 显示全部楼层 |阅读模式
请老师帮助编写代码,说明详见附件。谢谢!
最佳答案
2013-6-1 21:30
本帖最后由 大灰狼1976 于 2013-6-1 21:34 编辑

也来一个,向高手学习
  1. Private Sub CommandButton1_Click()
  2. Dim arr1(1 To 5), arr2(1 To 5), i%, j%, k%, l%
  3. For i = 2 To 6
  4.   arr1(i - 1) = Cells(i, 1) & "," & Cells(i, 2) & "," & Cells(i, 3) & "," & Cells(i, 4) & "," & Cells(i, 5) & "," & Cells(i, 6) & "," & Cells(i, 7) & "," & Cells(i, 8)
  5.   arr2(i - 1) = Cells(i + 6, 1) & "," & Cells(i + 6, 2) & "," & Cells(i + 6, 3) & "," & Cells(i + 6, 4) & "," & Cells(i + 6, 5) & "," & Cells(i + 6, 6) & "," & Cells(i + 6, 7) & "," & Cells(i + 6, 8)
  6. Next i
  7. l = 2
  8. For i = 1 To UBound(arr1)
  9.   k = 0
  10.   For j = 1 To UBound(arr2)
  11.     If arr1(i) = arr2(j) Then k = k + 1: arr2(j) = ""
  12.   Next j
  13.   If k = 0 Then Cells(l, 11).Resize(, 8) = Split(arr1(i), ","): l = l + 1
  14. Next i
  15. l = 8
  16. For i = 1 To UBound(arr2)
  17.   If arr2(i) <> "" Then Cells(l, 11).Resize(, 8) = Split(arr2(i), ","): l = l + 1
  18. Next i
  19. End Sub
复制代码

请老师编写代码.rar

8.97 KB, 下载次数: 9

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-5-31 20:27 | 显示全部楼层
这个题目我不是帮你写好了吗?你想要成什么样子?想要那个表三和表四放到哪呀?
回复

使用道具 举报

发表于 2013-5-31 20:31 | 显示全部楼层
你是不是要将选出来的结果放边上呀,帮你改好了

请老师编写代码.rar

18.08 KB, 下载次数: 9

回复

使用道具 举报

 楼主| 发表于 2013-5-31 20:43 | 显示全部楼层
lyf7276 发表于 2013-5-31 20:31
你是不是要将选出来的结果放边上呀,帮你改好了

谢谢!你编写的代码不能通用,只能在这两个表中用,相同数字的行改变后,执行代码时,有空行。我想要的代码是源数据表筛选后,直接生成新的两个表。再麻烦你一次。
回复

使用道具 举报

发表于 2013-5-31 20:48 | 显示全部楼层
你生成新表的数据源在哪?
回复

使用道具 举报

 楼主| 发表于 2013-5-31 21:20 | 显示全部楼层
lyf7276 发表于 2013-5-31 20:48
你生成新表的数据源在哪?

是表3和表4。在工作表sheet1中,被填上筛选结果了。谢谢!
回复

使用道具 举报

发表于 2013-5-31 21:25 | 显示全部楼层
你的表3和表四,筛选一次后要填上数字,那么第二次筛选出来的结果放哪?我把你的表三和表四建个新表你不满意,我又改了代码,把表三和表四放在你原来的地方也不行,你自己指定个单元格吧。你的这个表是只用一次,还是要循环用,还是要累加用?
回复

使用道具 举报

 楼主| 发表于 2013-5-31 21:33 | 显示全部楼层
lyf7276 发表于 2013-5-31 21:25
你的表3和表四,筛选一次后要填上数字,那么第二次筛选出来的结果放哪?我把你的表三和表四建个新表你不满意 ...

把表1筛选结果放到表3中,把表2筛选结果放到表4中.我在附件中说明了。谢谢!
回复

使用道具 举报

发表于 2013-5-31 21:39 | 显示全部楼层
现在表1的数字是放在表3中,表2的数字放在表4中呀,你把表1和表2的数字改动下再试下就知道了呀。你打开三楼的表试下呀。你自己换几个数字试,怎么能看出效果呀。你用三楼的附件试下吧
回复

使用道具 举报

 楼主| 发表于 2013-5-31 22:19 | 显示全部楼层
lyf7276 发表于 2013-5-31 21:39
现在表1的数字是放在表3中,表2的数字放在表4中呀,你把表1和表2的数字改动下再试下就知道了呀。你打开三楼 ...

能不能在筛选后,有数字的行之间不要存在空白单元格,数字都是从表格第一行开始填充。谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:40 , Processed in 0.557078 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表