[已解决]请教一个VBA代码，谢谢！

lsy1133

For Each sha In Worksheets

    SHh = Sheets("A1").UsedRange.Find(sha.Name,lookat:=xlWhole).Row

    sha.Name = Sheets("A1").Range("B" & SHh)

Next

以上代码运行到SHh =Sheets("A1").UsedRange.Find(sha.Name, lookat:=xlWhole).Row这句时总显示

“运行错误91

        对象变量或With块变量未设置”

是什么原因？

是否Find(sha.Name,lookat:=xlWhole)中sha.Name不是字符串，如何转换为字符串？

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-9-8 11:29

  加上下面红色部分就没问题了。

  For Each sha In Worksheets
     If ActiveSheet.Name <> sha.Name Then sha.Name = Sheets("A1").UsedRange.Find(sha.Name, , , xlWhole).Offset(0, 1).Value
    Next

跳转到最佳答案楼层

yorkchenshunan

sha.name是字符串，至于出现问题的原因我还看不出来，如果你能上附件最好

dsmch

查找不到该单元格会出现这类提示，如果能查到则无

suye1010

SHh = Sheets("A1").UsedRange.Find(sha.Name,lookat:=xlWhole).Row这句改为
改为SHh = Sheets("A1").UsedRange.Find(sha.Name,,,xlWhole).Row

这个语句也可以简化成

For Each sha In Worksheets
   sha.Name = Sheets("A1").UsedRange.Find(sha.Name,,,xlWhole).offset(0,1).value
Next
更多内容，请参看以下Find方法的帮助信息：
https://msdn.microsoft.com/EN-US/library/ff839746.aspx

lsy1133

suye1010 发表于 2015-9-8 10:16
SHh = Sheets("A1").UsedRange.Find(sha.Name,lookat:=xlWhole).Row这句改为
改为SHh = Sheets("A1").Used ...

这么改还是有这个提示，不知是什么原因。

suye1010

lsy1133 发表于 2015-9-8 10:35
这么改还是有这个提示，不知是什么原因。

你确定你有个 名称为 A1 的工作表吗？

爱疯

提示了“请重新发帖”，移入回收后的帖最好重发新帖，这次算了。

如果不是恰巧看到，版主是不知道你又上传了附件的。

lsy1133

suye1010 发表于 2015-9-8 11:21
你确定你有个 名称为 A1 的工作表吗？

有的，上传附件了

gufengaoyue

  加上下面红色部分就没问题了。

  For Each sha In Worksheets
     If ActiveSheet.Name <> sha.Name Then sha.Name = Sheets("A1").UsedRange.Find(sha.Name, , , xlWhole).Offset(0, 1).Value
    Next

lsy1133

yorkchenshunan 发表于 2015-9-8 08:36
sha.name是字符串，至于出现问题的原因我还看不出来，如果你能上附件最好

已上传附件了，请帮我看下，谢谢！