Question

求EXCEL计算公式或者另一种显示A1至A10方法？求大神赐教

C1默认=A1， 因B1<>C1,所以C2=A2 第一个 C1=A1B2=C2,所以C3=A1 B3<>C3,所以C4=A2 优先顺序 第一顺序 当Bn=Cn,得 CN+1单元格固定=A1 B4=C4,所以C5=A1 第二顺序 当Bn<>Cn， B5<>C5,所以C6=A2 根据Cn=A1,A2,A3,A4,A5,A6,A7,A8,A9,A10, B6=C6,所以C7=A1 得Cn+1等A2,A3,A4,A5,A6,A7,A8,A9,A10,A1 B7=C7,C8=A1 B8=C8,C9=A1 B9=C9,C10=A1 B10<>C10,C11=A2 B11<>C11,C12=A3 B12=C12,C13=A1 B13<>C13,C14=A2 求：C2----列公式，其他算法也可以 B14<>C14,C15=A3 C列显示a1-a10的数字B15<>C15,C16=A4 B16<>C16,C17=A5 B17<>C17,C18=A6 B18<>C18,C19=A7 B19<>C19,C20=A8 B20<>C20,C21=A9 B21=C21,C22=A1

Answer 1

1、用D列作为辅助列，并在D2单元格输入公式：

=IF(B1<>C1,D1+1,0)

复制并下拉，即可得到A的N-1单元格序列号。

2、在C2单元格输入公式：

=IF(B1<>C1,INDIRECT("A"&D2+1),$A$1)

复制并下拉，便可得到你想要结果了。

追问

按公式下去变这样？

追答

C、D列的公式必须同时拉下去的呀，只是拉了一个D列没有用的

追问

已经是同时拉下来的了，截图数据是操作后的了

追答

不可能的，D3、D4单元格拉下来公式应该显示0

师傅啊，真是晕死啦！你看看A列数据，怎么会是文本格式的，当然不可能与B与C比较的啊！
需要把A列数据改成数值就可以啦

或者把公式改成：
=IF(1*B11*C1,D1+1,0)

估计你的C列也是文本格式吧，需要改成常规格式或者数值的

Answer 2

宏可以解决，至于公式就不大清楚了

追问

对宏不是很懂，请赐教

追答

dim a as long,b as long,c as long
for b=1 to [a65536].end(xlup).row
if cells(b,1).value=cells(b,2).value then
cells(b+1,3). value=cells(a+1,1)
a=a+1
c=0
else
cells(b+1,3).value=cells(c+2,1)
a=0
c=c+1
end if
next b

先把软件的宏安全开启信任（百度有步骤），然后录制宏取消录制（主要是要快捷键外壳，百度一下Excel录制宏），把上面的文本复制进入执行下看看

c1默认等于a1的话加上一句
cells(1,3).value=cells(1,1)

追问

只有加载宏是亮的！其他都不能用

追答

说明软件版本是简化版的。要不就是下载完全版本的要不就用它的试试能不能解决你的问题