【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか？

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

解決済

  • 質問者：VitaminBB
  • 質問日時：
  • 回答数：1件

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

ｎ列　　（ｎ＋１）列

あ　　　　　あ*
い　　　　　い*
う　　　　　え*


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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

No.1ベストアンサー

  • 回答者： bin-chan
  • 回答日時：

最後から４行目の


.Formula = "=" & R.Address(0, 0)
を
.Formula = "=" & R.Address(0, 0) & "&""*"""
にしてください。
    • good
    • 0
    • 件
通報する
この回答へのお礼

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

通報する
お礼日時：2006/04/24 22:00

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報