|
下面的代码运行时提示(缺少函数或变量)
不知道怎么弄还望各路大神帮忙看看!~
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:42 编辑
Option Explicit ' 变量 需要强制声明
去掉这句 , 或者 把变量声明一下
dim d,a .............
自行 搜索 " Vba Dim" 吧 , 这是最vba基础的东西了
|
|