excel2003中，請VBA高手幫忙編寫代碼：如下圖片解釋

代碼如下，對選中區域進行比較並填充顏色，詳見附件。

Private Sub WorksheePrivate Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Co%, Ro&, i&, j%

Ro = Target.Rows.Count

Co = Target.Columns.Count

If Ro = 1 Or Co = 1 Or Target.Count Mod 256 = 0 Then Exit Sub

Target.Interior.ColorIndex = 0

For i = 1 To Ro

For j = 1 To Co

If Target(i, j) = Target(Ro, j) Then Target(i, j).Interior.ColorIndex = j + 2

Next j, i

End Sub

上一篇:斐訊k2pb1刷什麽固件好

下一篇:川崎機器人自動氣體保護焊延遲集氣如何調整