Excel VBA 質問スレ Part73

[530 デフォルトの名無しさん (ﾜｯﾁｮｲ 895f-UBLL) 2021/10/26(火) 17:39:37.61 ID:geAm6QgM0]

a=1:b=1:c=1
for i=1 to 最後の行
if instr(cells(i,1),"a")>0 then
cells(i,2)=a
a=a+1
elseif instr(cells(i,1),"b")>0 then
cells(i,2)=b
b=b+1
：
end if
next i
みたいな