ＥＸＣＥＬマクロについて

質問

条件　シート名提供データＥ列の3行目からデータが入っています。
　　　ブランク以外のデータをコピーしてシート名WorkのＣ列の2行目から貼り付けたいので下記のマクロを書いていますがおかしい所
はないのでしょうか。教えてください。
いまいちCellsの使い方がわかりません。
出来たら下記の意味を教えてください。
brank = Worksheets("提供データ").Cells(gyo, 5).Text
Range(Cells(3, 5), Cells(gyo, 5)).Select

Sub 貼付()
Dim gyo, brank
Sheets("提供データ").Select
Range("e3").Select
gyo = 2
Do
gyo = gyo + 1
brank = Worksheets("提供データ").Cells(gyo, 5).Text
Loop While brank <> ""
Range(Cells(3, 5), Cells(gyo, 5)).Select
Selection.Copy

Sheets("work").Select

Range("c2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

回答No.1

Be_DaMa · ベストアンサー

【Cellsについて】
Cellsはセルの位置を行番号と列番号で表します。
Cells(3,5) →セルE3 です。
3：行番号　5：列番号（1 = A,2 = B,・・・,5 = E,・・・です)

なので、例えば gyo = 5 の場合
Range(Cells(3,5),Cells(gyo,5)) は
Range(Cells(3,5),Cells(5,5)) で
Range("E3:E5")となり、セルE3からE5までです。

brank = Worksheets("提供データ").Cells(gyo, 5).Text は
brankという変数に「提供データ」という名前のシートのセルE5の値を代入する意味です。(gyo = 5 の場合)

マクロではE3からブランクまでのデータをコピーして
貼付けるようになっていますので
ブランクの後にまたデータがある場合はコピーしていません。
ブランクまでを張付けるなら
Range(Cells(3, 5), Cells(gyo, 5)).Select　(10行目) を
Range(Cells(3, 5), Cells(gyo-1, 5)).Select にするとよいかと思います。