excel的比对公式

发布网友 发布时间：2022-04-22 07:55

我来回答

共1个回答

热心网友 时间：2022-06-18 03:22

我写了一个两个不同sheet单元格作比较的宏，你可以参照以下，原理是一样的.

Sub Macro1()
'
' Macro1 Macro
' マクロ记录日 : 2007/12/20 ユーザー名 :
'
' Keyboard Shortcut: Ctrl+r
'
Dim Flag As Boolean
Flag = True

Tier = InputBox("Please input Tier :")
If Tier > 250 And Tier <> "" Then
MsgBox "Input value > 250 "
End If
If Tier > 250 Then Exit Sub
Tier = InputBox("please input Tier :")
Sheet3.Range("A1").Value = Row
Sheet3.Range("A2").Value = Tier
For y = 1 To Tier
For x = 1 To Row
If Sheet1.Cells(x, y) <> Sheet2.Cells(x, y) Then
Sheet1.Activate
Sheet1.Range(Cells(x, y), Cells(x, y)).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Sheet2.Activate
Range(Cells(x, y), Cells(x, y)).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Flag = False
End If
Next x
Next y
If Flag Then
MsgBox "All the same!"
End If
Sheet1.Activate
End Sub

当两个SHEET单元格内数据不一样时会置成红色。