Re: [算表] 儲存格 的排列組合(VBA)
以下是 VBA 的程式，使用方法請看精華區或之前的文章
Option Explicit
Sub marco1()
Dim i As Integer, j As Integer, rowC As Integer
Dim index As Integer
Application.ScreenUpdating = False
'計算多少筆資料要處理
rowC = Sheets(1).Range("A1").CurrentRegion.Rows.Count
index = 1
For i = 1 To rowC '處理資料
For j = i + 1 To rowC
Cells(index, 2) = Cells(i, 1) & Cells(j, 1)
index = index + 1
Next j
Next i
Range("A1").Select
Application.ScreenUpdating = True
MsgBox ("完成！")
End Sub
※ 引述《RungTai (RungTai)》之銘言：
: 軟體: Excel 2007
: A 我想對 A 欄的資料，做排列組合，目前是想「兩兩捉對」
: 1 甲 （亦即 C 5 取 2 = 5! / (5-2)!*2! 有 10種可能）
: 2 乙 以左邊為例，結果依序為： 甲乙 甲丙 甲丁 甲戊 乙丙 乙丁..
: 3 丙
: 4 丁
: 5 戊
: B
: 1 甲乙
: 2 甲丙 由於原始資料有幾百筆，結果預計有上萬種可能，
: 3 甲丁 因此想請問大家，有沒有自動化的方式呢？
: 4 甲戊
: 5 乙丙 謝謝大家！
: 6 乙丁
: 7 乙戊
: 8 丙丁
: 9 丙戊
: 10 丁戊
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.229.74.220
Office 近期熱門文章
PTT數位生活區 即時熱門文章
