Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1560|回复: 3

[已解决]帮忙看看这个代码哪里有问题!谢谢

[复制链接]
发表于 2021-9-10 15:41 | 显示全部楼层 |阅读模式
下面的代码运行时提示(缺少函数或变量)
不知道怎么弄还望各路大神帮忙看看!~



Sub HZB() '根据原始求坐标
With Sheet2
   Set d = CreateObject("Scripting.Dictionary")
   a = .Range(.[ia6], .[ic6].End(4)) '坐标参考
   For i = 1 To UBound(a)
      d(a(i, 1)) = a(i, 2)
   Next
   a = .Range(.[c6], .[h6].End(4)) '原始区域
   For i = 1 To UBound(a)
      For j = 1 To 6: a(i, j) = d(a(i, j)): Next
   Next
   .[k6:p205].ClearContents '删除输出区域
   .[k6].Resize(UBound(a), 6) = a '输出开始
   End With

End Sub

最佳答案
2021-9-10 17:34
本帖最后由 砂海 于 2021-9-10 17:42 编辑

Option Explicit ' 变量 需要强制声明
去掉这句 , 或者 把变量声明一下
dim d,a    .............
自行 搜索  " Vba Dim" 吧 , 这是最vba基础的东西了
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2021-9-10 16:23 | 显示全部楼层
回复

使用道具 举报

发表于 2021-9-10 17:34 | 显示全部楼层    本楼为最佳答案   
本帖最后由 砂海 于 2021-9-10 17:42 编辑

Option Explicit ' 变量 需要强制声明
去掉这句 , 或者 把变量声明一下
dim d,a    .............
自行 搜索  " Vba Dim" 吧 , 这是最vba基础的东西了
回复

使用道具 举报

 楼主| 发表于 2021-9-10 19:55 | 显示全部楼层
砂海 发表于 2021-9-10 17:34
Option Explicit ' 变量 需要强制声明
去掉这句 , 或者 把变量声明一下
dim d,a    .............

多谢!~
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 05:39 , Processed in 0.205872 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表