大家来爆料：我见过的最牛的Excel用法！

xinqing1980

我的EXCEL在这儿来说只能说是小意思了，嘿嘿，不过我老公跟我比就有些差得远了，他每次研究出来一个小问题就得意的跑到我的面前说他研究出来一个“超大的项目”，结果我说这个还可以更简单，三下五除二就给他搞定了，结果他就低下头一声不吭了，想起他的动作我就觉得很好玩，他就喜欢自己花好长时间想出来问题的答案，唉，秀费解！

YZLSZAJ

真有意思 是个好主意 既娱乐 又学习。大家来开故事会！

gpcatv

斑竹：
     你好！我想做一个001到648的数字的全排列，可就是不懂做，请教您能不能做？

gpcatv

斑竹：
     你好！我想在EXCEL做一个001到648的数字的全排列，可就是不懂做，请教您能不能做？
也就是说，在这个全排列里，要求所以的任意的排列组合都有！以前也看过一些高手做过全排列0到6的代码，（如下）
Option Explicit
Sub pailie(ParamArray x())
Dim starttime As Single, endtime As Single
Dim i As Integer, j As Integer, k As Integer, Num As Long, n As Integer
Dim ALL(), TEMP1 As Long, TEMP2 As Long
n = UBound(x) + 1 '元素个数
starttime = Timer '开始计时
Num = 1
For i = 1 To n
Num = Num * i '递归计算n！
Next
For i = 1 To Num
ReDim ALL(1 To n) '初始化数组all
ALL(1) = x(0)
TEMP1 = i
For j = 2 To n
  TEMP2 = TEMP1 Mod j
  TEMP1 = TEMP1 \ j
  If TEMP2 = 0 Then
   ALL(j) = x(j - 1) 'temp2为 0则放在最后
  Else
   For k = j To TEMP2 + 1 Step -1
    ALL(k) = ALL(k - 1) ' temp2之后的元素后移一位
   Next
   ALL(TEMP2) = x(j - 1) 'temp2不为 0 则置于第temp2个元素前
  End If
Next
ActiveSheet.Cells(i, 1) = "'" & Join(ALL, "") '输出
Next
endtime = Timer
MsgBox "共 " & Num & " 种排列！用时 " & endtime - starttime & " 秒！"
End Sub
Sub test()
pailie "0", "1", "2", "3", "4", "5", "6"
End Sub
可就是不懂用，您看能不能帮帮我！

gpcatv

也许这也是一种最“牛”的excel的用法吧

19871122dong

原帖由 gpcatv 于 2009-8-5 11:08 发表
斑竹：
     你好！我想在EXCEL做一个001到648的数字的全排列，可就是不懂做，请教您能不能做？
也就是说，在这个全排列里，要求所以的任意的排列组合都有！以前也看过一些高手做过全排列0到6的代码，（如下）
Op ...

楼主可以讲问题发表到VBA专门的版块，比发表在这里获得解决的时间要快！

hqj137

看来计算机应用基础还需要普及呀

gpcatv

谢谢SECIBOY，谢谢

gpcatv

谢谢，19871122dong！谢谢

jianggelila

看完了，学习了很多东西