excel 运行宏时总是提示编译错误:缺少 End Sub ,但是VBA编辑器中的代码中有 End Sub 下面是代码:

PrivateSubWorksheet_Change(ByValTargetAsRange)Dimi%,j%,k%k=32IfTarget.Address="$B$32"... Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%, j%, k%
k = 32
If Target.Address = "$B$32" Then
Range("c32:c65536").ClearContents
For i = 1 To Range("a65536").End(xlUp).Row
For j = 1 To Range("xdf1").End(xlToLeft).Column
If Cells(i, j) = Range("b32") Then
Cells(k, 3) = Cells(i, j).Address & "=" & Cells(i, j)
k = k + 1
End If
Next
Next
End If
End Sub 请各位高手帮忙看看,如果代码正确,问题出在哪?如果能解释这个代码什么意思将不胜感激。
展开
 我来答
symoursx
2011-10-03 · TA获得超过573个赞
知道小有建树答主
回答量:587
采纳率:0%
帮助的人:241万
展开全部
For j = 1 To Range("xdf1").End(xlToLeft).Column
这一行,Range("xdf1")不存在,应该是Range("vf1")吧。

这个代码应该是在列A里面搜索和单元格B32内容一致的表格,并且把表格地址和内容在C32以后打印出来。
可以测试一下,给A列一组数据,在B32里面输入一个值,会自动查找。
一千零八十度
2011-10-04 · TA获得超过147个赞
知道答主
回答量:114
采纳率:0%
帮助的人:101万
展开全部
代码行“For j = 1 To Range("xdf1").End(xlToLeft).Column”中的“Range("xdf1")"的引用“xdf1”错误
其他在语法上没有错误
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友cdcc749fa
2011-10-03 · TA获得超过239个赞
知道答主
回答量:182
采纳率:100%
帮助的人:89.1万
展开全部
代码没错
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
太极健1969
2011-10-03 · TA获得超过9034个赞
知道大有可为答主
回答量:8668
采纳率:69%
帮助的人:3642万
展开全部
你的这段代码没有这样的错误,会不是还有其他代码中存在这个问题?
2007以上版本有XDF列
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式