| 
    
     |  | 返信ありがとうございます。 私の説明不足で、不明な点が多々ございますことを申し訳なく思います。
 
 
 >>F列に表の各行の文字列を全て表示させ、
 >数式を使っているのでしょうか?
 答)CONCATENATE関数により表示させています。
 
 >>  x = Range("F3").CurrentRegion.Rows.Count
 >>  y = x - 4
 >4引いてるという事は結局、表は1行目からあるのでは?
 答)4引いているのは、詳しくは分かりませんが、上記の行数の数え方だと、
 4行多く数えているようです。(表の外から数えているとも思えないのですが(汗)
 この結果から、xから4を引くことにしました。
 
 >>    If s Is Nothing Then
 >>      ActiveCell.Offset(0, 1).Value = 1
 >含まれていない場合に「1」を立てる?
 答)私の間違いです。申し訳ございませんでした。
 
 
 お教えいただいた方法で試してみたのですが、
 「リストの集計行は変更できません。」とのエラーが発生します。
 これまで試した中では、セルの内容(文字列)変更に関してエラーが
 出たことはなかったのですが・・・
 
 セルの内容変更に関して、私が考えたOffsetにてみたり、表の列を無意味
 に増やしてみたりしたのですが、やはり同じエラーが発生してしまいます。
 
 事前にリストによる絞込みができるようにしているのが問題なのでしょうか?
 
 |  |