セルにワイルドカード*を含む式を書き込むには？

質問

下記コードはアクティブセルの右にアクティブセルと同じ値を書き込みますが、
ワイルドカード付きの値を書き込むにはどうすれば良いのでしょうか？

ｎ列　　（ｎ＋１）列

あ　　　　　あ*
い　　　　　い*
う　　　　　え*

＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

Sub test1()
Dim R As Range, R1 As Range

Set R = ActiveCell
Set R1 = Range(R, Cells(Rows.Count, R.Column).End(xlUp))

With R1.Offset(, 1)
.Formula = "=" & R.Address(0, 0)
End With
Set R1 = Nothing: Set R = Nothing
End Sub

回答No.1

bin-chan · ベストアンサー

最後から４行目の
.Formula = "=" & R.Address(0, 0)
を
.Formula = "=" & R.Address(0, 0) & "&""*"""
にしてください。

お礼

回答ありがとうございます。ようやく出来ました。
”の使い方が難しいですね。