请高手帮忙修改一下代码，已达到需求目的

显示全部楼层 · 2011-2-15 11:32:15

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim cell As String
cell = Target.Address‘当前单元格名称，如$A$1
If Left(cell, 2) = "$A" Or Left(cell, 2) = "$Z" Then '仅对A和Z列应用本程序
With Target.EntireRow
If .Range("A1").Value > .Range("Z1").Value Then
.Ra...

千问 · 2011-2-15 11:32:15

Dim AI As StringDim BI As StringDim ZI As StringFor i = 1 To 10
'MsgBox "a" & i
AI = "A" & i
BI = "B" & i
ZI = "Z" & i
If Range(AI).Val...