[已解决]谢谢枯禅老师,索引导入出错

lhj323323

oClWoStr.rar (13.83 KB, 下载次数: 12)

2010-12-14 18:46 上传

点击文件名下载附件
[求助]索引导入出错

老师:

需求在附件中,希望能用程序将单位名称的英文格式的双引号替换掉

[此贴子已经被作者于2010-12-15 12:00:28编辑过]

最佳答案

月排行榜 / 总排行榜

枯禅

2010-12-14 20:05

再简化一点：

Sub 定向导入()
Dim arr, i%, d, arrt, k%
Set d = CreateObject("Scripting.Dictionary")
arr = Sheets("当月数据源").Range("i2:m" & Sheets("当月数据源").[i65536].End(3).Row)
For i = 1 To UBound(arr)
    d(Mid(arr(i, 4), 3, Len(arr(i, 4)) - 4)) = arr(i, 3) & "|" & arr(i, 5)
Next
With Sheets("数据库C")
    arrt = .UsedRange
    For k = 2 To UBound(arrt)
        If d.exists(arrt(k, 6)) Then
            arrt(k, 5) = Split(d(arrt(k, 6)), "|")(0)
            arrt(k, 7) = Split(d(arrt(k, 6)), "|")(1)
        End If
    Next
    .[a1].Resize(UBound(arrt), UBound(arrt, 2)) = arrt
End With
End Sub

[此贴子已经被作者于2010-12-14 20:13:05编辑过]

跳转到最佳答案楼层

枯禅

再简化一点：

Sub 定向导入()
Dim arr, i%, d, arrt, k%
Set d = CreateObject("Scripting.Dictionary")
arr = Sheets("当月数据源").Range("i2:m" & Sheets("当月数据源").[i65536].End(3).Row)
For i = 1 To UBound(arr)
    d(Mid(arr(i, 4), 3, Len(arr(i, 4)) - 4)) = arr(i, 3) & "|" & arr(i, 5)
Next
With Sheets("数据库C")
    arrt = .UsedRange
    For k = 2 To UBound(arrt)
        If d.exists(arrt(k, 6)) Then
            arrt(k, 5) = Split(d(arrt(k, 6)), "|")(0)
            arrt(k, 7) = Split(d(arrt(k, 6)), "|")(1)
        End If
    Next
    .[a1].Resize(UBound(arrt), UBound(arrt, 2)) = arrt
End With
End Sub

[此贴子已经被作者于2010-12-14 20:13:05编辑过]