Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1538|回复: 2

[已解决]求助如何能快速查找到错误的单元格

[复制链接]
发表于 2016-5-16 15:29 | 显示全部楼层 |阅读模式
本帖最后由 lovelfg 于 2016-5-16 16:31 编辑

现要做一份问卷调查,共计1000张问卷,每张问卷一共有10个问题供人选择,将这十个问题依次编号为401、402、403等一直到414。
现由录入人员进行问题汇总录入至EXCEL的某一列,录入标准为录入问题编号,中间用"/"隔开,如"402/403/405"这种形式。
然而,由于问卷量极其巨大,录入人员难免会录入错误,比如录成了"12/403/405"又或者"402/4003/405"。
请教一下,有没有办法快速找到这些录入有错误的单元格呢?
之前未上传附件,现重新发帖救助,谢谢
最佳答案
2016-5-16 16:04
Sub Click()
    Dim A, B, i, j, x
    Sheets("Sheet1").Select
    i = Cells(Rows.Count, 1).End(xlUp).Row
    A = Range("a1:b" & i)

    For i = 2 To UBound(A)
        A(i, 2) = True
        B = VBA.Split(A(i, 1), "/")

        For j = 0 To UBound(B)
            x = B(j) * 1
            If x < 401 Or x > 414 Then
                A(i, 2) = False
                Exit For
            End If
        Next j
    Next i

    With Sheets(2)
        .Cells.Clear
        .Range("a1").Resize(UBound(A), UBound(A, 2)) = A
        .Select
    End With
End Sub

1.rar (18.24 KB, 下载次数: 6)

新建 Microsoft Excel 工作表.zip

7.41 KB, 下载次数: 4

求助附件

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-5-16 16:04 | 显示全部楼层    本楼为最佳答案   
Sub Click()
    Dim A, B, i, j, x
    Sheets("Sheet1").Select
    i = Cells(Rows.Count, 1).End(xlUp).Row
    A = Range("a1:b" & i)

    For i = 2 To UBound(A)
        A(i, 2) = True
        B = VBA.Split(A(i, 1), "/")

        For j = 0 To UBound(B)
            x = B(j) * 1
            If x < 401 Or x > 414 Then
                A(i, 2) = False
                Exit For
            End If
        Next j
    Next i

    With Sheets(2)
        .Cells.Clear
        .Range("a1").Resize(UBound(A), UBound(A, 2)) = A
        .Select
    End With
End Sub

1.rar (18.24 KB, 下载次数: 6)
回复

使用道具 举报

 楼主| 发表于 2016-5-16 16:16 | 显示全部楼层
爱疯 发表于 2016-5-16 16:04
Sub Click()
    Dim A, B, i, j, x
    Sheets("Sheet1").Select

谢谢!不过我水平还不够,要好好消化消化这段代码
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 16:36 , Processed in 0.721825 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表