用字典方法快速填充数据

Albert128 · 发表于 2012-9-1 20:07

本帖最后由 Albert128 于 2012-9-1 20:25 编辑

请各位大师们，帮我看看下面代码错在哪里？帮忙修正，谢谢！
Sub wsr字典()
Dim d, c, Sj, Brr()
Set d = CreateObject("scripting.dictionary")
nr1 = Sheet2.Range("a65536").End(3).Row
Brr = Sheet2.Range("a3:a" & nr1).Value
      For i = 1 To nr1 - 2 Step 35
         d(Brr(i, 1)) = i
      Next

      ReDim arr(1 To nr1 - 2, 1 To 1)

nr2 = Sheet1.Range("b1").End(xlToRight).Column
Sj = Sheet1.Range(Cells(1, 2), Cells(29, nr2)).Value‘运行到此提示错误


      For i = 2 To nr2 - 2
         nr = d(Sj(1, i))
         If nr = "" Then
            d(Sj(1, i)) = ""
         Else
            Sheet2.Range("a" & nr).Offset(2, 3).Resize(25) = Sj(3, i).Resize(25)‘运行到此提示错误

         End If
      Next
  End Sub

清风9716 · 发表于 2012-9-1 20:21

加了密的。

Albert128 · 发表于 2012-9-1 20:27

清风9716 发表于 2012-9-1 20:21
加了密的。

不好意思!开始没有留意到.附件密码已取消

wj2368 · 发表于 2012-9-1 20:44

.....................

清风9716 · 发表于 2012-9-1 20:45

只发现一处：Sheet2.Range("a" & nr).Offset(2, 3).Resize(25) = Sj(3, i).Resize(25)可用单元格循环赋值代替。

artin88 · 发表于 2012-9-1 20:49

把sheet1去掉就可以了

artin88 · 发表于 2012-9-1 20:50

Sj = Range(Cells(1, 2), Cells(29, nr2)).Value

Albert128 · 发表于 2012-9-1 21:10

wj2368 发表于 2012-9-1 20:44
.....................

您好!
在WSR工作里,我不需要把店号和店名也填充进去。请再次修改一下，谢谢！

wj2368 · 发表于 2012-9-2 10:10

Albert128 发表于 2012-9-1 21:10
您好!
在WSR工作里,我不需要把店号和店名也填充进去。请再次修改一下，谢谢！

..............

12122122 · 发表于 2018-8-2 18:36

请教几个问题（1）nr2 i nr都没进行变量定义为什么可以运行不报错？
（2）nr = d(Sj(1, i))
If nr = "" Then
d(Sj(1, i)) = ""这句怎么理解

谢谢

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

[求助] 用字典方法快速填充数据

评分