再次请求斑竹大人指点迷津！万分感谢

nymha

方漠

将以下代码COPY到你的文件中，运行即可。至于颜色，更改ColorIndex号码到你想要的颜色。Sub StockReconcillation()

Dim i, xz, Line As Integer

Dim PN As String

Line = 0

Range("A1").Select

PN = Left(Selection, 9)

ActiveCell.SpecialCells(xlLastCell).Select

xz = ActiveCell.Row

For i = 2 To xz + 1

Range("A" & i).Select

If PN = Left(Selection, 9) Then

   Line = Line + 1

   'MsgBox " Line is " & Line

Else

   'MsgBox "Change PN " & i

   PN = Left(Selection, 9)

   

   If Line <> 0 Then

     Range("A" & i - 1 - Line & ":I" & i - 1).Select

      With Selection.Interior

        .ColorIndex = 43

         .Pattern = xlSolid

      End With

      Line = 0

    End If

   

End If

   

Next

  

      

End Sub

情比金坚

在F2列写=LEFT(A2,10)往下拖然后用条件格式：公式=COUNTIF($F$2F$27,F2)>1

方漠

呵呵！厉害厉害，果然够简单，又学到了一招.....害得我头晕乎乎的写了半天。

nymha

感谢版主的高招,您真是厉害!!!在下佩服得紧,谢谢啊!!!!也感谢方漠兄弟的热心肠,您也是个厉害角色!!拜谢!!!