EXCEL
EXCEL VBA递归组合排列26个英文字母包括重复字母如AA,BCC等，排到ZZZ即可？
VBA递归组合排列26个英文字母包括重复字母如AA,BCC等，排到ZZZ即可？
Sub sdgs()
r 1
For t 65 To 90
Cells(r, 1) Chr(t)
r r 1
Next
For y 65 To 90
For e 65 To 90
Cells(r, 1) Chr(y) Chr(e)
r r 1
Next
Next
For i 65 To 90
For u 65 To 90
For o 65 To 90
Cells(r, 1) Chr(i) Chr(u) Chr(o)
r r 1
Next
Next
Next
End Sub
从 AAA-ZZZ 下面这个就可以了。
Sub sdgs()
r 1
For i 65 To 90
For u 65 To 90
For o 65 To 90
Cells(r, 2) Chr(i) Chr(u) Chr(o)
r r 1
Next
Next
Next
End Sub
ExcelVBA按条件排序？
1、假如你要排序的工作表在sheet1，假如你的日期列在J，可以用以下代码：(1)(J3:J65535_
),SortOn:xlSortOnValues,Order:xlAscending,DataOption:xlSortNormal
(1).Sort
(A2:AL65535)
.HeaderxlYes
r
.OrientationxlTopToBottom
rr
EndWith
2、后续如果有这种常用功能的VBA你可以选择录制宏，然后做一下，录制完看下VB编辑器的代码，稍作修改即可得到你想要的代码。
3、你想要大一点的区域，只要将range的区域改大就可以了。
Excel怎么用vb实现一列数据的随机排序？
请参考如下代码：
Range(#34A1:A10#34).Select #39选中需要排序的数据区域 #39按A列升序排，有标题行 Key1:Range(#34A1#34), Order1:xlAscending, Header:xlGuess, _ OrderCustom:1, MatchCase:False, Orientation:xlTopToBottom, SortMethod _ :xlPinYin, DataOption1:xlSortTextAsNumbers #39按A列降序排，无标题行 Key1:Range(#34A1#34), Order1:xlDescending, Header:xlNo, _ OrderCustom:1, MatchCase:False, Orientation:xlTopToBottom, SortMethod _ :xlPinYin, DataOption1:xlSortNormal在宏编辑器中，点中代码中的 再按 F1，即可看到Excel VBA关于排序的完整详细的帮助说明与举例.GoodLuck!