如何在A列实现三位英文字母的顺序号

aman1516

例如，1）用公式：

2）在2007中亦可用代码实现（在此多谢：路飞&鸣人），但2003中由于受255列的限制，请问如何中改下面的代码：
Sub WWF()
Dim i, j
For i = 703 To 16384
   Cells(i - 702, 1) = Replace(Cells(1, i).Address(RowAbsolute:=False, ColumnAbsolute:=False), 1, "")
Next
End Sub
以实现上面的效果。

aman1516

kuangben8

1. =CHAR(65+INT((ROW()-1)/676))&CHAR(65+MOD(INT((ROW()-1)/26),26))&CHAR(65+MOD(ROW()-1,26))

复制代码

从第一行开始下拉

aman1516

kuangben8 发表于 2015-8-5 22:31
从第一行开始下拉

谢谢，若用VBA动态编号，该怎样修改代码？

看见星光

aman1516 发表于 2015-8-5 22:49
谢谢，若用VBA动态编号，该怎样修改代码？

1. Sub dd()
   
2. Dim s$, i&, j&, k&, arr, n&
   
3. ReDim arr(1 To Cells.Rows.Count, 1 To 1)
   
4. s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   
5.     For i = 1 To Len(s)
   
6.         For j = 1 To Len(s)
   
7.             For n = 1 To Len(s)
   
8.                 k = k + 1
   
9.                 arr(k, 1) = Mid(s, i, 1) & Mid(s, j, 1) & Mid(s, n, 1)
   
10.             Next
    
11.         Next
    
12.     Next
    
13.     [b1].Resize(k, 1) = arr
    
14. End Sub

复制代码

aman1516

在三楼的公式基础上修改：
Private Sub CommandButton1_Click()
Dim i
Range("A2:A65536") = ""
For i = 2 To 2136
'=CHAR(65+INT((ROW()-1)/676))&CHAR(65+MOD(INT((ROW()-1)/26),26))&CHAR(65+MOD(ROW()-1,26))
Cells(i, 1) = Chr(65 + Int((i - 1) / 676)) & Chr(65 + ((Int((i - 1) / 26)) Mod 26)) & Chr(65 + (i - 1) Mod 26)
Next
End Sub

aman1516

看见星光 发表于 2015-8-5 22:53

非常棒！公式改j是幼稚的笨办法，谢谢了！