[已解决]数据怎么导入

9910343 · 发表于 2012-6-19 19:36

22.rar (6.44 KB, 下载次数: 26)

qyf13579 · 发表于 2012-6-19 19:43

打包的呀，我晕呀

hrpotter · 发表于 2012-6-19 19:58

这个最佳答案由 hrpotter 给出，感谢 hrpotter 的回答。

单击隐藏图章

22.rar (9.95 KB, 下载次数: 41)

9910343 · 发表于 2012-6-22 13:23

hrpotter 发表于 2012-6-19 19:58

Sub 导入()
Dim ar, br
Dim d As Object
Dim i As Integer
Set d = CreateObject("scripting.dictionary")
ar = Sheets("数据源").Range("a1").CurrentRegion
br = Sheets(1).Range("a1").CurrentRegion
For i = 2 To UBound(ar)
      d(ar(i, 1)) = ar(i, 3)
Next
For i = 2 To UBound(br)
      If d.exists(br(i, 1)) Then
         br(i, 2) = d(br(i, 1))
         br(i, 3) = ""
      End If
Next
With Sheets(1)
      .Range("a1").Resize(UBound(br), 3).ClearContents
      .Range("a1").Resize(UBound(br), 3) = br
End With
End Sub
不好意思，再问一下我在第一列和第二列之间插入2列后，那些数据需要改

hrpotter · 发表于 2012-6-22 13:57

9910343 发表于 2012-6-22 13:23
Sub 导入()
Dim ar, br
Dim d As Object

有新的附件吗？

9910343 · 发表于 2012-6-23 08:35

hrpotter 发表于 2012-6-22 13:57
有新的附件吗？

就是把数据的位置换一下，能否把代码的意思解释一下，授人以鱼不与授人以渔嘛

22.rar (6.48 KB, 下载次数: 10)

hrpotter · 发表于 2012-6-23 09:08

9910343 发表于 2012-6-23 08:35
就是把数据的位置换一下，能否把代码的意思解释一下，授人以鱼不与授人以渔嘛

Sub 导入()
Dim ar, br
Dim d As Object
Dim i As Integer
Set d = CreateObject("scripting.dictionary")
ar = Sheets("数据源").Range("a1").CurrentRegion
br = Sheets(1).Range("a1").CurrentRegion '将数据赋入数组中，提高运行效率
For i = 2 To UBound(ar)
d(ar(i, 2)) = ar(i, 6) 'ar(i,2)表示名称，ar(i,6)为止码，要是数据变换列数，可以相应改里面的数字
Next
For i = 2 To UBound(br)
If d.exists(br(i, 2)) Then 'br(i,2)表示名称
br(i, 5) = d(br(i, 2)) 'br(i,5)表示起码，br(i,2)表示名称,br(i,6)为止码
br(i, 6) = ""
End If
Next
With Sheets(1)
.Range("a1").Resize(UBound(br), UBound(br, 2)).ClearContents
.Range("a1").Resize(UBound(br), UBound(br, 2)) = br '将数组赋到单元格区域中
End With
End Sub

复制代码

9910343 · 发表于 2012-6-23 11:26

非常感谢谢谢谢谢

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

[已解决]数据怎么导入

相关帖子