试用了一下论坛里老师做的VBA程序，为什么我复制表格再复制代码就显示运行错误呢

非常6-1

如附件，请各位老师帮我看一下

模仿是我的附件，我在上传一下那个老师的原件

wanghmalan

hh = Sheet2.[b:b].Find(xm).Row

非常6-1

wanghmalan 发表于 2019-3-8 16:55
hh = Sheet2..Find(xm).Row

还是不行，这回显示第一句 sub zz() 不对 我一点运行测试这句话就标黄

wanghmalan

1. Sub zz()
   
2.     Dim a As Range, sht As Worksheet
   
3.     Set sht = Sheet1
   
4.     xm = sht.[k2]
   
5.     hh = Sheet2.[b:b].Find(xm).Row
   
6.     For j = 2 To 53
   
7.         Set a = sht.[a3:g22].Find(Sheet2.Cells(4, j))
   
8.         If Not a Is Nothing Then
   
9.             a.Offset(0, 1) = Sheet2.Cells(4, j).Offset(hh - 4, 0).Value
   
10.         End If
    
11.     Next
    
12. End Sub

复制代码

非常6-1

wanghmalan 发表于 2019-3-8 17:14

谢谢，我学习一下

非常6-1

wanghmalan 发表于 2019-3-8 17:14

在论坛看到一个由汇总生成分表的帖子，想用到我的表格里，但是不会改，请大神帮我...
http://club.excelhome.net/thread-1466458-1-1.html
(出处: ExcelHome技术论坛)
老师，您能我看一下这个吗

一指禅62

原工作簿的代码放在花名册工作表里，你模拟的改在了模块里。实质原因是模块中的Range必须指明其父级，即表示为如 Sheet1.Range（“A1”），而不能省略写为 Range（“A1”）。

非常6-1

一指禅62 发表于 2019-3-19 10:35
原工作簿的代码放在花名册工作表里，你模拟的改在了模块里。实质原因是模块中的Range必须指明其父级，即表 ...

明白了，谢谢老师