|
kenji さん、ごんぼほりさん、こんばんは。
>ありがとうございます。試しましたが、この方法が最適なようです。
>ただ、例えばB列の時はどこをどう変えればよいかわかりません。
>それと、セルが空白の時には【】を付けず、空白のままにしたいです。
>いろいろお手数掛けます。宜しくお願いします。
では、以下のように変更して下さい。
'=============================================================
Sub main()
Set rng = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
' ↑と ↑を2に変更
With rng
.Value = Application.Evaluate("=if(" & .Address & _
"<>"""",""【"" & " & .Address & " & ""】"","""")")
'数式を空白でなかったら、【】で囲むに変更
End With
End Sub
このEvaluateメソッド、優れものなんですが、全ての配列数式を
配列と認識してくれるわけではないみたいなので必ず確認が必要ですよ!!
今回は、ちゃんと認識してくれましたが・・・。
(まっ、インタープリタの身になってみると仕方ないんですが・・)
確認してみて下さい!!
|
|