$7.49 .com domain with free InstantPage Website Builder$1.99 Web Hosting   捷飞网络官方淘宝店   Godaddy 优惠码
返回列表 发帖
分享到:




[应用&技术] 分享如何用EXCEL公式实现字母+数字的排列组合结果

分享如何用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
  1. Sub test()
  2. Dim i, j, k, l As Integer
  3. l = 1
  4. For i = 0 To 9
  5. For j = 1 To 26
  6. For k = 1 To 26
  7. Cells(l, 1) = Chr(j + 96) & i & Chr(k + 96)
  8. l = l + 1
  9. Next
  10. Next
  11. Next
  12. 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
  1. Sub test()

  2. Dim a, temp As String
  3. Dim a_len, h, i, j As Integer
  4. a = "1234567890abcdefghijklmnopqrstuvwxyz"
  5. a_len = Len(a)

  6. h = 1
  7. Do While h < a_len
  8.     i = 1
  9.     Do While i < a_len
  10.         j = 1
  11.      Do While j < a_len
  12.             temp = Mid(a, h, 1) & Mid(a, i, 1) & Mid(a, j, 1)
  13.             Debug.Print temp
  14.             j = j + 1
  15.         Loop
  16.         i = i + 1
  17.     Loop
  18.     h = h + 1
  19. Loop
  20. End Sub
复制代码

( _2 {% k6 i) O( D. u
9 B9 q- C) V- [4 r  N
; ~% M) ?$ |! e% ~4 `; i: i

7 ?3 r& y( p+ N8 W$ ~2 H7 E6 L参考百度知道.

返回列表
Namecheap
Namecheap.com - Cheap domain name registration, renewal and transfers - Free SSL Certificates - Web Hosting
互联网安全