［求助］数字的核对与排序

kxs5555

<p>两列中相同的数字降序排列，将不相同的数字筛选出来后也降序排列，并用红色字体和有色单元格显示。</p><p>&nbsp;</p> KxrfTOxB.rar (1.95 KB, 下载次数: 19)

2007-12-14 18:54 上传

点击文件名下载附件
［求助］数字的核对与排序

<br/>

abcd321abcd

zI3ln5T4.rar (9.57 KB, 下载次数: 33)

2007-12-15 17:21 上传

点击文件名下载附件
［求助］数字的核对与排序

<br/>

kxs5555

<p></p><p>Private Sub CommandButton1_Click()<br/>&nbsp;Range("A4:D9").Select<br/>&nbsp;&nbsp;&nbsp; Selection.Copy<br/>&nbsp;&nbsp;&nbsp; Range("E4").Select<br/>&nbsp;&nbsp;&nbsp; <font style="BACKGROUND-COLOR: #cc8f33;">Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :=False, Transpose:=False<br/></font>&nbsp;&nbsp;&nbsp; Range("E3:F3").Select<br/>&nbsp;&nbsp;&nbsp; Application.CutCopyMode = False<br/>&nbsp;&nbsp;&nbsp; Selection.Sort Key1:=Range("E3"), Order1:=xlAscending, Header:=xlGuess, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :=xlPinYin, DataOption1:=xlSortNormal<br/>&nbsp;&nbsp;&nbsp; Range("E3:F9").Select<br/>&nbsp;&nbsp;&nbsp; Selection.Sort Key1:=Range("E4"), Order1:=xlAscending, Header:=xlGuess, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :=xlPinYin, DataOption1:=xlSortNormal<br/>&nbsp;&nbsp;&nbsp; Range("G4:H9").Select<br/>&nbsp;&nbsp;&nbsp; Selection.Sort Key1:=Range("G4"), Order1:=xlAscending, Header:=xlGuess, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :=xlPinYin, DataOption1:=xlSortNormal<br/>End Sub<br/></p><p></p><p>我想将单元格核对到比如10000个，能行吗？我不懂？请再帮忙看看！</p>

[此贴子已经被作者于2007-12-15 18:28:07编辑过]

kxs5555

<p>TO:<strong>abcd321abcd</strong></p><p>我想将单元格核对到比如10000个，能行吗？我不懂？请再帮忙看看！</p>

xhongri

学习顶了，知识就是力量。谢了。

syk979

知识就是力量，学习中