[已解决]求导出代码

zgw_2005 · 发表于 2009-11-29 14:00

DhKlcIgs.rar (6.38 KB, 下载次数: 0)

开辆小富康 · 发表于 2009-11-29 14:55

代码：结果在A列

Sub 导出()
Dim str As String, arr, d As Object
Set d = CreateObject("scripting.dictionary")
str = [f13].Value
arr = Split(str)
For i = 0 To UBound(arr)
d(arr(i)) = ""
Next
Columns("A:A").ClearContents
Columns("A:A").NumberFormatLocal = "000_ "
Range("a1").Resize(d.Count, 1) = Application.Transpose(d.keys)
Columns("A:A").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
End Sub

公式：1*(SUBSTITUTE(F13,D13,"")<>F13)

zgw_2005 · 发表于 2009-11-29 15:21

谢谢老师,我未说明白,不是导出在工作表,是导出txt文本,请老师修改下,辛苦了.

开辆小富康 · 发表于 2009-11-29 15:23

不会。嘿嘿。不想伤脑子玩那个TXT了。有人会玩的。

一夕一朝 · 发表于 2009-11-29 15:36

额不懂。学习学习

雨狐 · 发表于 2009-11-30 11:05

Zh6Jlyj2.rar (10.15 KB, 下载次数: 2)

zgw_2005 · 发表于 2009-11-30 20:24

谢谢版主!!!

		自动登录	找回密码
密码			注册