Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15433 / 76734 ←次へ | 前へ→

【66779】Re:データ抽出(初心者すみません。。。)
発言  keisuke  - 10/10/6(水) 1:38 -

引用なし
パスワード
   色々条件がありますが簡単に、、、
かみちゃんさんもおしゃっている通りだと思いますが、
別の方法で勉強がてらどうでしょうか?


ただし、実際に使用するには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 'シート1の最終行を取得
 
 
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

1 hits

【66777】データ抽出(初心者すみません。。。) ヤヨエ 10/10/5(火) 23:22 質問
【66778】Re:データ抽出(初心者すみません。。。) かみちゃん 10/10/5(火) 23:53 発言
【66779】Re:データ抽出(初心者すみません。。。) keisuke 10/10/6(水) 1:38 発言
【66781】Re:データ抽出(初心者すみません。。。) Hirofumi 10/10/6(水) 9:19 回答
【66782】Re:データ抽出(初心者すみません。。。) Hirofumi 10/10/6(水) 9:21 回答
【66825】Re:データ抽出(初心者すみません。。。) ヤヨエ 10/10/8(金) 10:48 お礼

15433 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free