VBA跨工作簿引用怎么实现（vba跨工作簿查询匹配数据）

Sub rename()

For i = 1 To Sheets.Count

Sheets(i).Name = Sheets(i).Cells(1, 1).Value

Next

End Sub

假设每张sheet都以A1单元格内容命名

Sub Rename()

For i = 1 To 100

Sheets(i).Name = Cells(i, 1)

Next

End Sub

假设每张sheet都以sheet1的第一列依次命名

描述不清晰，如果是跨工作薄引用的话，可以使用Workbooks("工作薄名").Sheets("工作表名").range("单元格")比如：a=Workbooks("工作薄名").Sheets("工作表名").range("单元格")然后判断A的值