电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

vba判断excel中数据是否重复VIP免费

vba判断excel中数据是否重复_第1页
1/6
vba判断excel中数据是否重复_第2页
2/6
vba判断excel中数据是否重复_第3页
3/6
vba 判断excel 中数据是否重复 Private Sub CommandButton1_Click() Dim c(256), sum(256), a(256), b(256) As Variant 'c(256),sum(256) 获取单元格的值,a(256),b(256) 设置检查的列和列的字符长度 Dim type1(100) As Variant '保存每一列的类型 Dim area(100, 100) As Variant '保存数值类型的范围 Dim i, j, m, s, y, count1, count, k, strlen As Long 'i,j 用作循环,m,n 用作控制循环,count 记录有几列要检查,count1 有多少行数据 Dim str, strMsg, str1 As String 'str 获取列的字符串,str1 列的长度 strMsg 弹出信息 Dim startValue, endValue As Integer 'startValue 设置范围的默认起始值,endValue 默认终止值 Dim line As Integer '设置从第几行数据开始检查 Dim str2 As String '设置每列的类型 str 字符型,num 数据型,date 日期型 Dim flag As Boolean '是否有重复值的条件,flag=true and s=1 时有重复值 str = "2,3,4" '设置选择的列数 'str1 设置列的最大长度或数值的范围 范围用 num-num 格式 例如 1-2 如果为空则采用设定的默认值 str1 = "" '设置列的数据类型 num 数值型,str 字符型,date 日期型,空为字符型 str2 = "date,str,num" strlen = 10 '设置字符的默认长度 startValue = 1 '设置数值范围的默认起始值 endValue = 100 '设置数值范围的默认终止值 m = InStr(1, str, ",") n = InStr(1, str1, ",") l = InStr(1, str2, ",") i = 1 line = 1 '设置从第一行数据开始检查 Do While 1 = 1 If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i + 1, 1) = "" And Cells(i + 1, 2) = "" Then Exit Do Else count1 = count1 + 1 '计算有多少行数据 End If i = i + 1 Loop i = 0 While m > 0 a(i) = Left(str, m - 1) + 0 '获取所设置的列 If l = 0 Then type1(i) = "str" Else type1(i) = Left(str2, l - 1) End If If UCase(type1(i)) = "STR" Then '如果是字符型 If n = 0 Then b(i) = Left(str1, n) '获取所设置的列的长度 Else b(i) = Left(str1, n - 1) End If If b(i) = "" Then b(i) = strlen End If Else If UCase(type1(i)) = "NUM" ...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

vba判断excel中数据是否重复

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部