次のような作業をマクロを使ってやりたいと考えています。

画像

Excel | Visual Basic114閲覧xmlns="http://www.w3.org/2000/svg">250

ベストアンサー

0

Columnを数字で書きましたが、アルファベットの方がわかりやすい かもです。 .Cells(sRow, "B").Value = mySht.Cells(i, "A").Value '日付①

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

新品のファイルを用いて確認してみました。思った動きができることが確認できましたので、ベストアンサーに選ばせていただきました。 こちらの不備でご迷惑をおかけし申し訳ありませんでした。 ありがとうございました。

お礼日時:10/18 19:52