EXCEL 頭に特定の文字があった場合、文字記入

質問

B列に複数の品番がありますが、頭に「CY」があった品番のみK列に「図面は不要」と自動で入力するように下記マクロに追加したいのですが、教えて下さる方からの回答をお待ちしています。

※BからK列のJ列に記載があったものだけを抜粋しています。
sub macro()
　range("B:K").autofilter field:=9, criteria1:="="
　activesheet.autofilter.range.offset(1).entirerow.delete shift:=xlshiftup
　activesheet.autofiltermode = false
end sub

回答No.1

keithin · ベストアンサー

sub macro()
　dim LastRow as long
　range("B:K").autofilter field:=1, criteria1:="=CY*"
　lastrow = range("B65536").end(xlup).row
　if lastrow > 1 then
　range("K2:K" & lastrow) = "図面は不要"
　end if
　activesheet.autofiltermode = false

　range("B:K").autofilter field:=9, criteria1:="="
　activesheet.autofilter.range.offset(1).entirerow.delete shift:=xlshiftup
　activesheet.autofiltermode = false
end sub
とか。

お礼

お世話になります。
早速回答頂き有難うございます。
条件がハッキリしていれば、マクロという機能はすごく効率よく出来るものだと、改めて感心しています。
助かりました。”感謝”