- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1452
- 贡献
- 1134
- 激情
- 1349
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
分享如何用EXCEL公式实现字母+数字的组合结果
& P6 P9 j5 s0 P I7 j% u0 C5 W9 O. Y3 T
. }; `- _" Z# }! aEXP:前面2位是字母(不区分大小写)后1位是数字
0 O& K- q+ a9 Y y( v4 o5 h4 C/ h同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:( @; b* G' o) k, ^8 ^4 G
- Sub test()
- Dim i, j, k, l As Integer
- l = 1
- For i = 0 To 9
- For j = 1 To 26
- For k = 1 To 26
- Cells(l, 1) = Chr(j + 96) & i & Chr(k + 96)
- l = l + 1
- Next
- Next
- Next
- End Sub
复制代码
& u a) J& z, W. U
" Q) Y, }0 e+ f: x& C在此界面直接按F5运行此宏,完成。
, w! U! J# I4 w8 J7 [! N0 H7 [7 H& H. g/ F7 c
EXP2:
& i7 i& b3 a; J3位的数字和字母混合: Q. ^ C/ t$ O$ W' q: \; x z
- Sub test()
- Dim a, temp As String
- Dim a_len, h, i, j As Integer
- a = "1234567890abcdefghijklmnopqrstuvwxyz"
- a_len = Len(a)
- h = 1
- Do While h < a_len
- i = 1
- Do While i < a_len
- j = 1
- Do While j < a_len
- temp = Mid(a, h, 1) & Mid(a, i, 1) & Mid(a, j, 1)
- Debug.Print temp
- j = j + 1
- Loop
- i = i + 1
- Loop
- h = h + 1
- Loop
- End Sub
复制代码
( _2 {% k6 i) O( D. u9 B9 q- C) V- [4 r N
; ~% M) ?$ |! e% ~4 `; i: i
7 ?3 r& y( p+ N8 W$ ~2 H7 E6 L参考百度知道. |
|