UC知道在线等，麻烦高手帮我看看这段VB代码有什么问题
来源：百度知道 编辑：UC知道 时间：2024/06/07 19:23:47
Private Sub CommandButton1_Click()
Dim i, j
j = i - 1
For i = 8 To 999
For j = 9 To 1000
If Sheet1.Range("C" & Trim(Str(i))).Value = Sheet1.Range("C" & Trim(Str(j))).Value Then
Sheet1.Rows(i).Font.Color = RGB(255, 0, 0)
Sheet1.Rows(j).Font.Color = RGB(255, 0, 0)
End If
Next
Next
End Sub
程序运行后所有的都变红了，好像循环除了问题。麻烦高手帮忙看看，谢谢
这段代码的功能是要实现检查C列中如果有重名则这两列就字体变红。
在线等，成功立马采纳为答案！
Dim i, j
j = i - 1
For i = 8 To 999
For j = 9 To 1000
If Sheet1.Range("C" & Trim(Str(i))).Value = Sheet1.Range("C" & Trim(Str(j))).Value Then
Sheet1.Rows(i).Font.Color = RGB(255, 0, 0)
Sheet1.Rows(j).Font.Color = RGB(255, 0, 0)
End If
Next
Next
End Sub
程序运行后所有的都变红了，好像循环除了问题。麻烦高手帮忙看看，谢谢
这段代码的功能是要实现检查C列中如果有重名则这两列就字体变红。
在线等，成功立马采纳为答案！
Private Sub CommandButton1_Click()
Dim i, j
For i = 8 To 999
For j = i+1 To 1000 '‘、i
If Sheet1.Range("C" & Trim(Str(i))).Value = Sheet1.Range("C" & Trim(Str(j))).Value Then
Sheet1.Rows(i).Font.Color = RGB(255, 0, 0)
Sheet1.Rows(j).Font.Color = RGB(255, 0, 0)
End If
Next
Next
End Sub
Dim i, j
j = i - 1 删除
Sheet1.Rows(i).Font.Color = RGB(255, 0, 0)
Sheet1.Rows(j).Font.Color = RGB(255, 0, 0)
j = i - 1在用支前初赋值