新足迹 › 论坛 › 澳洲生活区 › 工作学习 › need help, excel

精华好帖回顾
· 蚁祸的季节 (2007-3-3) leeshine	· 2004的第一瞥云南 (2005-5-22) patricb
· [虎妞家的双人饭桌@ 零玖] 1月29日：糖醋爽口西瓜片+米饭沙拉+金枪鱼虾仁鸡蛋篮 (2009-1-29) Tiger_Karen	· 来和七朵花一起记录玉米的生长过程，最新照片更新12月30日，收成拉（悲催了。。。。。。。。） (2011-9-1) 七朵花

12 / 2 页

楼主:金牛

[学习培训] need help, excel [复制链接]

zsuzzy

布鞋族

发表于 2011-11-12 13:50 |显示全部楼层

此文章由 zsuzzy 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 zsuzzy 所有！转贴必须注明作者、出处和本声明，并保持内容完整

代码如下。。

---------------------------------------------
Sub Macro2()
'
'
Range("A:A").Select

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
      :=xlPinYin, DataOption1:=xlSortNormal

i = 1
a = Cells(i, 1)
Cells(i, 2) = Cells(i, 1)
Do While Cells(i, 1) <> 0
  If a <> Cells(i, 1) Then

   a = Cells(i, 1)
   Cells(i, 2) = Cells(i, 1)
  End If


i = i + 1
Loop
Range("B:B").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
      :=xlPinYin, DataOption1:=xlSortNormal
End Sub
----------------------------------------------------
下面是结果，数据我没全部拷完。应该不会有问题。
3853660
3853670
3853680
3853690
3853700
3853710
3853720
3853730
3853740
3853750
3853760
3853770
3853780
3853790
3853800
3853810
3853820
3853830
3853840
3853850
3853860

[ 本帖最后由 zsuzzy 于 2011-11-12 15:06 编辑 ]

评分

参与人数 2	积分 +6	收起理由
doubleseven	+ 4
金牛	+ 2	谢谢奉献

查看全部评分

euroblue

铜靴族

发表于 2011-11-12 18:44 |显示全部楼层

此文章由 euroblue 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 euroblue 所有！转贴必须注明作者、出处和本声明，并保持内容完整

看图

Press CTRL + SHIFT + ENTER after formular

原帖由金牛于 2011-11-11 09:38 发表
I have this data:
3838680
3838700
3838700
3838710
3838710
3838710

I want new column as below:

3838680
3838700
3838710

but I don't want to use "remove duplicates". I want to use a fomula, so it will ...