B列の項目ごとにシートを分割したいのですが、ご教授頂けないでしょうか?

Visual Basic32閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

ThanksImg質問者からのお礼コメント

Set ToSh = Sheets(BaseSh.Cells(j, 2).Value) BaseSh.Rows(i).Copy ToSh.Rows(ToSh.Cells(Rows.Count, 2).End(xlUp).Row + 1) のBaseSh.Rows(i)の部分をBaseSh.Rows(j)に修正したらうまくいきました。 初歩的なミスで申し訳ありませんでした。 ありがとうございました。

お礼日時:2021/12/1 16:12