一个简单公式，不想借助辅助实现，把它搞复杂一点。

xiangbaoan

一个公式：
=--MID("123456765432",MOD((ROW()-1),12)+1,1)
功能是，从某列第一个单元格下拉，依次结果如下：
{1;2;3;4;5;6;7;6;5;4;3;2;1;2;3……}
现不想用mid  "123456765432" 之类，直接通过计算得到结果，能否实现?
公式长短、繁简不限，常规的、数组(区域的也行，如1—n行，n>12)的都行。
结帖：
本帖得到完美答案，楼层从后到前，附答案：

micch 老师答案 (16楼)
=7-ABS(MOD(ROW(),-12)+5)

cll1998 老师答案 (12楼)
=IF(MOD(INT((ROW()-1)/6),2),6+2-MOD(ROW()-1,6)-1,MOD(ROW()-1,6)+1)

准提部林 老师答案 (11楼)
=7-ABS(MOD(ROW(A1)-1,7*2-2)-7+1)

以上公式均能完美达到要求（通过数的运算得到结果），且本人能在实际运用中移植、变通。
感谢以上老师们的付出！学习了老师们的独到思维，一并感谢其它参与大师（laowuwyx老师、约定的童话老师）！

约定的童话

这恐怕得vba生成了吧？没辅助列函数放哪啊？

xiangbaoan

约定的童话 发表于 2018-10-6 15:13
这恐怕得vba生成了吧？没辅助列函数放哪啊？

Sub test()
Dim s$, n&
s = "123456765432"
For n = 1 To 31
    Debug.Print Val(Mid(s, (n - 1) Mod 12 + 1, 1))
Next
End Sub
'这是我的VBA，不想用到"123456765432"， 或 array(1,2,3,4,5,6,7,6,5,4,3,2)，你看能实现吗

micch

这个公式已经算简单的了，不如你输入12行，然后A13=A1，下拉

xiangbaoan

micch 发表于 2018-10-6 15:26
这个公式已经算简单的了，不如你输入12行，然后A13=A1，下拉

大仙，我是想 复杂，想通过 数的运算 得到结果，意思是 通过复杂的数的运算来实现，不想就这么简单。

micch

1. =IF(ROW()>12,INDIRECT("r[-12]",),INDIRECT("r[-1]",)+-1^(ROW()>7))

复制代码

如果是第一行A1输入；；
换一个a2输入

1. =IF(ROW()=2,1,A1+-1^((MOD(ROW(A11),12)+1)>6))

复制代码

laowuwyx

xiangbaoan 发表于 2018-10-6 15:31
大仙，我是想 复杂，想通过 数的运算 得到结果，意思是 通过复杂的数的运算来实现，不想就这么简单。

想法异于常人。

xiangbaoan

micch 发表于 2018-10-6 15:31
如果是第一行A1输入；；换一个

公式学习了，很是让人受教

xiangbaoan

我还是想算出来，如
到了row() = 8 时，计算出6 来；
……
到了row() = 13 时，计算出1 来；
……
如此循环，不知能否实现?
今日鲜花紧张，稍后补上各位……
才4朵，光伟正的论坛啊，请快点赐我鲜花吧……

xiangbaoan

laowuwyx 发表于 2018-10-6 15:32
想法异于常人。

呵呵，大仙见笑，闲来无事，想学一下大神们的思路。