Question

关于excel函数的几个问题 有点难度 高手请进！

A B C D E
1 SD1 2月 3 4000 F
2 SD2 2月 4 5000 F
3 SD1 2月 3 3000 G
4 SD1 3月 0 2000 H

如果 A列中的单元格和之前的单元格有重复 则向上选取和它重复的最近的行比较 如果B列中的月份一样 则在E列中相对应的单元格 显示“G" 如果B列中的月份不同 则显示“H" 如果没有重复 则显示 "F" 请问函数如何写
A B C D E 往右边挪一下 - - 对上号

Answer 1

试试这个公式。
E2=IF(COUNTIF($A$1:A1,A2),IF(INDEX(B:B,MAX(($A$1:A1=A2)*ROW($1:1)))=B2,"G","H"),"F")
是数组公式，按Ctrl+Shift+Enter结束公式输入。
向下复制公式。

Answer 2

没说的了。

Answer 3

E1="F"
E2输入如下数组公式(用Shift+Ctrl+Enter输入)：
=IF(COUNTIF(A$1:A1,A2)>0,IF(B2=INDEX($B$1:$B1,MATCH(MAX((A$1:A1=A2)*ROW(A$1:A1)),(A$1:A1=A2)*ROW(A$1:A1))),"G","H"),"F")
下拉

Answer 4

比如表中第一行是标题行(名称,月份等等),在第E2输入公式=IF(A2="","",IF(COUNTIF(A$2:A2,A2)=1,"F",IF(B2=LOOKUP(1,0/(A$1:A1=A2),B$1:B1),"G","H")))公式向下复制,公式可不必按Ctrl+Shift+Enter.

Answer 5

楼主，我写了一段EXCEL用宏代码来处理您这个问题
Dim rs As Long
Dim i, j As Long
rs = Range("A65536").End(xlUp).Row
Range(Cells(1, 5), Cells(rs, 5)) = "F"
For i = 2 To rs
For j = i - 1 To 1 Step -1
If Cells(i, 1) = Cells(j, 1) Then
Cells(i, 5) = "H"
If Cells(i, 2) = Cells(j, 2) Then
Cells(i, 5) = "G"
End If
Exit For
End If
Next
Next
===================================================================
上述代码使用方法如下:

1. 录制宏: "工具"菜单-->宏-->录制宏)--> 窗口上"快捷键(K)"下面Ctrl的右侧格内输入一个字母(作为快捷键)-->确定-->开始录制宏。

2. 编辑宏: 开始录制后即可直接按"停止"停止录制, 然后"工具"菜单-->宏-->宏(M)-->选择刚建那个宏-->点右边"编辑"按钮-->进入宏编辑界面-->删除Sub XXX 至 End Sub之间内容-->然后将上述VBA代码复制并粘贴到 Sub XXX 至 End Sub之间-->按工具栏上的"保存"按钮-->"文件"菜单-->关闭并反回MicorSoft Excel

3. 执行宏: 用快捷键(按住Ctrl不放, 再按那个录制宏时输入的字母)执行宏。也可以通过菜单"工具"-->宏-->宏(M)-->窗口上选宏名, 按"执行"按钮执行宏。