不知道这个有什么作用,但是看了后面的实例才知道他的用处非常大
![]() |
ltm_518
展开
|
![]() |
YJ-Here
展开
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
|
![]() |
游客
展开
|
![]() |
任立冬08
展开
|
![]() |
大春哥
展开
|
![]() |
T613480on
展开
|
承担因您的行为而导致的法律责任,
本站有权保留或删除有争议评论。
参与本评论即表明您已经阅读并接受
上述条款。