EXCEL2010操作,如果每一行A列和B列的内容和另外一行一样,就将这两行标记为红色,如何做到?
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/05/09 05:55:34
EXCEL2010操作,如果每一行A列和B列的内容和另外一行一样,就将这两行标记为红色,如何做到?
第一问,假设数据是从A1:B10000
其实你的实际是A J二列
那就选中A列,按下ctrl键再左键点J列列标,这样二列全选中了
然后,条件格式,新建规则
最后一项,使用公式确定要设置格式的单元格
输入
=SUMPRODUCT(($A1&$J1=$A$1:$A$10000&$J$1:$J$10000)*1)>1
格式里定义字体颜色,红色,确定
即可
另外你追加的问题
代码是
Sub 筛选()
Dim ar As Range,br As Range,x As Range,cr(),c%
Set ar = Sheet1.Range("a2",Sheet1.[a65536].End(3))
Set br = Sheet2.Range("a2",Sheet2.[a65536].End(3))
For Each x In ar
If br.Find(x,,,1) Is Nothing Then
c = c + 1:ReDim Preserve cr(1 To c)
cr(c) = x
End If
Next x
If c > 0 Then Sheet3.[a1].Resize(c) = Application.Transpose(cr)
End Su
其实你的实际是A J二列
那就选中A列,按下ctrl键再左键点J列列标,这样二列全选中了
然后,条件格式,新建规则
最后一项,使用公式确定要设置格式的单元格
输入
=SUMPRODUCT(($A1&$J1=$A$1:$A$10000&$J$1:$J$10000)*1)>1
格式里定义字体颜色,红色,确定
即可
另外你追加的问题
代码是
Sub 筛选()
Dim ar As Range,br As Range,x As Range,cr(),c%
Set ar = Sheet1.Range("a2",Sheet1.[a65536].End(3))
Set br = Sheet2.Range("a2",Sheet2.[a65536].End(3))
For Each x In ar
If br.Find(x,,,1) Is Nothing Then
c = c + 1:ReDim Preserve cr(1 To c)
cr(c) = x
End If
Next x
If c > 0 Then Sheet3.[a1].Resize(c) = Application.Transpose(cr)
End Su
excel如何将A列中的数据,每隔5行相加的和,在B列中每5行最后一行中显示
如果我想取A列中每一行的英文语句中单词的首个英文字母 该如何处理?
matlab中,有一个txt文件(数据很大),如何表示它的每一行和每一列?
设n阶方阵A的行列式为a,且每一行元素之和为b(不等于0),则A的第n列元素的代数余子和是?
A列姓名重复,同一行B列出生日期也重复,则显示为"重复",如何使用公式?
EXCEL表格里,有三列,A,B,C列,如何解决:只要B列中任何一行等于A列中任何一行,则C列数值为1,否则为0
在A列和B列中有OK,NG两种文本,如何在EXCEL中将同一行相等的数目统计出.
excel中“A列乘以B列”减去“C列乘以D列”,再累加每一行的差值,函数应该怎么写?
在线等:excel 中 如果A列中的一个数值等于B列中的一个数值,则在C列中显示同一行D列的数值.
矩阵的第一行和第一列交换,可以么?
各位 如果我想取A列中每一行的英文语句中单词的首个英文字母该如何处理呢?
123456789填入81个方格中,每一行和每一列和为45.其中全部9个小方格中的每一行和每一列(有三个数)和为15.请