![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
ツール-マクロ-VBE-挿入-標準モジュールに下記を貼りつけ。
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
'----A
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
'-----B
d = sh1.Range("A2").CurrentRegion.Rows.Count
' MsgBox d
j = 2
'-----
sh1.Activate
dt = Application.InputBox("日付2004/2/12")
dt2 = Split(dt, "/")
dt3 = DateSerial(dt2(0), dt2(1), dt2(2))
For i = 2 To 1 + d
'If sh1.Cells(i, "A") > #3/31/2004# Then
If sh1.Cells(i, "A") > dt3 Then
'-----C
sh2.Cells(j, "A") = sh1.Cells(i, "A")
sh2.Cells(j, "B") = sh1.Cells(i, "B")
sh2.Cells(j, "C") = sh1.Cells(i, "C")
j = j + 1
End If
Next i
End Sub
(自分にあわせて修正点)
(上記コードのAの部分)
Sheet1、Sheet2の部分を自分のシート名に
変える
(B)
表の始まる行を2としてますが、実情に合わせて変える。
For i = 2 To 1 + d
の部分もそれに合わせて変える。
(C)
項目数に合わせて増減して、記述行を増減してください。
シート1のD列をシート2のA列にもってくるなら
sh2.Cells(j, "A") = sh1.Cells(i, "D")
(その他)
'If sh1.Cells(i, "A") > #3/31/2004# Then
日付が決まっている時の記述例です。
そちらの先頭の’を取り去るとそちらが有効になり、代わりにIf sh1.Cells(i, "A") > dt3 Thenの先頭に’をいれて'If sh1.Cells(i, "A") > dt3 Thenにしてください。
この回答への補足
詳しく教えていただき、有難うございます。
上記のマクロは必死ながらも、なんとか組めました。
それで、あつかましいんですが、
質問では日付を3/31で指定したんですが、
日付が入っていないもの(空白のセル)だけを
選ぶ場合はどうすればいいですか?
申し訳ないですが、お願いします。
No.3
- 回答日時:
#2の補足について。
>日付が入っていないもの(空白のセル)だけを
選ぶ場合はどうすればいいですか?
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
'----A
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
'-----B
d = sh1.Range("A2").CurrentRegion.Rows.Count
j = 2
'-----
sh1.Activate
For i = 2 To 1 + d
If sh1.Cells(i, "A") = "" Then 'ここを変更した
'-----C
sh2.Cells(j, "A") = sh1.Cells(i, "A")
sh2.Cells(j, "B") = sh1.Cells(i, "B")
sh2.Cells(j, "C") = sh1.Cells(i, "C")
j = j + 1
End If
Next i
End Sub
でどうでしょう。やって見てください。
(自分のケースにあわせて修正点)は同じく注意して修正してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Google Drive Googleスプレッドシートについて質問です。 今作っているデータで、 シート1→ベタ打ちでひたすら 2 2022/05/18 14:27
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) 単価シートから単価をエクセル関数で自動取得する方法 1 2023/07/02 22:00
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) 簡単なエクセルマクロについて 4 2023/02/20 10:22
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA インデックスの境...
-
VBAで複雑な構成の転記
-
Excel で行を指定回数だけコピ...
-
【エクセル】 連続印刷する際の...
-
excelの差込印刷で可視セルだけ...
-
VBAで作成する勤務表の合計を求...
-
A列で同じ日付をグループ化し、...
-
VBA ブック1からブック2へ行...
-
Excelでデータの抽出&別シート...
-
AQUOS 602SH
-
エクセル 2つの表比較
-
シャープのアクオス sh-m25 を...
-
EXCELマクロで全シート対...
-
エクセルVBA 別シートの複数の...
-
Excel VBAでシート内全体に非表...
-
スマホ機種変更で旧機種のGoogl...
-
J-N51から911SHに機種変更・・...
-
SDカードからminiSDカードへ移す
-
PC修理の値段と技術について
-
FOMAカード(UIM)異常
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
エクセルVBA 別シートの複数の...
-
excelの差込印刷で可視セルだけ...
-
Excel VBA インデックスの境...
-
シャープのアクオス sh-m25 を...
-
VBA:同じ文字列データの比...
-
エクセル:VBAで月変わりで、自...
-
VBA別シートの最終行の下行へ貼...
-
エクセルVBAで 2種のリストを...
-
エクセルVBAで SendKeys "{TAB}"
-
VBAで条件が一致する行のデータ...
-
Excel VBAでシート内全体に非表...
-
歯抜けの時間を埋めて行の挿入
-
Excelマクロ データが上書きさ...
-
VBA 貼付先範囲(行)がいっぱ...
-
【WORD差し込み印刷】複数レコ...
-
EXCELマクロで全シート対...
-
エクセルVBAでの日付順のデ...
-
エクセル シート保護後コメン...
-
ノートパソコン 2in1について i...
おすすめ情報