Question

Excel 中VB 批量修改工作部名称问题？

sub rename()
Dim i%
for i=2 to 100 step 1
if sheets.count <i then
endif
elseif sheets(1).cells(i,1)<>"" then
sheets(i).name=sheets(1).cells(i,1)
next
endif
end sub

批量重命名工作部名称，第一个工作部中A列放名称，想用用VB，要判断工作部个数，但是语句不对，怎么修改？

Answer 1

工作薄 是文件， 工作表 是 文件里的Sheet， 我发现你都分不清 什么是什么

Sub rename()
 For Each sht In ThisWorkbook.Sheets
    If sht.Index > 1 Then
      i = i + 1
      If Sheets(1).Cells(i + 1, 1) <> "" Then
        sht.Name = Sheets(1).Cells(i + 1, 1)
      End If
    End If
 Next
 MsgBox "重命名完成"
End Sub