お世話になります。VBAについてお力をお借りできたらと思います。 下記のコードに条件を足したいのですが、うまくいかないため質問いたしました。 まず、やりたい事(現状):

画像

Visual Basic | Excel114閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ご丁寧にありがとうございます!やりたい事が出来ました!詳しく書いていただいたので、BAとさせて頂きます。 また、何かあれば、お力をお借りできたらとおもいます。 本当にありがとうございます!

お礼日時:7/6 14:39

その他の回答(1件)

0

まず、よくみるのですが、 Dim i, r1, r3 As Long はr3以外はバリアント型になりますで Dim i As Long Dim r1 As Long Dim r3 As Long とします。 次に ' ctbl = Array(3, 4, 7, 8, 14) ctbl = Array(4, 5, 8, 9, 14) 3でなく4です。 次に For i = 1 To UBound(tbl) ' If .Cells(r1, 4).Value Like "*" & tbl(i, 1) Then If .Cells(r1, 5).Value Like "*/" & tbl(i, 1) Then matchflag = True Exit For End If Next i .Cells(r1, 4).Valueでなく.Cells(r1, 5).Value です。 それで "*"を "*/"にすると抜き出せます。おそらく