![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.1ベストアンサー
- 回答日時:
以下のマクロを標準モジュールに登録してください。
AブックはA.xlsx BブックはB.xlsx としています。
シート名が提示されていないのでAブックのSheet1,BブックのSheet1を対象にしています。
上記はあなたの環境にあわせて適切に設定してください。
Option Explicit
Public Sub シリアル転記()
Dim ans As Variant
Dim wsA As Worksheet
Dim wsB As Worksheet
Dim maxrow As Long
Dim naiRow As Long
Dim gaiRow As Long
Dim wrow As Long
ans = InputBox("日付を入力してください", "日付入力")
If ans = "" Then Exit Sub
If IsDate(ans) = False Then
MsgBox ("日付エラー")
Exit Sub
End If
Set wsA = Workbooks("A.xlsx").Worksheets("Sheet1")
Set wsB = Workbooks("B.xlsx").Worksheets("Sheet1")
wsB.Rows("2:" & Rows.count).Clear
naiRow = 2
gaiRow = 2
maxrow = wsA.Cells(Rows.count, "A").End(xlUp).Row
For wrow = 2 To maxrow
If wsA.Cells(wrow, "B").Value = DateValue(ans) And wsA.Cells(wrow, "D").Value = "" Then
If wsA.Cells(wrow, "C").Value = "" Then
wsB.Cells(naiRow, "A").Value = wsA.Cells(wrow, "A").Value
naiRow = naiRow + 1
Else
wsB.Cells(gaiRow, "B").Value = wsA.Cells(wrow, "A").Value
gaiRow = gaiRow + 1
End If
End If
Next
MsgBox ("完了")
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 別ブックの列同士の値が一致したときの処理 1 2022/09/03 08:27
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vba 2つの条件が一致したら...
-
B列の最終行までA列をオート...
-
VBAを使って検索したセルをコピ...
-
URLのリンク切れをマクロを使っ...
-
Cellsのかっこの中はどっちが行...
-
Worksheets メソッドは失敗しま...
-
VBAにて 商品と月別ごとにの...
-
文字列の結合を空白行まで実行
-
Excelで、あるセルの値に応じて...
-
エクセルVBA シートモジュール...
-
エクセルVBA、特定条件で行を追加
-
【VBA】複数行あるカンマ区切り...
-
エクセルでフォームのチェック...
-
VBA 何かしら文字が入っていたら
-
SpecialCells(xlCellTypeConsta...
-
VBAの初心者なのですが、「並び...
-
エクセル VBA ユーザーフォー...
-
VBAで指定範囲内の空白セルを左...
-
セルに値が入っていた時の処理
-
再質問です。マクロの修正箇所...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
マクロ 最終列をコピーして最終...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
Excel(M365) Vlookup/セル反転(...
-
VBA指定行削除
-
VBAでのリスト不一致抽出について
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
VBAで、特定の文字より後を削除...
-
rowsとcolsの意味
おすすめ情報