vba 某列查重,如果重复则字体加粗

在VBA (Visual Basic for Applications) 中，你可以使用Excel的对象模型来操作单元格内容并改变其格式。如果你想检查某列的数据是否有重复，并对重复值的单元格设置加粗字体，可以按照以下步骤编写宏：

Sub BoldDuplicateValuesInColumn()
    Dim rng As Range
    Dim lastRow As Long
    Dim cellValue As Variant
    Dim ws As Worksheet
    
    '指定你要检查的范围，例如A1:A1000
    Set ws = ThisWorkbook.Worksheets("Sheet1") '假设当前活动工作表名为"Sheet1"
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    For Each rng In ws.Range("A1:A" & lastRow)
        cellValue = rng.Value '获取单元格的值
        If Application.WorksheetFunction.CountIf(ws.Columns("A"), cellValue) > 1 Then '如果该值在列A中有多个
            rng.Font.Bold = True '设置字体加粗
        End If
    Next rng
End Sub

这个宏首先获取当前工作表的最后一行，然后遍历每一行的A列。如果发现某个单元格的值在列A中出现了不止一次，就将该单元格的字体设置为加粗。