- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1452
- 贡献
- 1134
- 激情
- 1349
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
分享如何用EXCEL公式实现字母+数字的组合结果
8 @/ x( I- Q, l6 V$ f6 J0 Q/ m4 n! S9 G- K
6 h. P% u+ L( v: LEXP:前面2位是字母(不区分大小写)后1位是数字
+ f' v! L% U! L g) Q% B同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
1 A& W* m, |6 c! T# k0 E- 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
复制代码 }/ d, ?% g t6 D. h
; K) G) U$ h. m在此界面直接按F5运行此宏,完成。* s# ]" Q( w Z" l1 P
5 U8 N. |' q6 O. g& sEXP2:6 w0 a# h! o7 s* A+ k0 h& h; i
3位的数字和字母混合
$ f. O$ M6 `' L b- 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
复制代码
! t/ t5 J$ Y$ H$ W# k) f% T) @( r$ f# h- I+ k N
# ]/ M+ y) g' H: g& L1 k
+ q8 H- C B* _: h5 n- i
参考百度知道. |
|