检查BC列姓名不对应的问题

老KD · 发表于 2020-3-9 11:23

老师好，一个工作薄内有多张表，其中B、C列有户主姓名不对应等问题，祥见附件表一，请大师制作个VBA，来检查和标明一薄内几表的问题，谢谢谢谢！！！

wangweihebtu · 发表于 2020-3-9 11:36

我水平低，但是我想提醒一下，VBA不是万能的，你先把表格整的相对规范一点儿再说吧

老KD · 发表于 2020-3-9 15:42

本帖最后由老KD 于 2020-3-9 15:57 编辑

wangweihebtu 发表于 2020-3-9 11:36
我水平低，但是我想提醒一下，VBA不是万能的，你先把表格整的相对规范一点儿再说吧

老师好，我发的表一是经过加工后规范的，其它表格是基层发来的就这样，之所以其它表没有整理，是因为怕VBA代码在规范的表内可以用，但在基层发来的表内就运行受阻，所以除一表外的其它表有意不整理，目的是保持原样，便于检查VBA的运行有无问题。老师们可以针对表一来制作VBA，删除其它表格，来试试。谢谢谢谢

excel海 · 发表于 2020-3-9 16:05

这就是几个判断吧
Private Sub Test()
Dim i, j, k, arr, brr, x, y
Dim sht As Worksheet
For Each sht In Sheets
      With sht
         For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
            If .Cells(i, 1) <> "" And .Cells(i, 1) <> "序号" Then
                  If .Cells(i, 1).Offset(0, 1) = "" Then
                     .Range(.Cells(i, 2), .Cells(i, "k")).Interior.Color = vbBlue
                  ElseIf .Cells(i, 1).Offset(0, 1) <> .Cells(i, 1).Offset(0, 2) Then
                     .Range(.Cells(i, 2), .Cells(i, "k")).Interior.Color = vbBlue
                  End If
            End If
         Next
      End With
Next
End Sub

excel海 · 发表于 2020-3-9 16:08

...................

老KD · 发表于 2020-3-9 16:09

本帖最后由老KD 于 2020-3-9 16:16 编辑

这个表格内部情况是比较多，比较复杂难做。

老KD · 发表于 2020-3-9 16:18

excel海发表于 2020-3-9 16:08
...................

大师，感谢感谢，太强大了，这么复杂，手到擒来！

excel海 · 发表于 2020-3-9 16:23

老KD 发表于 2020-3-9 16:18
大师，感谢感谢，太强大了，这么复杂，手到擒来！

表太乱就不好搞,最好先处理原始数据,后期处理起来就简单多了

老KD · 发表于 2020-3-9 17:21

excel海发表于 2020-3-9 16:23
表太乱就不好搞,最好先处理原始数据,后期处理起来就简单多了

大师，就是要保持原表的乱，这么乱你的代码已完全搞定！谢谢啦

excel海 · 发表于 2020-3-9 17:25

老KD 发表于 2020-3-9 17:21
大师，就是要保持原表的乱，这么乱你的代码已完全搞定！谢谢啦

不敢称大师啊,我也是学习中

		自动登录	找回密码
密码			免费注册

[求助] 检查BC列姓名不对应的问题

评分

最新热点 /1