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 请各位高手帮忙看看,如果代码正确,问题出在哪?如果能解释这个代码什么意思将不胜感激。 展开
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 请各位高手帮忙看看,如果代码正确,问题出在哪?如果能解释这个代码什么意思将不胜感激。 展开
4个回答
展开全部
代码行“For j = 1 To Range("xdf1").End(xlToLeft).Column”中的“Range("xdf1")"的引用“xdf1”错误
其他在语法上没有错误
其他在语法上没有错误
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
代码没错
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你的这段代码没有这样的错误,会不是还有其他代码中存在这个问题?
2007以上版本有XDF列
2007以上版本有XDF列
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询