投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ ベーシック
各資料ごとに1番からの番号を割り振る。AutoFill機能より便利なマクロ

受講生さんの投稿

(投稿ID: 4725)

お疲れ様です。

小川さんのコードはシンプルで読みやすいです。私が書いたコードだとだいぶ無駄がありますね。汗　

下記がコードです。
Sub banngou()
Dim siryou
Dim gyo

    For gyo = 4 To 19
        siryou = Range("C" & gyo).Value

    If InStr(siryou, "A") > 0 Then
        Range("B" & gyo).Value = Replace(Mid(siryou, 3), "A", 1)
    
    ElseIf InStr(siryou, "B") > 0 Then
        Range("B" & gyo).Value = Replace(Mid(siryou, 3), "B", 2)
    
    ElseIf InStr(siryou, "C") > 0 Then
        Range("B" & gyo).Value = Replace(Mid(siryou, 3), "C", 3)
        
    End If

    Next
End Sub

このコードでやってしまうと、仮にA～Zまでを求める場合、パターンが増えるので大変だなぁと思いました。もう少し効率よく書きたいもんです。
2020/05/18 02:52