• 回答数

    4

  • 浏览数

    346

吃货终结者0416
首页 > 论文问答 > excelvba查重

4个回答 默认排序
  • 默认排序
  • 按时间排序

真龙木木

已采纳
VBA查找重复值一般使用字典对象,例子代码:set db = createobject("dictionary")arr = range("a1:d10") '需要检查的区域for i=1 to ubound(arr)    for j=1 to ubound(arr,2)        if xists(arr(i,j)) then            msgbox "发现重复值:" & arr(i,j)        else            db(arr(i,j)) = true        end if    next jnext i
289 评论

张小电1301

153 评论

半半童学

Sub x()    n = [b65536]End(3)Row - 10    If n <= 9 Then Exit Sub    For i = n To n + 10        If Cells(i, 2) = [b9] Then Cells(i, 3)IColorIndex = 39    NextEnd Sub

345 评论

yaodabian0214

Private Sub CommandButton1_Click() Dim BmCell As Range If TextBValue = "" Then MsgBox "请输入所要查询的编码" Exit Sub End If With Worksheets("刀具信息") value = "" For Each BmCell In Range("L2:L" & Range("l65536")End(xlUp)Row) If CStr(BmCell) = TextBValue Then '下一行if判断中返回查到相同编码的单元格地址如果有多个单元格地址用","隔开 If Value = "" Then Value = BmCAddress(0, 0) Else Value = Value & "," & BmCAddress(0, 0) End If End If Next End WithEnd Sub

276 评论

相关问答

  • wps查重怎么查重

    首先打开我们的电脑,进入到电脑桌面,在电脑桌面找到需要使用的文件,然后使用WPS打开,进入到WPS界面中点击上面菜单栏中的云服务。请点击输入图片描述点击云服务后

    王小丽0125 3人参与回答 2023-12-06
  • 论文查重查重软件

    目前市面上常用的论文查重软件有:万方、知网、维普等,这三家常和学校机构合作,应用广泛,其中万方、维普支持个人使用,知网目前不对个人查重提供服务。

    栤菊粅雨 3人参与回答 2023-12-11
  • 论文查重还是查重

    查重是检测一下与网上的相同度,改重是避免出现相同的部分

    baby晴晴 6人参与回答 2023-12-10
  • 查重查的是什么重

    论文查重查的是重复率,就是看你的论文与已发表的论文进行比对,看你是否有抄袭嫌疑。

    御龙装饰公司 9人参与回答 2023-12-07
  • 论文查重paperfree查重33

    40%左右。望采纳

    xuzhenying 3人参与回答 2023-12-05