一張圖教你用vba自定義排序知乎-tft每日頭條

開始之前想問大家一個問題，還記得你年初的小目标嗎？2019年我的目标是，完成2018年那些本該在2017年完成的我在2016年信誓旦旦要完成的2015年制定的目标-減肥，

好了我們正式開始把

今天有粉絲後台私信問到，如何将Excel按行排序，有好幾千行呢，今天就教大家制作vba代碼來實現這次的要求，非常簡單按照過程來肯定不會錯

這個是今天的演示表

一張圖教你用vba自定義排序知乎（教你5分鐘寫好以行排序的vba代碼）1

一。、錄制宏

首先我們要錄制一個宏，宏本身就是vba代碼，如果大家以後學習vba遇到不會寫的代碼都可以錄制宏來實現

我們選擇第一行錄制一個按行排序的宏，當我們完成排序後不要亂點鼠标，一定要緊接着點擊結束錄制，否則很容易出錯，動圖如下

一張圖教你用vba自定義排序知乎（教你5分鐘寫好以行排序的vba代碼）2

當我們錄制完成後就在開發工具選項點擊宏找到我們剛才錄制的宏點擊編輯

一張圖教你用vba自定義排序知乎（教你5分鐘寫好以行排序的vba代碼）3

這樣我們就進入了vb編輯器對我們的代碼進行編輯如下圖

一張圖教你用vba自定義排序知乎（教你5分鐘寫好以行排序的vba代碼）4

我們可以看到數據要求以行進行排序，每行數據中變化的隻有行标，而列标并未改變，

比如，第一行我們的排序區域是A1:G1，第二行我們的排序區域是A2:G2

所以我們可以使用循環語句來稍微修改先代碼就能實現我們的要求

我們使用for..next語句來修改下代碼就可實現，在這裡為了放大演示我将代碼粘貼出來了

一張圖教你用vba自定義排序知乎（教你5分鐘寫好以行排序的vba代碼）5

我們加上兩句代碼

Dim x As Integer這句的意思是定義x為整數

For x = 1 To 17這句的意思為讓x從1一直循環到17，在這裡1是需要排序的第一行的行标17為最後一個的行标

可以根據自己的數據進行實際的修改

然後我們将Range("A1:G1")中括号中數值全部的更改為Range("A" & x, "G" & x)，更改後代碼是這樣的我們隻需在最後加上一個next即可，這樣代碼就改好了

一張圖教你用vba自定義排序知乎（教你5分鐘寫好以行排序的vba代碼）6

然後我們再在開發工具中選擇剛才更改宏點擊執行即可

一張圖教你用vba自定義排序知乎（教你5分鐘寫好以行排序的vba代碼）7

怎麼樣是不是非常簡單呢

你們的關注點贊和轉發是我持續更新的動力