不同表格查找重复数据VBA

分析两个表格中对应列的重复情况。

Sub Match_Dec()
    '两个表格,表格中的某一列为对应列,查找这两列中的重复记录和差异记录。
    
    Dim ar As Long, br As Long, i As Integer, j As Integer, num As Integer
        'ar/br为行数,i为外层循环数控制,j为内层循环数控制
    Dim A_Range As Range, B_Range As Range
    Dim myFont As Font
    
    Set A_Range = Worksheets("Sheet4").UsedRange
    Set B_Range = Worksheets("Sheet5").UsedRange
    
    ar = A_Range.Rows.Count
    br = B_Range.Rows.Count
    
    num = 0
'查找重复行
    
    For i = 1 To ar
        Debug.Print "第" & i; "行"
        For j = 1 To br
            If A_Range.Cells(i, 1) = B_Range.Cells(j, 1) Then
                Debug.Print "第" & j; "行为重复行"
'                'myRange.Cells(i, 1).EntireRow.Delete shift:=xlShiftUp 'xlShiftToLeft
'
                Set myFont = A_Range.Cells(i, 1).EntireRow.Font
                'Set myFont = B_Range.Cells(j, 1).EntireRow.Font
                With myFont
                .Name = "楷体"
                .Size = 15
                .Bold = True
                .Italic = True
                .Color = RGB(255, 0, 0)
                .Strikethrough = True '水平删除线
                .Underline = xlUnderlineStyleNone 'xlUnderlineStyleSingle 'xlUnderlineStyleDouble
                .Shadow = False  '是/否无变化??
                .Subscript = False
                .Superscript = False
                '具体属性设置参看:https://docs.microsoft.com/zh-cn/office/vba/api/excel.xlpattern
                End With
                
                num = num + 1
            End If
         Next
    Next
    
    Debug.Print "共有" & num & "重复行"
End Sub
  • 1
    点赞
  • 4
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

l_iu_xing

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值