Dim rowNum As Integer rowNum = [繰り返しを始めたい行番号] Do While Cells(rowNum, [ある値のある列番号]).Value <> [ある値] ' ' 繰り返し実行したい処理を記述する ' rowNum = rowNum + 1 Loop ある値の行まで繰り返す ここでは特定の列にある値になる…

Dim fso As Object Dim folderPath As String Dim filePath As Object Set fso = CreateObject("Scripting.FileSystemObject") ' 「folderPath」配下のファイル数分繰り返す。 For Each filePath In fso.getFolder(folderPath).Files ' ' 繰り返し実行したい…