| |
色々条件がありますが簡単に、、、
かみちゃんさんもおしゃっている通りだと思いますが、
別の方法で勉強がてらどうでしょうか？
ただし、実際に使用するにはA列は12月と入力されていたり12/26のような場合は、
ｼｰﾄを指定する部分は変更が必要です、
ヘルプ等も利用して命令文を理解してみてください。
他人の何気ない言葉で奮起して勉強使用とする気持ちは大事ですね。
Sub 振り分け()
Dim X As Long, GYO As Long, SHGYO As Long
Dim i As Single
Dim Z As Variant
GYO = Worksheets(1).Range("$A1100").End(xlUp).Row 'ｼｰﾄ１の最終行を取得
For X = 2 To GYO '多分1行目は項目行で2行目からループ
Z = Worksheets(1).Cells(X, 1).Resize(1, 5).Value '配列に代入A列〜E列まで
i = Worksheets(1).Range ("A" & X) + 1 'A列は月として数字と仮定
'データを写すｼｰﾄの最終行に1を足す
SHGYO = Worksheets(i).Range("$A65536").End(xlUp).Row + 1
'セルへ配列をいれる
Worksheets(i).Cells(SHGYO, 1).Resize(1, 5).Value = Z
Next X
End Sub
|
|
keisuke
- 10/10/6(水) 1:38 -
