リストボックスに仕入外注先名だけでなく、科目名も表示させられるようにします。
リストボックスのプロパティのColumnCountを変更します。
リストボックスに表示されているデータの行数をカウントし、1を引きます。
リストボックスをExcelのセルと同じように見た場合、次の図のようになります。
Excelシートでいう、A1は(0,0)となるので、そのため1を引いています。
は、データをリストボックスに追加したとき、ListBox1.List(0, 0)に自動的に割り振られます。