Sub 宏1()
Dim b As Integer
For b = 3 To 100
Dim x As Integer
x = Application.CountIf(Sheet1.Range("A:A"), Sheet2.Cells(b, 3))
Set mrg = Sheet1.Cells(2, 1)
For y = 1 To x
Set mrg = Sheet1.Range("A:A").Find(Sheet2.Cells(b, 3).Value, mrg)
Dim t As Integer
t = 3 + y
Sheet2.Cells(b, t) = mrg.Offset(0, 1)（运行宏时显示左边代码错误91对象变量或with块变量未设置）
Next y
Next b
End Sub

你为什么在两层for设置了两次mrg变量？vb似乎没有这样的块级变量 你的问题或许是sheet2不是一个对象