在EXCEL中如何实现4个数为一组，第五个数进位。

春风铺满小河岸

厉害，十进制变五进制

香川群子

按五进制，数值范围：  0  -  5^4-1  即 0 - 624

麻烦一点的拼接公式：

1. =IF(A1<125,"0",INT(A1/125))&IF(A1<25,"0",MOD(INT(A1/25),5))&IF(A1<5,"0",MOD(INT(A1/5),5))&MOD(A1,5)

复制代码

香川群子

生成所有 m+1进制 的n位数值的通用宏代码：

1. Sub GetSeqArr()
   
2.     Dim i&, j&, k&, m&, n&, tms#
   
3.     tms = Timer
   
4.     m = 4: n = 4
   
5.     k = (m + 1) ^ n
   
6.     ReDim a&(k, 1 To n)
   
7.     For i = 1 To k
   
8.         For j = n To 1 Step -1
   
9.             If a(k, j) = m Then a(k, j) = 0 Else a(k, j) = a(k, j) + 1: Exit For
   
10.         Next
    
11.         For j = 1 To n
    
12.             a(i, j) = a(k, j)
    
13.         Next
    
14.     Next
    
15.     [a1].CurrentRegion = ""
    
16.     [a1].Resize(k, n) = a
    
17.     MsgBox Format(Timer - tms, "0.000s ") & k
    
18. End Sub
    

复制代码

如设定m=9，则生成10进制的 0 - 9999 个数

m和n可以各自变化，也不受0-9的数值限制。呵呵。

cleverzhzhf

香川群子 发表于 2014-8-14 16:07
按五进制，数值范围：  0  -  5^4-1  即 0 - 624

麻烦一点的拼接公式：

一个个拼接有点慢：
http://club.excelhome.net/forum. ... 972&pid=7803535

1. =SUM(INT(MOD((ROW(1:1)-1)/4^COLUMN(A:I)*4,4))*10^COLUMN(A:I))/10+1111

复制代码

问山8828680

he2062 发表于 2014-8-14 12:30
10楼的不能达到要求，8楼的是达到要求的，但是如果数的位数超过4位了又不对了

=1&ROUNDUP(ROW(1:1)/16,0)&IF(MOD(ROUNDUP(ROW(1:1)/4,0),4),MOD(ROUNDUP(ROW(1:1)/4,0),4),4)&IF(MOD(ROW(1:1),4),MOD(ROW(1:1),4),4)

wlc5201130

a1=1111
a2=A1+INDEX({1,7,67,667,6667,66667,666667,6666667,66666667},9-COUNT(0/(MOD(ROW(A1),TRANSPOSE(4^ROW($1:$8))))))

简化下
a1=1111
A2=(0&REPT(6,9-COUNT(0/(MOD(ROW(A1),TRANSPOSE(4^ROW($1:$8)))))-1))+1+A1

数组下拉

robbieyao

在C7输入1111，c8输入：=IF(MOD(C7,5)<>4,C7+1,C7+7)，往下拉即可

wlc5201130

robbieyao 发表于 2014-8-14 21:34
在C7输入1111，c8输入：=IF(MOD(C7,5)4,C7+1,C7+7)，往下拉即可

朋友，不要误导人家哦。

ghzx9388

这样行不行
A2=SUM(IF(MOD(ROW(A1),4^{1,2,3,4}),,{1,1,1,1})*6*10^(ROW($1:$4)-1))+A1+1    下拉

robbieyao

wlc5201130 发表于 2014-8-14 22:22
朋友，不要误导人家哦。

呵呵，多谢提醒，没有注意到后面的数据，这个逻辑判断可以了
-------------------------------------------------------------------------
在C7输入1111，c8输入：=IF(MOD(C7,5)4,C7+1,C7+7)，往下拉到C22，
在C23时输入：=IF(RIGHT(MOD(C22,1111),2)="33",C7+100,IF(MOD(C22,5)<>4,C22+1,C22+7))，往下一直拉即可！