マクロの一部分が理解できません。。for to next

質問

業務でexcelのマクロの解析をやらなくてはいけなくなりまして、
頭からずっと見ているのですが、以下の構文のところがどのような動きになっているか分かりません。。
そのexcelは、元データのcsvファイルを一度excelに出力し、そこからある部分だけ抜き取って、シートに貼り付けていくというマクロになっています。

教えていただけませんでしょうか？

よろしくお願いします。

ChDir Path
Workbooks.OpenText Filename:= _
cpufile, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
, 1), Array(4, 1), Array(5, 1), Array(6, 3))
r1 = Range("F65536").End(xlUp).Row
Fr1 = "A1:F" & r1
Columns("F:F").EntireColumn.AutoFit

'
For gyosu1 = 1 To r1
saki = Workbooks(cpudata).Worksheets(cpudata).Cells(gyosu1, 7).Text
Select Case saki
Case sample1
samplegyo1 = gyosu1
Case sample2
samplegyo2 = gyosu1
Case sample3
samplegyo3 = gyosu1
Case sample4
samplegyo4 = gyosu1
Case sample5
samplegyo5 = gyosu1
Case sample6
samplegyo6 = gyosu1
Case sample7
samplegyo7 = gyosu1
Case sample8
samplegyo8 = gyosu1
End Select
　Next

回答No.1

n-jun

＞r1 = Range("F65536").End(xlUp).Row
＞For gyosu1 = 1 To r1
Ｆ列の１行目から最終行までと同行の
＞saki = Workbooks(cpudata).Worksheets(cpudata).Cells(gyosu1, 7).Text
ブック（変数cpudataに格納された名前）のシート（左に同じ）のＧ列の値（表示されている）を
順次取得し、

＞Select Case saki
＞Case sample1
変数sample1～sample8と同じ場合に、対応する変数samplegyo1～samplegyo8に
その行数（gyosu1の値）を代入していく。

と言った感じではないでしょうか。

ただそれらが何を示しているのかは、提示された部分からはわかりませんので。