EXCEL两表数据对比大小

发布网友 发布时间：2022-04-22 08:36

我来回答

共4个回答

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

需要在sheet2中设置一个辅助列
假如2个表中的数据都在A列，那可以在表2的B列中输入 B1=A1-8月预测!A1
然后在表2的A1中设置条件格式
选择A1 格式---条件格式
选择“用公式确定要设置的单元格”选项
输入公式 =B1>0 设置想要的格式
输入公式 =B1<0 设置想要的格式
确定后用“格式刷”刷表2的A列中其余的数据就OK了，肯定好用的
注意：B1不能用绝对引用,要不然就不能用格式刷了！

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

可以在第三张表中作，在适当位置比如在b3内输入b3=8月实际b3-8月预测b3，然后复制其余单元格得出两表的差。在单元格b3种设置格式条件格式就得出你想要的效果了。然后复制其他单元格格式，就全部搞定了。

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

不在一张表示用条件格式好像不行
用VBA可以解决
ALT+F11
输入代码
Sub d()
Dim i, j As Integer
For i = 1 To 500
For j = 1 To 200
If Worksheets("sheet1").Cells(i, j) > Worksheets("sheet2").Cells(i, j) Then
Worksheets("sheet2").Cells(i, j).Font.ColorIndex = 3
Else
Worksheets("sheet2").Cells(i, j).Font.ColorIndex = 6
End If
Next
Next
End Sub

按F5运行下就行了
100和1000表示最大列和最大行，可以自己修改
3和6分别是字体颜色，运行下不满意也可以自己改

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

打开表，假设你的数据都在A列，按ALT+F11,双击SHEET1,复制粘贴下列代码，按F5,看效果，我已经测试过了。
Sub abab()
Dim i As Integer
For i = 1 To 5000
If Sheets(1).Cells(i, 1).Value < Sheets(2).Cells(i, 1).Value Then
Sheets(2).Cells(i, 1).Select
With Selection.Interior
.ColorIndex = 5
End With
End If
If Sheets(1).Cells(i, 1).Value > Sheets(2).Cells(i, 1).Value Then
Sheets(2).Cells(i, 1).Select
With Selection.Interior
.ColorIndex = 6
End With
End If
Next i
End Sub