如何上拉实现字母递增,A-Z之后AA，AA-ZZ之后AAA,三位即可

363656388

如何上拉实现字母递增,A-Z之后AA，AA-ZZ之后AAA,三位即可

huanglicheng

供参考

1. Sub 设置ABC填充序列()
   
2.     Dim Arr, i%
   
3.     Dim crr(1 To 255)
   
4.     '--------------------------------------------------
   
5.     Application.ScreenUpdating = False
   
6.     For i = 1 To 255
   
7.         crr(i) = Split(Cells(1, i).Address, "$")(1)
   
8.     Next i
   
9.     Application.ScreenUpdating = True
   
10.     '--------------------------------------------------
    
11.     Application.AddCustomList ListArray:=crr
    
12.     MsgBox "设置ABC序列完成，在单元格中输入一个a往下拉就可以填充出abcd...", 48, "SoSo提示您"
    
13. End Sub
    

复制代码

test.zip (7.32 KB, 下载次数: 33)

2014-5-30 12:20 上传

点击文件名下载附件

一剑惊心

1. =SUBSTITUTE(ADDRESS(1,16384-ROW(A16383),4),1,)

复制代码