VB大虾有兴趣否,为什么CCC表第7列都是红色的.

Private Sub Command2_Click()Dim AAA As ObjectDim BBB As ObjectDim CCC As ObjectDim DDD As ObjectSet AAA = CreateObject("excel.application")AAA.Visible = TrueSet BBB = AAA.Workbooks.Open("J:\H\L.xls")Set CCC = BBB.worksheets(1)CCC.ActivateSet DDD = BBB.worksheets(2)DDD.ActivateDim i, j As Integeri = 6For j = 5 To 27 i = 6 Do While (i <= 115) If CCC.cells(i, 6) = DDD.cells(j, 8) Then CCC.cells(i, 7) = DDD.cells(j, 7) ElseIf Len(DDD.cells(j, 7).Value) = 0 Then CCC.cells(i, 7).Value = CCC.cells(i, 6).Value CCC.cells(i, 7).Interior.Color = RGB(255, 0, 0) End If i = i + 1 LoopNext jEnd Sub 收起