1樓：雙木阿林
excel如何排序？很簡單，讓我來教會你！
2樓：匿名使用者
檔案傳送到
處理好來認領
3樓：***
用函式足夠了，沒有必要用vba
4樓：
必須用vba嗎？直接排序就可以實現的。
excelvba怎麼排序?
5樓：雙木阿林
excel如何排序？很簡單，讓我來教會你！
6樓：香格里格
sub 排序()
r = cells(rows.count, 1).end(xlup).row
range("a2:d" & r).sort key1:=range("a2"),order1:=1,header:=xlno
end sub
怎麼用vba對excel內的資料排序
7樓：平陽虎
貌似不用vba，直接用函式就可完成。試試下面的公式：
在首個單元格中輸入
=if(row(a1)>100,"",9999+column(a1)*100+row(a1))
右拖下拉填充。
8樓：擊掌慶賀
不知道你的資料有多少行，多少列，也不知道行號列號，怎麼做？
如何用vba將excel中的一列值進行從小到大排序，然後顯示到excel上喔？？
9樓：慶年工坊
假設源資料在a列，排好的資料輸出到b列，**如下：
sub s()
dim arr, i, j, n, tmpn = cells(rows.count, 1).end(3).row
arr = [a1].resize(n)
for i = 2 to n
for j = n to i step -1if arr(j, 1) < arr(j - 1, 1) thentmp = arr(j, 1)
arr(j, 1) = arr(j - 1, 1)arr(j - 1, 1) = tmp
end if
next
next
[b1].resize(n) = arr
end sub
excel vba按內容排序
10樓：慶年工坊
sub s()
for ctou = 1 to 4
dim d
set d = createobject("scripting.dictionary")
for i = 12 to 130
if cells(1, i) <> "" thena = mid(cells(1, i).text, ctou, 1)if a = mid(cells(2, i).text, ctou, 1) then d(a) = d(a) + 1
end if
next
i = 12
do while d.count
b = 0
for each c in d.keys
if d(c) > b then
a = c
b = d(c)
end if
next
cells(ctou * 2 + 1, i) = acells(ctou * 2 + 2, i) = bi = i + 1
d.remove (a)
loop
next
end sub
Excel VBA多條件自動篩選，或怎麼表示
方法 1.製作資料表和查詢條件表，查詢條件表的 是萬用字元 2.資料 篩選 高階篩選 3.按查詢條件編輯高階查詢對話方塊 4.檢驗查詢結果。activesheet.listobjects table1 range.autofilter field 8,operator xlfiltervalues,...
excel vba多列資料求和，要求用VBA字典
sub 多列相同項累計 dim dic,istr as string set dic createobject scripting.dictionary with activesheet for i 1 to range a65536 end xlup row istr cells i,1 cell...
用EXCEL怎麼給成績單的總分排序
在資料裡有排序 你拉住你要排列的資料 把總分也拉進去 在點排序 裡面有沒有總分這個選項 然後排序 一般是這樣來操作的。在總分右側那一列輸入公式。假設總共有100個學生。資料從第二行開始有。第一行是標題行。則學生成績在第2行到第101行。比如有7門科目，姓名 科目1 2 3 4 5 6 7 總分。排名...