'Dim a, b, m() 声明变量a，b和动态数组m
'For a = 1 To Worksheets.Count 遍历工作表
'ReDim Preserve m(a - 1) 冲定义动态数组，扩大下标，保留原来的数据
' For b = 1 To Sheets(a).Range("IV5").End(xlToLeft).Column 遍历第5行有数据的单元格
'If Sheets(a).Cells(5, b) = "Static Fluid Level(m)" Then 如果有指定的文字
'm(a - 1) = b: Exit For 就保存到数组，并结束单元格循环
'End If
'Next 单元格循环体结束
'Next 工作表循环体结束
内容全部来源于网络收集，如有侵权，请联系网站删除！