修法布施得聪明智慧，多分享让生霰翌倡戈活更美好。在工作中使用Excel处理数据时，修改或新增加数据时，要对数据表排序，怎样能修改内容或增加内容时自动排序？下面举一例来说明自动排序。
工具/原料
MicrosoftOfficeExcel2007
ExcelVBA
实例问题
1、Sheet1中有四列数据，修改数据或增一行数据，怎样处理按B列自动升排序？
处理方法/步骤
1、首先打开上例文件，鼠标移到当前工作表标签栏“Sheet1”表，右键，弹出快捷菜单，如下图。
2、在快捷菜单找到【查看代码】并单击，打开VBA（宏）编辑界面，如下图。
3、在左边代码框中复制下面代码到该框中，如下图。PrivateSubWorkshe娣定撰钠et_Change(ByV锾攒揉敫alTargetAsRange)'2019-12-1120:39:17Dimr1AsLong,r2AsLong,r3AsLong,r4AsLongIfTarget.Column>=1AndTarget.Column<=4Thenr1=Range("a65536").End(xlUp).Rowr2=Range("b65536").End(xlUp).Rowr3=Range("c65536").End(xlUp).Rowr4=Range("d65536").End(xlUp).RowIfr1=r2Andr2=r3Andr3=r4ThenActiveSheet.Sort.SortFields.ClearActiveSheet.Sort.SortFields.AddKey:=Range("b2:b"&r1)_,SortOn:=xlSortOnValues,Order:=xlAscending,DataOption:=xlSortNormalWithActiveSheet.Sort.SetRangeRange("A2:D"&r1).Header=xlGuess.MatchCase=False.Orientation=xlTopToBottom.SortMethod=xlPinYin.ApplyEndWithEndIfEndIfEndSub
4、如上步骤操作过程如下动画图。
5、回到工作表窗口，试下运行结果情况，如下动态图。
6、如果觉得这篇经验帮到了您，请点击下方的咯悝滩镞“投票点赞"或者“收藏”支持我！还有疑问的话可以点击下方的“我有疑问”，谢谢啦！