|
全然解らないですけど...。
組み方が解らないって事だとして、大体こんな感じ。
まんまの説明でいいのか解らなかったんで、所々コードを入れました。
i = 1 '行カウンタに1
'セルA列i行目のセルが空白になるまで繰返し
Do Until Cells(i,1).Value = ""
'セルA列i行目が結合セルでなかったら
If Not Cells(i,1).MergeArea then
'セルA列i行目に書いてあるフォルダ(フルパス)があれば
If Dir(Cells(i,1).value,vbDirectory) <> "" then
'セル???に書いてあるファイルがあれば
IF Dir(Cells(i,1).value & "\" & Cells(?,??).value) <> "" then
○ファイル元からコピーして所定の場所に保存
Else
○セルにいろをつける
End If
Else 'フォルダがなければ、フォルダ作成
MkDir (Cells(i,1).value)
○ファイル元からコピーして所定の場所に保存
End if
Endif
i = i + 1 '行カウンタに+1
Loop
|
|