我正在尝试根据另一张纸的值更改单元格的颜色
Sub ColoredOutlier()
Dim i As Integer, j As Integer, x As Integer
For i = 1 To 50
For j = 2 To 23
If IsEmpty(Worksheets("outlier_index").Cells(i, j)) Then Exit For
x = Worksheets("outlier_index").Cells(i, j).Value
Worksheets("Sheet2").Cells(x+1, i).Interior.ColorIndex = 3
Next j
Next i
End Sub
当我在上面运行这些代码时,我收到“类型不匹配”错误,因为
x = Worksheets("outlier_index").Cells(i, j).Value
有人可以帮我解决我的问题吗?
如上所述,当单元格的值不是整数时,可能会发生类型不匹配错误。
您可以轻松修改代码以跳过包含字符串的单元格:
If IsEmpty(Worksheets("outlier_index").Cells(i, j)) Or Not _
IsNumeric(Worksheets("outlier_index").Cells(i, j)) Then Exit For
如果您的工作表中也有非整数数字,您可能需要进一步修改它。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句