|
VBWASURETAさん
いつも助けていただき感謝しております。
教えていただいたとおり、行番号の個所に変数を使って行がずれるコードはなんとなくわかったのですが、行番号を変更するコードを書いても、「参照先ファイルが変わってから」という条件ができていないためか、同じ結果が取得されてしまいました;;
☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
Worksheets("ワークシート").Cells(1, 1).Select
lastrow = Range("B65536").End(xlUp).Row
'変数lastrowを最終書き込みセルの行番号」として宣言後
Worksheets("ワークシート").Cells(lastrow + 1, 1 + Y).Select
☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
参照先ファイルは
MyName = Dir(MyPath & "\*.xls") 'xlsファイルすべてを選択対象に
でMyPath直下のエクセルファイル全てを読み込むように指定してありますが、
ここでなんらかの判別処理※が必要なのでしょうか?
※MyNameの値が変わったら処理??
説明下手で申し訳ないですが、またまたご教授よろしくお願い致します。m(_ _;)m
|
|