For j = 1 To Range("xdf1").End(xlToLeft).Column这一行,Range("xdf1")不存在,应该是Range("vf1")吧。这个代码应该是在列A里面搜索和单元格B32内容一致的表格,并且把表格地址和内容在C32以后打印出来。可以测试一下,给A列一组数据,在B32里面输入一个值,会自动查找。
粘贴的代码是不需要end sub的,如果系统提示缺少end sub,那可能是前面的代码缺少了。