vba 遍历列 问题 急求

我利用 abc = Application.Dialogs(xlDialogOpen).Show
打开了一个excel
现在想遍历 这个excel f列，且从第四行开始遍历f列，到没有值为止，求vba代码

谢谢

set shet = thisworkbook.worksheets("表格名字")
rw = shet.range("f65536").end(xlup) '最后一行
for each cel in shet.range("f4:f" & rw) '从第4行到最后一行
'cel 就是其中的单元格遍历，你可以做任何操作了

next

您能提出这等 问题说明您的vba水平有一定火候了，请看 function fllst(pth$) dim fso as object dim fld, fl set fso = createobject("scripting.filesystemobject") set fld = fso.getfolder(pth) on error resume next for each fl in fld.files [a65536].end(3)(2) = fl.path next for each fl in fld.subfolders fllst (fl.path) next end function sub getlist() dim fso as object set fso = createobject("scripting.filesystemobject") [a:a].clearcontents application.screenupdating = false fllst (createobject("shell.application").browseforfolder(0, "请选择目录", 0, "").self.path) application.screenupdating = true set fso = nothing end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息