テキストボックスのデータを最下行の空白セルに追加したい」という検索キーワードに気づきました。Excelで(私にはその理由がわかりませんけれど)セルではなくテキストボックスに、やたら文字を入力する方がいらっしゃいます。Applications)のコードを探していた方による検索です。[スポンサードリンク]テキストボックスの文字列をセルに書き出すサンプルマクロ以下のマクロを実行すると、アクティブなワークシート上に存在するテキストボックスの文字列が、A列の下のほうに書き出されます。「最下行の空白セル」の「最下行」をどうとらえるかですが、ここでは[選択オプション]ダイアログ-[最後のセル]オプションで選択されるセルとしました。RangeオブジェクトのSpecialCellsメソッドの引数に、定数・xlCellTypeLastCellを指定することで、最後のセルを表すRangeオブジェクトを取得して、その行番号に(その直下に書き出すより少し隙間があったほうがよさそうなのでとりあえず)「+3」した行以下に書き出すようにしています。_shp.TextFrame.Characters.Text書き出す行番号をインクリメントしています。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。