[已解决]谢谢zjdh老师。索引导入外部数据（2）

lhj323323 · 发表于 2012-8-8 18:13

本帖最后由 lhj323323 于 2012-8-8 20:28 编辑

老师

此贴与刚才的求助贴：[求助]索引导入外部数据（1）不同，有较大的区别，请版主别急于删除。谢谢了

提取外部数据.rar (873.16 KB, 下载次数: 6)

zjdh · 发表于 2012-8-8 19:31

导入.rar (877.35 KB, 下载次数: 41)

lhj323323 · 发表于 2012-8-8 19:53

zjdh 发表于 2012-8-8 19:31

老师：

Sub 索引导入()
With Sheet3
      .Range("B2:O65536").ClearContents
      ARR2 = .Range("A2:O" & .Range("A65536").End(3).Row)
      索引
      For i = 1 To UBound(ARR2)
         For J = 1 To UBound(arr)
            If ARR2(i, 1) = arr(J, 2) * 1 Then
                  ARR2(i, 2) = arr(J, 1)
                  For k = 3 To 15
                     ARR2(i, k) = arr(J, k)
                  Next
                  Exit For
            End If
         Next
      Next
      .Cells(2, 1).Resize(UBound(ARR2), UBound(ARR2, 2)) = ARR2
End With
Erase arr
End Sub

以上代码是您写的，能否将数组 ARR2 和结果表数组分别设定，因为在实际运行中，股票代码所在的列与这次需要导入的结果之间还有多达26列，所以，我想把结果数组单独设为ARR3

zjdh · 发表于 2012-8-8 20:03

不明白！！？？

lhj323323 · 发表于 2012-8-8 20:27

zjdh 发表于 2012-8-8 20:03
不明白！！？？

呵呵，不好意思，我没转过弯，现在明白了，我能解决后续的困难，谢谢您。

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