質問です

エクセルのSheet1のB列の1行目からデータがあります
Sheet2のA列の1行目から参照データがあります

Sheet2のA列の参照データをみてSheet1のB列データの中に同じものがあれば
Sheet1のB列の同じ文字を,カンマと置き換えるマクロか関数をおねがいします。

Sheet1
B列
aaaaaaaaaaあああ01110111
bbbbbbbbbbい1011011110

Sheet2
A列




答え
Sheet1
B列
aaaaaaaaaa,,,01110111
bbbbbbbbbb,1011011110

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2011/07/06 18:56:57
  • 終了:2011/07/06 19:59:32

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982011/07/06 19:48:20

ポイント100pt
Sub Macro1()

    a1 = "sheet1"
    a2 = "sheet2"
    
    If Worksheets(a2).Range("A2") = "" Then
        b = 1
    Else
        b = Worksheets(a2).Range("A1").End(xlDown).Row
    End If


    For c = 1 To b
        Worksheets(a1).Columns("B:B").Replace What:=Worksheets(a2).Cells(c, "A"), Replacement:=",", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    Next c
End Sub
id:inosisi4141

早速ありがとうございます

参照データを作って試してみます

テストではOKです

2011/07/06 19:59:14

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません