excel表格利用vba完成排列组合(vba排列组合程序写法)

1. vba排列组合程序写法

aaa=array(1,6,8,18,19,20,25,62,63,64)for i=0 to ubound(aaa) msgbox(aaa(i))next

2. vba任选排列组合

1、先将B的始初值粘贴到辅助列H（右侧空白列任选一列即可）

2、在B1单元里输入公式"=A1+H1"，确定后双击单元右下角填充公式到整个列。

上面的方法，只有临时处理的方式，如果长期使用，可以使用VBA做宏段代码。

3. vba排序函数

dir函数本身没有排序功能，它只能按照特定的条件查找文件

4. vba分组排序

想了一下，似乎可以不用VBA，首先增加一列分组，然后全选后用“数据”——“分类汇总”，以分组列为分组依据，汇总你需要加总的列，然后再计算出其他值来。

计算其他值时，可以选中包含待填充公式的列（1列），从第1个单元格选到数据区域的最后1个单元格，F5→定位条件→空值，输入公式，如=1000*C5/D5，然后按Ctrl+Enter填充，其他列类似的操作处理。

5. vba 排列组合

按ALT+F11双击左上角的SHEET1复制下面代码粘贴进去Private Sub Worksheet_Change(ByVal Target As Range) Range("A:E")

.Sort Key1:=Range("E2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormalEnd Sub回到工作表,当在SHEET1表的E列输入数据时,将自动按降序排序.