質問: Cells(selerow, 5) & "+" & Cells(cnt, 5).Value ’★ End If Else MsgBox "品番がみつかりませんでした。" End If Next cnt ``` 実行すると、品番B~Dは図のようになりますが、 品番Aは"10+30"と入り、"="が抜けてしまいます。 コードをどのように修正すればよろしいですか? もっとスマートな書き方があれば、教えて下さい。 ●質問後に追記しました。 ★の部分のコードを下記に変えたら ``` Cells(selerow, 5) ="=" & Cells(selerow, 5) & "+" & Cells(cnt, 5).Value ``` 例えば、品番Aが3つ以上あった場合 品番A 10、20、30 の場合 上記コードだと "=30+30" 最初の"10+20"は数字になってしまいます。 "=10+20+30" とはなりません。
回答: 自己解決致しました。 ``` Cells(selerow, 5) = Cells(selerow, 5) & "+" & Cells(cnt, 2).Value ↓ Cells(selerow, 5).Formula = Cells(selerow, 5).Formula & "+" & Cells(cnt, 2).Value ```