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
受講生さんの投稿
(投稿ID: 4725)
小川さんのコードはシンプルで読みやすいです。私が書いたコードだとだいぶ無駄がありますね。汗
下記がコードです。
このコードでやってしまうと、仮にA~Zまでを求める場合、パターンが増えるので大変だなぁと思いました。もう少し効率よく書きたいもんです。
小川慶一さんのコメント
(コメントID: 6591)
このお題のポイントは、出力する値(数値)をFor Nextループ内で自由に制御できるか?
というところです。
そこに意識をおいてもう一度動画を見て再トライしてみてください☆