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




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

分享如何用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
  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
复制代码
  }/ 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
  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
复制代码

! 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
参考百度知道.

美国VPS、域名代购:http://tu8l.taobao.com

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