资源描述：
《利用宏对Excel行排序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、个人收集整理勿做商业用途利用宏对Excｅl行排序前段时间,因数据分析需要，要在Excel中，进行大量的行排序操作，我们知道，对列的排序很简单，但是对行的排序比较复杂。所以经过摸索,得出以下方法。根据工作量大小其可分为两种情况：１。需要排序的行很少，则可以运用一下步骤进行手动排序。 选取要排序的行，“数据”-“排序”－“以当前选定区域排序”,然后点下面的“选项”，在“方向”选择“以行排序”即可。2。需要排序的行很多，且可能有多个表需要行排序，此时再使用上面的方法,则工作量太大。 针对这种需要,需要新的方法,主要思路是利用“选择性黏贴”的转置功能,把行排序转换为列排序,然后录制为宏，把录
2、制的宏添加循环即可实现大量重复的过程。以下举例解释操作过程:第一步：选择“工具”-“宏”－“录制新宏”，在弹出的对话框中，宏名随便(此例为Macro3)，主要是快捷键设置，不要与系统默认的冲突（只能是字母),另外要指定宏运行的范围。在“保存在”中共有三个选项，选项不同,下面对宏的编辑有所不同。一般选择“当前工作薄”，如果需要大量处理相似的表,则可保存至“个人工作薄”，点确定，开始录制宏。第二步:选择要排序的行C１:Ｇ1，“复制”，选择Ｉ１单元格,右键“选择性粘贴”（勾选左下角“转置”)-确定后,Ｉ1-I5５个单元格从上到下依次为７6５４10，再选中Ｉ1：I5５个单元格，进行列排序（这个都
3、会),升序或降序依个人需要不同（此例为升序）。排序好的I1：Ｉ5重新选择-“复制”-选择Ｋ1单元格-右键“选择性粘贴”（同样勾选转置),则在K1：O1的这５个单元格中就会出现已经排序好的数值。4 56 710。结果如下：个人收集整理勿做商业用途第三步：“工具”-“宏”-“停止录制”。第四步:关键的一步。“工具”，“宏”-“宏”，在弹出的“宏”对话框中，列出了刚才录制的宏＇Mａcrｏ３＇，选择它，点右边的“编辑”选项，会打开一个ＶB的对话框。接下来，是最后重要的一步，对此宏进行编辑,添加循环语句,以实现自动操作。注意的地方:1。循环语句用for来实现。且要先定义一个整型变量i,通过i的赋值
4、及步长,实现逐行排序,或者间隔排序,或者奇数行排序，或者偶数行排序;２。Excel中的单元格函数引用方法:Cｅlｌs(行号，列号),需要说明的是,在Exｃel中,行号是阿拉伯数字表示，列号是2６英文字母表示，但是在使用VBA时,列号也可以用阿拉伯对应，及Ａ列,也可称为１列。函数讲解:-－－-－-----－----------－---------－---------------－---－-－---－-－－---－--------------------－-－-－----－ＳubＭaｃro3() －－-宏开始ﻫ＇'Macro3Ｍaｃro'宏由peｔer．ｗｅｉ 录制,时间:2010－5-22
5、''快捷键：Ctrl+t' -－-－-注释部分，以“' ”标出,提示宏名及录制者和时间。 Rａngｅ（"C1：Ｇ1"）.Seｌecｔ ------选择C１:G1单元格ﻫ Ｓelectｉｏn.Cｏpy ---－－复制ﻫ【Range("Ｉ1").Select ﻫ Selection.ＰaｓteＳpｅciａlPaｓte：=ｘlPasteAll， Operａtion:=xlNｏne,SｋｉpBｌanks:= ＿ﻫ Faｌse, Tｒaｎsｐoｓe:=Truｅﻫ Aｐｐlicatiｏｎ．Ｃ
6、utCopyModｅ = Faｌse 】 --------选择Ｉ1单元格，然后转置粘贴个人收集整理勿做商业用途 【Selｅction.ＳorｔKey1:＝Raｎge（"Ｉ1")， Oｒｄer1：＝xlＡsｃｅnｄiｎg,Heａdeｒ:=xlGuｅss, _ﻫ OrderCｕｓｔom:=1,ＭａtchＣａse:=Ｆalｓe，Oriｅntation:=ｘlToｐＴoBoｔtｏｍ， SoｒｔMｅｔｈod_ :=xlＰｉnYｉｎ,DataOｐtion1:＝xｌSorｔNｏrmal】 --－---－---－对I1:I5单元格,按升序排序 【Selecｔio
7、n.Copyﻫ Ｒangｅ(＂K1"）.Selｅct Selectｉon.ＰasｔeSpeｃiａlPaste:=xlPａstｅAll,Opeｒａtion:=xlNone,ＳkipＢlaｎkｓ:＝_ Faｌｓｅ,Tｒaｎｓｐｏsｅ:=Ｔrｕe】 --－-－－------－选择Ｋ1单元格，后转置粘贴ﻫ ’【Ｒａｎge("R10")．Seｌｅct ‘ Ａppｌicatｉo
