开源代码查重工具

问：gitlab上会查重吗

1. 答：会。
   论文查重是否可以查到github，这个需要提前知道查重系统比对数据库中是否存在Github相关的论文资料。如果是存在的，只要你借鉴或者抄袭了，肯定会被查查出来的。
   GitLab是一个用于仓库管理系统的开源项目，使用Git作为代码管理工具，并在此基础上搭建起来的web服务。安装方法是参考GitLab在GitHub上的Wiki页面。

问：我是新手菜鸟 找的开源代码弄得这个VBA单列查找重复 求教个问题 下面的代码为什么不能运行 哪里出的问题

1. 答：代码写的真乱..重新给你写个并加了注释 你参考一下吧
   Sub 单列查重()
   Dim iRow, i, j As Long
   iRow = Range("A65536").End(xlUp).Row '获得A列有数据的最大行数.
   For i = 1 To iRow - 1 '从第一行循环至最大行数减一行
   For j = i + 1 To iRow '从第二行循环至最大行数
   If Cells(i, 1) = Cells(j, 1) And Cells(i, 1) <> "" Then '判断有没有重复,且单元格不能等于空
   Cells(i, 1).Interior.ColorIndex = 3 '要查的有重复,标记颜色为红色
   Cells(j, 1).Interior.ColorIndex = 3 '查到的有重复,标记颜色为红色
   End If
   Next
   Next
   End Sub
2. 答：EhCell 你并没有对他进行赋值，也就是说EhCell为Nothing，可以将代码修正一下
   Private mandButton1_Click()
   Dim i, j, k As Integer
   Dim s, num As Single
   Dim EhCell As Range'声明变量类型
   s = 0
   num = 20
   For i = 1 To num - 1 - s
   k = 0
   For j = 2 + i - 1 - k To num - s
   If Cells(j - k, 1) = Cells(i, 1) Then
   Rows(j - k).Select
   Set EhCell = Cells(j - k, 1)'设置ChCell对象
   EhCell.Interior.ColorIndex = 3
   Set EhCell = Nothing'释放ChCell对象
   k = k + 1
   End If
   Next j
   s = s + k
   Next i
   End Sub
3. 答：EhCell不是一个对象，没看见你的代码里有任何定义EhCell的语句。
   看你的意思，你把EhCell改成Cells(j - k, 1)试试
   如果是想给一行加色，就改成selection
4. 答：呃，得仔细看看，再试试。