求助数组高手帮我把这几张英语单词表中的单词改变排列顺序

renahu

zax010 发表于 2014-8-31 10:07
第一表D9单元格有一个“底”字。

我也刚发现，整个儿检查一遍，非常完美，非常感谢

renahu

蓝桥玄霜 发表于 2014-8-31 09:28
请见附件。

刚发现老师的作品更厉害，竟然可以排错！第一张表里单词 bottom 左边有个多余的字“底”，竟然给略过去了，厉害！非常感谢！

renahu

zax010 发表于 2014-8-31 09:40
>>>>>>>>>>>>>

老师能帮我用字典功能来查询单词吗？谢谢 求助字典高手帮我做个英语单词查询
http://club.excelhome.net/thread-1149077-1-1.html

renahu

蓝桥玄霜 发表于 2014-8-31 09:28
请见附件。

老师您好，您用字典的方法为我做的“提取单词”的代码非常好用，在附件中有三个表：07、36、60，如果这三张表分别位于三个excel文件中，而且都是位于sheet1表，名称还是07、36、60，那么如何实现从外部选择这三个文件的方式把这三张表的单词提取进来呢？

蓝桥玄霜

建议搜索多工作簿提取数据的帖子。很多的。

renahu

蓝桥玄霜 发表于 2014-9-2 08:19
建议搜索多工作簿提取数据的帖子。很多的。

老师终于把您盼来了，另一位老师帮我写了这段从外部文件导入单词的代码：
Sub Macro1()
On Error GoTo line1
Dim wb As Workbook, d, i%, j&, k%, s&, Myr&
Dim arr, brr(1 To 60000, 1 To 3)
Application.ScreenUpdating = False
Myr = IIf([a1] = "", 1, Sheet1.[a1].End(xlDown).Row)
Set d = CreateObject("scripting.dictionary")
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = True
    .Show
    If .SelectedItems.Count = 0 Then Exit Sub
    For i = 1 To .SelectedItems.Count
        Set wb = GetObject(.SelectedItems(i))
        arr = wb.Sheets(1).UsedRange
        wb.Close 0
        For j = 2 To UBound(arr) Step 2
            For k = 1 To UBound(arr, 2)
                If arr(j, k) <> "" And Not d.exists(arr(j, k)) Then
                    d(arr(j, k)) = arr(j + 1, k): s = s + 1: brr(s, 1) = arr(j, k): brr(s, 2) = arr(j + 1, k)
                End If
                If j = 2 And k = 1 Then brr(s, 3) = arr(1, 1)
            Next
        Next
    Next
End With
Range("a" & Myr).Resize(s, 3) = brr
Application.ScreenUpdating = True
line1:
End Sub
但是有个问题:
如果导入的表是重名（以表中的标题栏为准）的，如何实现只是对已导入的单词库中同名（即第三列相同）的部分进行更新，当然可能导入的同名表中的单词数量可能增加或减少，这怎么更新呢？

renahu

蓝桥玄霜 发表于 2014-8-31 09:28
请见附件。

老师您好，盼您给说两句，到底能不能单独修补，不用删了把所有单词表重新再提取一遍
请求数组高手利用导入外部单词表文件帮我把词库进行更新或补充
http://club.excelhome.net/thread-1149610-1-1.html