受講生 さん:

If 条件が満たされたら Then
'何もしない
Else
'何かする
End If

というのは、以下のように書き直せます。

If 条件が満たされなかったら Then
'何かする
End If

ということで、そこだけ直すと以下のような感じです。
(動作確認はしていません。もし動かなかったらすいません)

Sub hyou()
    '↓変数もインデントしましょう
    Dim gyo
    Dim gyoshya
    Dim furigana

    For gyo = 2 To 27
        If InStr(gyoshya, Range("A" & gyo).Value) = 0 Then
            gyoshya = gyoshya & "," & Range("A" & gyo).Value
            furigana = furigana & "," & Range("B" & gyo).Value
        End If
        Range("F2").Value = Mid(gyoshya, 2)
        Range("F3").Value = Mid(furigana, 2)
    Next   
End Sub

あと、セルF2、F3に何度も値を入れ直すことがコスト的にどうか？という点も気になりますね。
変数に値を格納するほうが低コスト(高速、低負荷)なので。

2020/05/18 05:49

小川慶一さん:

> 受講生 さん:
>
> If 条件が満たされたら Then
> '何もしない
> Else
> '何かする
> End If
>
> というのは、以下のように書き直せます。
>
> If 条件が満たされなかったら Then
> '何かする
> End If
>
> ということで、そこだけ直すと以下のような感じです。
> (動作確認はしていません。もし動かなかったらすいません)
>
>

Sub hyou()
>     '↓変数もインデントしましょう
>     Dim gyo
>     Dim gyoshya
>     Dim furigana
> 
>     For gyo = 2 To 27
>         If InStr(gyoshya, Range("A" & gyo).Value) = 0 Then
>             gyoshya = gyoshya & "," & Range("A" & gyo).Value
>             furigana = furigana & "," & Range("B" & gyo).Value
>         End If
>         Range("F2").Value = Mid(gyoshya, 2)
>         Range("F3").Value = Mid(furigana, 2)
>     Next   
> End Sub

>
> あと、セルF2、F3に何度も値を入れ直すことがコスト的にどうか？という点も気になりますね。
> 変数に値を格納するほうが低コスト(高速、低負荷)なので。

小川さん
解答ありがとうございます。
変数は事前に宣言しといたほうがいいんですね。参考にさせていただきます。

2020/05/18 06:11

受講生 さん:

> 変数は事前に宣言しといたほうがいいんですね。

コードのボリューム次第ですね。
100行とかになるプログラムだと、以下のような書き方になったりすることもあります。

sub hoge()
    当面使う変数宣言
    それなりにボリュームのあるひとかたまりの処理

    当面使う変数宣言
    それなりにボリュームのあるひとかたまりの処理

    当面使う変数宣言
    それなりにボリュームのあるひとかたまりの処理
end sub

2020/05/18 07:28