EXCEL VBA列統計排序,怎麼用VBA對EXCEL內的資料排序

2022-07-05 15:53:20 字數 1669 閱讀 8939

1樓:姓王的

錄製巨集就得到vba**了

如何用vba將excel中的一列值進行從小到大排序,然後顯示到excel上喔??

2樓:慶年工坊

假設源資料在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對某一行的內容按列排序

3樓:v輕揚

一、選擇這一行的資料

二、點「資料」選單--->「排序」工具按鈕,彈出如下對話方塊三、點選對話方塊頂部的「選項」按鈕,彈出如下對話方塊選中「按行排序」--->確定,回到排序對話方塊:

在「主要關鍵字」下拉框中就可以選擇你所在「行」作為關鍵字來排序了設定好各下拉引數後,按確定,就完成了該行的排序

4樓:門斯斐文君

這麼簡單還用問?方法1:把資料讀入二維陣列,冒泡法對第一行排序,排好後重新寫入表裡方法2:設定一個臨時列,還用冒泡法以第一行排序,交換時使用臨時列日期比較直接用時間型讀入比較就行了

怎麼用vba對excel內的資料排序

5樓:平陽虎

貌似不用vba,直接用函式就可完成。試試下面的公式:

在首個單元格中輸入

=if(row(a1)>100,"",9999+column(a1)*100+row(a1))

右拖下拉填充。

6樓:擊掌慶賀

不知道你的資料有多少行,多少列,也不知道行號列號,怎麼做?

excel 怎麼用vba實現多列資料按大小排序

7樓:匿名使用者

若要排在某列中,公式:

=large($a$1:$j$10,row(a1))向下填充;

若要排在某行中,公式:

=large($a$1:$j$10,column(a1))向右填充;這個是在教程裡面學習的,建議樓主可以在**買個excel教程,推薦店鋪,冬之佳網路科技,我在裡面看過,很全**低還會不定時更新教程,望採納答案哦

excel vba 怎麼排序

8樓:雙木阿林

excel如何排序?很簡單,讓我來教會你!

9樓:匿名使用者

檔案傳送到

處理好來認領

10樓:***

用函式足夠了,沒有必要用vba

11樓:

必須用vba嗎?直接排序就可以實現的。

EXCEL VBA判斷A列空值如果A1 A30單元格

你沒寫清楚是要查空單元格啊還是 查單元格內容有空格.汗一個先.兩段 都貼給你吧 在工作表名稱上點右鍵,選檢視 貼上下面的 sub 檢查空單元格 dim rng as range,arr for each rng in range a1 a30 if rng then n n 1 redim pres...

excel vba中選中單位各然後每隔9列插入等式並且autofill往下,可是老說範圍出錯。怎麼辦

sub delete0 c iv1 end xltoleft column for i 1 to 2 c 2 3 activecell.offset 0,9 range a2 select activecell.formular1c1 if rc 2 0,rc 2 activecell.range ...

在Excel VBA中,如何實現年齡一列的統計。比如,20 25歲 26 30歲的人數

既然是問vba中實現,那麼就講vba的事瞭如你的年齡一列在f列,那麼用迴圈直接計算出結果for x 2 to 100 if cells x,6 20 thenrange h2 range h2 1elseif cells x,6 26 thenrange h3 range h3 1elseif ce...