Excelの振り分けについての使い方

質問

ExcelでTodoリストを作成しようと考えています。
そこで以下のようなことをしたいのですが、できるのでしょうか。

まず、
A列→やるべきことをすべて書く
B列→日付
C列→B列に入力した日にできるやるべきことの個数
D列→B列に入力した日にやるやるべきこと

分かりにくい表現ですみません、図を掲載するので理解お願いします。

A列に入力したやるべきことをC列に入力した個数分だけD/E/F/G列を自動的に入力させたいのです。

要するに上の図から下の図へ関数やマクロを使って自動でやりたいです。

図はhttps://sites.google.com/site/picturestock1234/home/yahoochiebukuroです

回答よろしくお願いします。

回答No.1

emaxemax · ベストアンサー

関数ではめんどうそうなのでVBAでやってみました。
これでいかがでしょう？

Sub test01()
　　Dim Rng As Range
　　Dim c As Range
　　Dim i As Long
　　Set Rng = Range("C2", Cells(Rows.Count, "C").End(xlUp))
　　For Each c In Rng
　　　　If c.Value > 0 Then
　　　　　　c.Offset(, 1).Resize(, c.Value).Value = Application.Transpose(Range("A2").Offset(i).Resize(c.Value, 1).Value)
　　　　　　i = i + c.Value
　　　　End If
　　Next
End Sub

お礼

回答ありがとうございます。
目的の動作を行うことができました。
今後ともよろしくお願いします。
ベストアンサーは２人とも差し上げたいのですが、早く回答いただいたemaxemaxさんに差し上げたいと思います。
ありがとうございました。

回答No.2

mar00

VBAにしてみました。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
Application.ScreenUpdating = False
myRow = 2
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
myCol = Cells(i, Columns.Count).End(xlToLeft).Column
If Cells(i, 4) <> "" Then
Range(Cells(i, 4), Cells(i, myCol)).Clear
End If
Range("A" & myRow & ":A" & myRow + Range("C" & i) - 1).Copy
Range("D" & i).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
myRow = myRow + Range("C" & i)
Next i
Range("C" & Target.Row + 1).Select
Application.ScreenUpdating = True
End Sub
シート名を右クリック→コードの表示を選択
VBE画面がでてくるので貼り付けてください。
C列のコマ数を入力するとVBAが実行されます。
ご希望の動作であればよいのですが。

お礼

回答ありがとうございます。
目的の動作を行うことができました。
今後ともよろしくお願いします。
ベストアンサーは２人とも差し上げたいのですが、早く回答いただいたemaxemaxさんに差し上げたいと思います。
ありがとうございました。