Excel2000での列集計

質問

• Excel2000での列集計についての質問です。質問文章全体は100文字程度です。
• 上の1年分のデータ表を週ごとにまとめる方法を教えてください。空白の行は削除したいです。
• マクロを使用してExcel2000での列集計を行いたいのですが、具体的な方法が分かりません。どなたか教えていただけませんか？

回答No.2

imogasi

マクロが判らないというより、フローチャート（ロジック）作成の問題と認識すべきです。
補足に対する回答有難うございました。判りました。
２ステップに分けるほうが判り易いと思いますので分けます。
まず列を縮約する処理を下記に載せます。少数例でテスト済み。
（仮定１）第１行は毎日（列）に、月数字が入っていると仮定。今年２００３年と仮定。
（仮定２）月を越えて次の月曜がある週で、月末で切っていない。（月末までと月初から月曜までに分けていない）
（仮定３）１表は２５６列が限度ですが（３６５日入れられませんが、）どうするか、疑問のまま２５６列以内と仮定。
（１）源データ（Ｓｈｅｅｔ１）の保存、繰り返しテストのやりやすさのために、別シートＳｈｅｅｔ２に目的の結果データを作る。
（２）下記プログラムロジックとなる。
（Ａ）初期値セット。
　　　Ｓｈｅｅｔ１のセル（３，３）よりスタート。
　　　ｉ＝３、ｊ＝４
　　　Ｓｈｅｅｔ２もセル（３，４）よりスタート。
　　　ｋ＝３，ｍ＝４　
（Ｂ）Ｓｈｅｅｔ１の最下行か－－－－＞処理終わり。
　　　最下行を調べｆｏｒ・ｎｅｘｔでやればこのステップなし。
Ｓｈｅｅｔ１の最右行か－－－－＞この行の処理終わり。次行の処理へ。ｉ＝ｉ＋１
　　　最下行を調べｆｏｒ・ｎｅｘｔでやればこのステップなし。
（Ｃ）Ｓｈｅｅｔ１の最右列か－－－－＞＜であるとき＞
　　　　　　　　　　　　　　　　　　　Ｓｈｅｅｔ１の　　　　　　　　　　　　　　　　　　　次ぎの行へ進む
　　　　　　　　　　　　　　　　　　　ｉ＝ｉ＋１。　　　　　　　　　　　　　　　　　　　　そして（Ｂ）　　　　　　　　　　　　　　　　　　　　へ。
（Ｄ）月曜日か（１行ｊ列＆２行ｊ列で曜日判定）－－＞　＜であるとき＞　　　　　月日セット。
　　　　　　　　　　　　　Ｓｈｅｅｔ２でｍ＝ｍ＋１。
　＜でないとき＞　　　　　（Ｅ）へ。
（Ｅ）セル（ｉ，ｊ）は空白か。－－＞（Ｇ）へ。
（Ｆ）Ｓｈｅｅｔ１のセル（ｉ，ｊ）をＳｈｅｅｔ２のセル（ｋ、ｍ）へセット。（前日等と同じでも上書きする。ロジックを単調にするため）
（Ｇ）Ｓｈｅｅｔ１の次ぎの列へ進む。ｊ＝ｊ＋１
（Ｈ）（Ｃ）へ行く。
－－－－－－－－－－－－－－－－－
Sub test01()
Dim sh1, sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
d = Range("d3").CurrentRegion.Rows.Count
r = Range("d3").CurrentRegion.Columns.Count
'----
For i = 3 To d
k = i
m = 4
sh2.Cells(1, m) = sh1.Cells(1, 4)
sh2.Cells(2, m) = sh1.Cells(2, 4)
m = m + 1
For j = 4 To r
'------
y1 = 2003
m1 = sh1.Cells(1, j)
d1 = sh1.Cells(2, j)
ds = DateSerial(y1, m1, d1)
yb = Weekday(ds)
'---月曜日か
If yb = 2 Then
sh2.Cells(1, m) = sh1.Cells(1, j)
sh2.Cells(2, m) = sh1.Cells(2, j)
m = m + 1
End If
'----セル空白でないか--
If sh1.Cells(i, j) <> "" Then
sh2.Cells(k, m) = sh1.Cells(i, j)
End If
Next j
Next i
End Sub

補足

imogasiさん、早々のご回答ありがとうございます。
ですが、私の知識では少し難しいようで理解できません。すみません。
Sub test01() からEnd Subまでがマクロですよね。
これをVBAのModule1に貼り付けさせていただき実行したところds = DateSerial(y1, m1, d1)のところで引っかかってしまいました。
多分1行目の仮定が違うせいだと思うのですが、私には直す事ができません。
ちなみに1行目には、D1のセルから右に20030106～20030630までこのような形で入力されていると考えてください。（半年分）
2行目は、D2のセルから月～日の繰り返しで、20030630は月で終わっています。
どこを変えればいいのか、教えていただけると助かります。
何度も申し訳ありませんが、宜しくお願いいたします。