18、VBA不学for each next,就像不会骑自行车一样（零基础入门）

1、在VBA编程中，我们曾与for next循环并肩作战，它一度成为编写程序时难以绕开的得力助手。不过这位“数字循环大师”却又着自己的局限—仅能在数字的世界里叱刹风云。For each next循环该是时候横空出世了，它突破数字的边界，专注循环遍历各类对象，让程序的表达更加灵活高效。一旦掌握，就像解锁骑车秘籍，畅快地穿梭大街小巷。

2、举例介绍for each next 循环

For Each rng In Sheet1.Range(“j6:j15”)

'取j6:j15中的每个单元格

For Each wsh In Worksheets

'在工作簿的每一个工作表循环

For Each pic In UserForm1.Controls

在窗体中循环取控件

For Each sha In sheet1.shape

在工作表中循环找图形

3、图解（for each next遍历单元格）

4、一键制作技能矩阵图

Sub 矩阵图()

On Error Resume Next

'关闭错误提醒

Dim rn, t, sha As Shape

For Each sha In Sheets(“sheet1”).Shapes

sha.Delete

'遍历工作表中的图片，并删除

Next

Set rn = Application.InputBox(Prompt:=”选择需要插入矩阵图的区域：”, Type:=8)

'application.iinputbox的一种类型，自用选择单元格

Dim ran, i$

For Each ran In rn

'然后遍历选择到的区域

i = ThisWorkbook.Path & “” & ran & “.jpg”

'确定图片路径

ActiveSheet.Shapes.AddPicture i, True, True, ran.Left + 1, ran.Top + 1, ran.Width – 2, ran.Height – 2

'导入图片。+1 -1的意思是让图片不完全覆盖单元格

Next

End Sub

（本章完）你学会了吗？有任何批评或疑问，可以在评论区讨论，谢谢！！

不论你是求知若渴的在校学生，还是在职场摸爬滚打多年的上班族，只要怀揣着提升自我的决心，别犹豫，快点赞、关注、收藏！我会始终站在零基础小白的视角，循序渐进，带你一步步踏入VBA的奇妙世界。