【マクロの成長記録：14日目】日付関数の練習

どーもKiyotomoです。

あっという間に日曜日が終わりますね。
また明日から1週間頑張りましょう。

さて、今日もマクロにチャレンジします。

14日目

今日の問題はこちら

練習問題13（文字列関数の練習）｜VBA練習問題

文字列関数の練習

全く同じような事はさすがにないですが、
特定の条件のみ、違う事をさせるようなよくありますね。
今までは"IF"の関数を使って対処してました。

記載したコード

Sub 練習13()
　Dim 都道府県 As Variant
　Dim 所在地 As Variant
　Dim i As Long
　　For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
　　Cells(i, 2) = Cells(i, 2) & "("

　都道府県 = Left(Cells(i, 1), InStr(Cells(i, 1), "(") - 2)
 　所在地 = Left(Cells(i, 2), InStr(Cells(i, 2), "(") - 1)

 　　If 都道府県 = 所在地 Then
　　　Cells(i, 3) = Left(Cells(i, 1), InStr(Cells(i, 1), "(") - 1)
　　　Else
　　　Cells(i, 3) = Left(Cells(i, 1), InStr(Cells(i, 1), "(") - 1) & "(" & 所在地 & ")"
　　End If
　　　Cells(i, 2) = Left(Cells(i, 2), InStr(Cells(i, 2), "(") - 1)　
　Next i
End Sub

なんとかこれでいけました。
一発では記載できずに、何度か違う答えを表示させながら、
微調整してコードを書いた感じになります。

今日は以上です。継続的な努力でちょっとずつ変わっていきましょう。

最後まで読んで頂きありがとうございましたー！