VBAを使用してExcelでセルを並べ替える - excel、vba、excel-vba

マクロを書くのに助けてもらえますか？セルを再配置し、ブランクセルに0を書き込む。私は、マクロを実行する前後のセルを表示した画像を添付して、簡単にしました。

前後

お手伝いありがとう！

回答：

さて、マクロは大丈夫ですが、マクロがなくても、セル式を使ってこれを行うことができます。

したがって、列Aは日付、列Bは（DATA 1）のようなラベルです。次の列の式を入力するだけです。

column C : =IF(RIGHT(B1,1)="1",1,0)
column D : =IF(RIGHT(B1,1)="2",1,0)
column E : =IF(RIGHT(B1,1)="3",1,0)
column F : =IF(RIGHT(B1,1)="4",1,0)
column G : =A1

そして、C、D、E、F、G列からコピーを作成します。