excel 关于用VBA进行排序
我用VBA写了一个如下的过程是对一个区域进行排序,为什么没反应?
Sub sub1()
Sheets(1).Activate
Range("A1:J1").Sort key1:=Cells(1, 1)
End Sub
Sub sub1()
Sheets(1).Activate
Range("A2:J10").Sort key1:=Cells(1, 1)
End Sub
Sheets(1).Activate
Range("A1:J1").Sort key1:=Cells(1, 1), Orientation:=xlLeftToRight
End Sub
根据你的区域，你这是按行来排列，加多一句就好
本回答被提问者采纳【VBA】12.单元格常用操作(3):排序
首先，使用Sort方法对数据进行排序，这个方法有许多可调整的参数。例如，对三国志游戏中人物属性表按照智力属性降序排列（从高到低），你可以使用如下代码:vba Range("A1:G15").Sort Key1:=Range("E1:E15"), Order1:=xlDescending, Header:=xlNo 此代码中，"E1:E15"指定了排序依据，xlDescending...
在VBA中编写排序代码--Sort方法
示例4：根据活动单元格排序。在示例工作表中，当单元格在A1:G10区域内移动时，将根据活动单元格所在列进行降序排序。代码如下：Sub Worksheet_SelectionChange(ByVal Target As Range)...End Sub 示例5：根据颜色排序。这是Excel 2013 VBA帮助文档中的例子，按单元格背景色进行排序。示例代码如下：Sub ...
excelVBA按字母表顺序对工作表进行排序
如果工作簿内有大量以字母开头的工作表，要将这些工作表按照字母表的顺序进行排序，可以用下面的VBA代码来实现。按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中粘贴下列代码并执行。Sub 按字母表排序工作表()Dim i As Integer, j As Integer, n As Integer On Error Resume Next ...
ExcelVBA中实现数组排序的多种方法
1，通过单元格赋值以后利用工作表里的Sort方法进行排序，2，通过SQL实现，也需要调用单元格区域存放数据，3，直接写循环语句通过算法来实现。除了上述方法以外，借助一些其他语言工具与VBA相结合，也能利用现成的排序功能来实现数组排序，而不需要借助表格。例如JavaScript：JavaScript里面也有Sort方法，可以拿来...
100分麻烦高手修改Excel VBA排序代码,谢谢。
排序是基于两列进行的：首先，依据`[m2]`列的值进行排序（`key1`），排序顺序是升序（`order1:=2`）；其次，依据`[r2]`列的值进行升序排序（`key2:=[r2]`，`order2:=2`）。排序操作在激活了指定工作表后执行，并且使用了`header:=xlYes`参数，表示第一行（假设为标题行）包含排序依据的列...
如何使用VBA实现下拉排序?
如图，B3输入：=LARGE($A$3:$A$10,ROW(1:1))，下拉，从大到小排序；D3输入：=IF($D$1=SUM($D$2:D2),0,IF(ROUND(C3,0)<1,1,ROUND(C3,0)))，下拉；E3输入：=IF(SUM($D$3:$D$10)<$D$1,D3-SUM($D$3:$D$10)+$D$1,D3)，E4输入：=D4，下拉至E9；E10输入：=IF...
excelVBA 要随机的排序,要怎么写代码丫
Sub test()Dim ar(), br(), cr(), tempr1(), tempr2()Dim i, j, k, n As Longar = Array("Shell", "Case", "Cover", "Backcover", "Back Cover", "housing", "Skin", "protection", "protector", "Protective", "Pouch", "Flip", "Holster", "Wallet", "...
EXCEL用VBA解决排列组合问题
我有自定义函数可以解决。见图：
ExcelVBA怎么排序?
Sub 排序()With ActiveWorkbook.Worksheets("表").Sort .SortFields.Clear .SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlDescending, _DataOption:=xlSortNormal '降序排列 .SetRange Worksheets("表").Range("A2:C13").Header = xlGuess .MatchCase = False ....
EXCEL 排名(函数+VBA)两人种方法
第一步：在D2输入公式：=RANK(C2,C$2:C$7).然后将该公式下拉至C7，结果如图：第二步：创建宏“排名”，编制代码如下：Sub 排名()Dim MYARR(1 To 100, 1 To 3)Dim I, J, K, L As Integer Dim BJ, XM As String Dim CJ As Double I = 2 Do While Cells(I, 3) <> ""For ...
