- Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
906 ：デフォルトの名無しさん[]：2015/03/31(火) 07:42:55.85 ID:s6+ygsCh - dim 行数,i,j as integer
for i ＝ 1 to 100
行数＝worksheetfunction.iferror(worksheetfunction.match(最新ブック.cells(i,1),過去ブック.range(”a1:a100”),0),””)
if 行数〈〉”” then
最新ブック.cells(i,3)＝最新ブック.cells(i,1)−過去ブック.cells(行数1,1)
else
最新ブック.cells(i,3)＝”out”
endif
next
for j ＝1 to 100
if cells(i,3)＝”” then
cells(i,3)＝”out”
endif
next
これで回るかな。実験してません、、
| - Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
907 ：デフォルトの名無しさん[]：2015/03/31(火) 07:58:12.15 ID:s6+ygsCh - 後半修正です。
for j ＝1 to 100
if 最新ブック.cells(i,3)＝”” then
最新ブック.cells(i,3)＝”new”
endif
next
|
|