首页 > 解决方案 > 如何为每个填充的行循环我的代码?

问题描述

祝大家阅读愉快。

我仍然是 VBA 的新手,并且正在学习循环函数,但被困在一个非常基本的练习中。

我编写了一个简单的代码,它根据单元格值识别文件位置,但此代码仅适用于第一行,需要将其更改为适用于所有填充的行。

Sub Filecheck()

Dim FileName1 As String
Dim FileName2 As String
Dim FolderSource As String


FileName1 = Sheet1.Range("B2")
FileName2 = Sheet1.Range("A2")

    FolderSource = "C:\Users\mminnaar\Desktop\Service Requests" & "\" & FileName1 & "\" & Format(FileName2, "yyyy-mm-dd")
    Sheet1.Range("E2") = FolderSource

End Sub 

目的是从“2”行(考虑到标题)中识别“A”列中的每个填充单元格,并用文件位置填充“E”列。

提前致谢

标签: vbaloops

解决方案


推荐阅读