Sub test（）
'workbooks 当前打的开的所有工作簿
'worksheets 指定工作簿下的所有工作表
'range（"a1:c6"） 指定单元格格区域下的所有单元格
Dim wb As Workbook, ws As Worksheet, rng As Range
For Each wb In Workbooks
MsgBox wb.Name
Next wb
For Each ws In Worksheets
MsgBox ws.Name
Next ws
For Each rng In Range（"a1:c3"）
MsgBox rng.Address & "=" & rng.Value
Next rng
End Sub
'workbooks 当前打的开的所有工作簿
'worksheets 指定工作簿下的所有工作表
'range（"a1:c6"） 指定单元格格区域下的所有单元格
Dim wb As Workbook, ws As Worksheet, rng As Range
For Each wb In Workbooks
MsgBox wb.Name
Next wb
For Each ws In Worksheets
MsgBox ws.Name
Next ws
For Each rng In Range（"a1:c3"）
MsgBox rng.Address & "=" & rng.Value
Next rng
End Sub
本站有权保留或删除有争议评论。 参与本评论即表明您已经阅读并接受上述条款。