質問: "女性" End If End Sub
回答: 更新するセルの行が ActiveCell.Row になっているのがまずいです。 私がよくやる方法は、該当データをリストボックスに表示する時、行数を最後の列に入れておくことです。 そうすれば更新時にその行数を使って正しく更新出来ます。 現在のリストボックスの列数を1個増やして、列幅は0にします。 リストボックスへ値入れていくコードに、リストボックス最後の列に行数を入れる処理を追加して下さい。 ダブルクリックで、データを決める時に、その行数を変数に入れます。 コードが修正の部分しか書いていないので、具体的なコードが書けないので、わからなければ、リストボックスに表示する部分のコードを返信に書いて下さい。 (返信は文字数制限があるので、いくつかに分けないと記載出来ないかもしれません。)