写一段VBA代码，将一行的三个两位数中随机用替换成星号，然后再转到第二行重复第一步的操作，一直替换完所有的行。

Sub ReplaceNumbers() Dim rowNum As Integer Dim colNum As Integer Dim cellValue As String Dim newCellValue As String Randomize ' 初始化随机数生成器

' 循环替换每一行中的数字
For rowNum = 1 To ActiveSheet.UsedRange.Rows.Count
    For colNum = 1 To ActiveSheet.UsedRange.Columns.Count
        cellValue = ActiveSheet.Cells(rowNum, colNum).Value
        If IsNumeric(cellValue) And Len(cellValue) = 2 Then
            ' 随机决定是否替换该数字为星号
            If Int(Rnd() * 2) = 1 Then
                newCellValue = Replace(cellValue, Mid(cellValue, Int(Rnd() * 2) + 1, 1), "*")
                ActiveSheet.Cells(rowNum, colNum).Value = newCellValue
            End If
        End If
    Next colNum
Next rowNum

End Sub