查看: 703|回复: 17
求大神们帮忙,超难问题，急！！！！！
阅读权限10
在线时间 小时
本帖最后由 湖南阿永 于
23:23 编辑
R9XCJQC}$RZRJ]L`NW`S7$L.png (39.95 KB, 下载次数: 2)
13:58 上传
在V5里输入一个函数显示结果为E1：U1里的得数，而且要按E5：U5里的数值的大小，从大到小依次排列。求指教。V6里的结果也是E1：U1里的得数按E6：U6里的数值的大小从大到小排列，V7：V23以此类推，像这样里面有时最大值有几个，有时最小值有几个，请哪位大神告诉我一个函数。谢谢。
就是E5：U5里有很多数值，里面最大值有16个，第二大值有一个，用函数怎样在V5里显示出这16个最大值对应在E1：U1里的数值，用什么函数把E5：U5里第二大的数值所对应数字J1显示在W5里，当然第一行只有一个第二大值，下面几行就不一样了，而且都有相同的值。
阅读权限100
在线时间 小时
模拟一下结果，再上传一下附件复制代码
阅读权限10
在线时间 小时
本帖最后由 湖南阿永 于
23:22 编辑
笑着...两年过去 发表于
6B[%1R@E@K]687AR73GD76P.png (68.39 KB, 下载次数: 2)
20:23 上传
结果就是这样，这是手工输入的，要用公式怎么能做到。
第一个表格根这个是一样的，只是这里用手工输入了一下结果，没有公式，我现在求的就是用公式怎么才能做到。就是E5：U5里有很多数值，里面最大值有16个，第二大值有一个，用函数怎样在V5里显示出这16个最大值对应在E1：U1里的数值，用什么函数把E5：U5里第二大的数值所对应数字J1显示在W5里，当然第一行只有一个第二大值，下面几行就不一样了，而且都有相同的值。
阅读权限10
在线时间 小时
怎么没得大神指点哦！！！！！
阅读权限100
在线时间 小时
湖南阿永 发表于
怎么没得大神指点哦！！！！！
没看懂要干嘛，，上个附件，说明 一下吧
阅读权限20
在线时间 小时
这个用vba会更容易点………………
阅读权限95
在线时间 小时
确实不懂你要做什么
阅读权限10
在线时间 小时
第一个表格根第二个是一样的，就是E5：U5里有很多数值，里面最大值有16个，第二大值有一个，用函数怎样在V5里显示出这16个最大值对应在E1：U1里的数值，用什么函数把E5：U5里第二大的数值所对应数字J1显示在W5里，当然第一行只有一个第二大值，下面几行就不一样了，而且都有相同的值。
阅读权限95
在线时间 小时
这样玩彩票，有些替你担心。
阅读权限10
在线时间 小时
刀羊 发表于
这样玩彩票，有些替你担心。
大师你就不用担心了，帮我解决问题才好。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师求大神帮忙看下这个需求怎么设计VBA代码，在线等，急
阅读权限20
在线时间 小时
dandan076 发表于
嗯，附件如下，做了两个过程，运行 ”筛选不重复值3“这个过程就行。不过速度挺慢的，需要改进革命尚未成 ...
好了，谢啦
阅读权限20
在线时间 小时
TomingTang 发表于
你好，想再问下你，如果我将results里面的运行结果再和base里的数据做匹配，看退货单号，如果base里的退货单号results里也有，则results中的退货单号继续保留，如果results里面的退货单号base里面没有，则删除results里面这行退货单号，请问这个要怎么做呀？代码怎么编写？
阅读权限20
在线时间 小时
& & & & & & & &
TomingTang 发表于
我自己写了一份关于这个results和base进行匹配的代码，能够运行，但是结果好像有点问题，因为如果是正确的话运行玩后base的退货单行数应该会和results的退货单行数一样，但是现在没有达到这个效果。麻烦帮我看下，代码如下：
Private Sub CommandButton2_Click()
Dim mybook, mysheet, mysheet1, mysheet2, name, x, y, ri, bh As String
Dim a, b, c, rb, rc, rh, rl, i, j, K, m, d(20) As Integer
mybook = ThisWorkbook.name
mysheet1 = &base&
mysheet2 = &Results&
rl = Sheets(mysheet2).UsedRange.Rows.Count
a = Sheets(mysheet1).UsedRange.Rows.Count
For j = 2 To rl
For i = 2 To a
&&If Sheets(mysheet1).Cells(i, 5).Value = Sheets(mysheet2).Cells(j, 1).Value Then
& &&&K = 0
& &&&Exit For
& &&&K = 1
If K = 1 Then
Sheets(mysheet2).Cells(j, 1).Clear
阅读权限20
在线时间 小时
dandan076 发表于
嗯，附件如下，做了两个过程，运行 ”筛选不重复值3“这个过程就行。不过速度挺慢的，需要改进革命尚未成 ...
想再问下你，如果我将results里面的运行结果再和base里的数据做匹配，看退货单号，如果base里的退货单号results里也有，则results中的退货单号继续保留，如果results里面的退货单号base里面没有，则删除results里面这行退货单号，请问这个要怎么做呀？代码怎么编写？
阅读权限70
在线时间 小时
lo9090 发表于
我自己写了一份关于这个results和base进行匹配的代码，能够运行，但是结果好像有点问题，因为如果是正确的 ...Private Sub CommandButton2_Click()
& & Application.ScreenUpdating = False
& & Dim mybook, mysheet, mysheet1, mysheet2, name, x, y, ri, bh As String
& & Dim a, b, c, rb, rc, rh, rl, i, j, K, m, d(20) As Integer
& & mybook = ThisWorkbook.name
& & mysheet1 = &base&
& & mysheet2 = &Results&
& & rl = Sheets(mysheet2).UsedRange.Rows.Count
& & K = 1
& & a = Sheets(mysheet1).UsedRange.Rows.Count
& & For j = 2 To rl
& && &&&For i = 2 To a
& && && && &If Sheets(mysheet1).Cells(i, 5).Value = Sheets(mysheet2).Cells(j, 1).Value Then
& && && && && & K = 0
& && && && && & Exit For
& && && && &Else
& && && && && & K = 1
& && && && &End If
& && &&&Next
& && &&&If K = 1 Then
& && && && &'Sheets(mysheet2).Cells(j, 1).Clear
& && && && &Worksheets(&Results&).Cells(j, 1).EntireRow.Delete
& && &&&End If
& & Next
& & Application.ScreenUpdating = True
End Sub复制代码你这样进行处理操作会很慢
一个个进行匹配
可以优化：
1、用数组处理
2、把需要删除 的行用range一个区域集合起来最后一次性进行删除操作；
3、用字典判断是否有一样的；
阅读权限20
在线时间 小时
TomingTang 发表于
你这样进行处理操作会很慢
一个个进行匹配
可以优化：
这份代码来测试结果有问题，运行完后base和results的运货单的行数不一样，（正确情况下，匹配完以后results和base的行数应该是一样的）请问是什么原因，可否提供下代码给我参考下。。。谢谢
阅读权限70
在线时间 小时
& & & & & & & &
lo9090 发表于
这份代码来测试结果有问题，运行完后base和results的运货单的行数不一样，（正确情况下，匹配完以后resul ...
你自己去具体看看少了那个，你写大代码运行速度很慢，具体是否正确我没有仔细去看。其实，删除这个你可以用match进行匹配，然后手动删除就行了。
阅读权限20
在线时间 小时
TomingTang 发表于
你自己去具体看看少了那个，你写大代码运行速度很慢，具体是否正确我没有仔细去看。其实，删除这个你可以 ...
可以具体点把。。我不是很懂唉关于这个
阅读权限70
在线时间 小时
& & & & & & & &
lo9090 发表于
可以具体点把。。我不是很懂唉关于这个
具体你的表的逻辑关系是怎么样的，我不太了解。就用match来判断少了那个，看看是代码误删了怎么的。不是match函数都不会把。还有你“Base”表中有很多退货单号是空白的，这有影响？
阅读权限20
在线时间 小时
TomingTang 发表于
具体你的表的逻辑关系是怎么样的，我不太了解。就用match来判断少了那个，看看是代码误删了怎么的。不是m ...
空白的不再考虑范围内，直接 ，逻辑关系就是将base和有结果后的result的退货单号做一个匹配，base里面没有的退货单号，results里面存在的话就把这个退货单号删除，只有在两张sheet同时存在这个退货单号时保留。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师求大神帮我解决学校的VBA题目_百度知道
求大神帮我解决学校的VBA题目
写在excel文件里就好了，谢谢
我有更好的答案
这已经是我近期碰到的同样的问题第3次了！请百度一下，有现成答案
题目在哪里？
、目标工作簿中仅有一张工作表，将该工作表名称修改为“汇总”；2、查找该工作表表格中所有成绩，将大于等于90分的成绩所在单元格背景颜色设为绿色、字体加粗；3、插入三张表格，分别命名为“1班“、“2班”、“3班”，且首行与原表相同；4、将原表中各学生情况按照班级分别复制到相应工作表中；5、为所有工作表的表格顶端加入一行，合并A1:F1单元格，并注明表格名称，名称与所在工作表名称相同。
其他类似问题
为您推荐：
vba的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求大神帮忙编写一下VBA编程_百度知道
求大神帮忙编写一下VBA编程
10 + 1&#47，当 S 第一次大于或等于 1;15 + 1/20 + 1&#47.4 时终止计算;25 + … + 1/5 +1&#47，此时项数 n 为_____通过编程求出结果;(5*n) + … 的前 n 项之和。 求 S = 1&#47
&n&&&(n&&n&nbspN是616Option&&nbsp,&&Dim&As&n&/&s&s&=&&=&n&&&Loop&5)&&&&As&n&&&&nbsp.Print&+&=&&&&Do&Double&nbsp.4&s&s&&D&&+&&&&&&&&*&0&ExplicitSub&&&s&While&test()&=&L0&sEnd&&1&1;D&1&&&&&&nbsp.Print&nbsp
其他类似问题
为您推荐：
vba的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁