自下而上地去重后并转置数据

玉阳山人 · 发表于 2018-9-16 15:05

lss001 发表于 2018-9-15 17:46
Function nxzz(rng As Range)
ar = rng
For k = UBound(ar) To 1 Step -1

老师：恳请您给15楼里您的代码锦上添花，拓展一下功能。多谢了！

lss001 · 发表于 2018-9-16 15:39

WYS67 发表于 2018-9-16 13:35
再次恳请老师们帮忙解决15楼里的问题！

见楼上更新代码！！！

WYS67 · 发表于 2018-9-16 16:26

lss001 发表于 2018-9-16 15:39
见楼上更新代码！！！

老师：已测试，您写的代码非常完美地实现了我的愿望。祝老师身体健康，天天快乐！

玉阳山人 · 发表于 2018-9-16 16:34

lss001 发表于 2018-9-15 17:46
Function QCHP(qu As Range, Optional tjqu, Optional tj = "")
If IsMissing(tjqu) Then Set rng = R ...

老师：如果数据源和条件区域在《总表》的H5:I100000, 代码里If IsMissing(tjqu) Then Set rng = Range("B3:B" & qu.Count) 红色填充的不影响计算结果吧？

lss001 · 发表于 2018-9-16 17:36

If IsMissing(tjqu) Then Set rng = Range("B3:B" & qu.Count)
是默认区域，可自行修改！

玉阳山人 · 发表于 2018-9-16 17:44

lss001 发表于 2018-9-16 17:36
If IsMissing(tjqu) Then Set rng = Range("B3:B" & qu.Count)
是默认区域，可自行修改！

老师，明白了！原先没有遇到过，纯属少见多怪。非常感谢老师解疑释惑！祝您工作顺利，事业有成！这几天让您受累了！

		自动登录	找回密码
密码			免费注册

[求助] 自下而上地去重后并转置数据