マクロの構文でわからない所があります

質問

エクセル2013です。
退職者の作成したマクロの中で
何を処理しているのか、わからないところが
あります。
以下の構文ですが、
これは、何がどうした時、どういう処理
をするのでしょうか？
f8を押しながら見ていてもよくわかりません。
よろしくお願いします。

Do While Cells(Z, 6).Value <> ""

If Cells(Z, 1).Value <> "" Then Sheets("集計表").Cells(Z, 1).Value = Cells(Z, 1).Value Else: Sheets("集計表").Cells(Z, 1).Value = "-"

If Cells(Z, 5).Value <> "" Then Sheets("集計表").Cells(Z, 5).Value = Cells(Z, 5).Value Else: Sheets("集計表").Cells(Z, 5).Value = "-"

If Cells(Z, 6).Value <> "" Then Sheets("集計表").Cells(Z, 6).Value = Cells(Z, 6).Value Else: Sheets("集計表").Cells(Z, 6).Value = "-"
Z = Z + 1
Loop

回答No.2

kkkkkm · ベストアンサー

逆でした。

セルA1の値が無であれば集計表のセルA1の値は実行しているシートのセルA1の値、無でなければ集計表のセルA1の値は-
↓
セルA1の値が無でなければ集計表のセルA1の値は実行しているシートのセルA1の値、無であれば集計表のセルA1の値は-

以下無であるかどうかの判断は同じ

お礼

訂正回答ありがとうございました。
教えていただいた、内容で動いていました。
「集計表」のシートを開きながらf8で送っていて、混乱しました。
構文よく見たら、別シートの「入力」というシートを処理して
構文の内容で「集計表」のシートのセルに転記する、でした。
ありがとうございました。

回答No.1

kkkkkm

Zの初期の値が不明なので仮に1として

> Do While Cells(Z, 6).Value <> ""

セルF1の値が無でなければLoopまでの操作を続ける。
(以降F列の行は最後のZで足された数値の行となる、2,3,4,5行…とFxが無になるまで続く)

> If Cells(Z, 1).Value <> "" Then Sheets("集計表").Cells(Z, 1).Value = Cells(Z, 1).Value Else: Sheets("集計表").Cells(Z, 1).Value = "-"

セルA1の値が無であれば集計表のセルA1の値は実行しているシートのセルA1の値、無でなければ集計表のセルA1の値は-
Fxが無になるまでA1,A2,A3…と変化していく

> If Cells(Z, 5).Value <> "" Then Sheets("集計表").Cells(Z, 5).Value = Cells(Z, 5).Value Else: Sheets("集計表").Cells(Z, 5).Value = "-"

セルE1の値が無であれば集計表のセルE1の値は実行しているシートのセルE1の値、無でなければ集計表のセルE1の値は-
Fxが無になるまでE,1E2,E3…と変化していく

> If Cells(Z, 6).Value <> "" Then Sheets("集計表").Cells(Z, 6).Value = Cells(Z, 6).Value Else: Sheets("集計表").Cells(Z, 6).Value = "-"

セルF1の値が無であれば集計表のセルF1の値は実行しているシートのセルF1の値、無でなければ集計表のセルF1の値は-
Fxが無になるまでF,1F2,F3…と変化していく

> Z = Z + 1

Zに1を足す

> Loop

最初に戻る

お礼

ありがとうございます。
ｆ８で送りながら見ていてもおかしいなと
思いましたが、訂正回答くださいまして理解できました。