如何使用Excel VBA识别列中的整数

Question

我有一张excel表，我在序列号的旁边提到了几个标签名称。是否可以使用excel vba识别给定列中的Integer值，并使相应的标记名称为Bold。

Answer 1

使用以下子。我测试了它并找到了工作。

    Sub fBold()
        Dim UsedCell, MyRange, srcIdentifier

        UsedCell = Sheets("Sheet1").Cells(1, 1).SpecialCells(xlLastCell).Row
        Set MyRange = Range("A1:A" & UsedCell)
        For Each intCell In MyRange
            If Not InStr(1, intCell.Value, ".") > 0 Then
                intCell.Offset(0, 1).Font.Bold = True
            End If
        Next
    End Sub