Sub CheckNum()iCount = 0iRow = ActiveSheet.Range("s65535").End(xlUp).Row                         '取最后一行iCol = ActiveSheet.Range("dz2").End(xlToLeft).Column              '取最后一列MsgBox "iRow为： " & iRowMsgBox "iCol为： " & iCol    For m = 0 To iRow         For j = 0 To iCol                                              '列循环                 If ActiveSheet.Cells(m, j) = "●" Then             ActiveSheet.Cells(m, j) = Range("S" & m)                         iCount = iCount + 1          End If       Next   NextMsgBox "处理数值为： " & iCountEnd Sub