No.2ベストアンサー
- 回答日時:
No.1です。
>また、Sheet1のV列に反映させた後
>Sheet2の該当行は削除したいです。
を見逃していました。
前回のコードは消去して、↓のコードに変更してください。
「★」の行を追加しています。
Sub Sample2()
Dim i As Long, c As Range, lastRow As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
Application.ScreenUpdating = False
lastRow = wS.Cells(Rows.Count, "B").End(xlUp).Row
wS.Range("A:A").Insert
Range(wS.Cells(2, "A"), wS.Cells(lastRow, "A")).Formula = "=C2&""_""&F2&""_""&H2"
With Worksheets("Sheet1")
For i = 2 To .Cells(Rows.Count, "D").End(xlUp).Row
Set c = wS.Range("A:A").Find(what:=.Cells(i, "D") & "_" & .Cells(i, "F") & "_" & .Cells(i, "N"), _
LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
.Cells(i, "V") = "ナシ"
Else
.Cells(i, "V") = wS.Cells(c.Row, "G")
wS.Cells(c.Row, "A").EntireRow.Delete shift:=xlUp '★
End If
Next i
End With
wS.Range("A:A").Delete
Application.ScreenUpdating = True
End Sub
失礼しました。m(_ _)m
No.1
- 回答日時:
こんばんは!
一例です。
Sheet1のV列表示形式は日付にしておいてください。
標準モジュールです。
Sub Sample1()
Dim i As Long, c As Range, lastRow As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
Application.ScreenUpdating = False
lastRow = wS.Cells(Rows.Count, "B").End(xlUp).Row
wS.Range("A:A").Insert
Range(wS.Cells(2, "A"), wS.Cells(lastRow, "A")).Formula = "=C2&""_""&F2&""_""&H2"
With Worksheets("Sheet1")
For i = 2 To .Cells(Rows.Count, "D").End(xlUp).Row
Set c = wS.Range("A:A").Find(what:=.Cells(i, "D") & "_" & .Cells(i, "F") & "_" & .Cells(i, "N"), _
LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
.Cells(i, "V") = "ナシ"
Else
.Cells(i, "V") = wS.Cells(c.Row, "G")
End If
Next i
End With
wS.Range("A:A").Delete
Application.ScreenUpdating = True
End Sub
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- Visual Basic(VBA) VBAでvlookup関数から、別シート参照するやり方・・・ 2 2022/11/14 18:49
- Visual Basic(VBA) VBA 別sheetからの転記なのですが 2 2023/05/22 15:55
- Excel(エクセル) エクセルでのコピーペースト 6 2022/09/03 07:14
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Excel(エクセル) エクセルの日付抽出 2 2023/02/03 15:02
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
「B列が日曜の場合」C列に/...
-
エクセルで最初のスペースまで...
-
VBAで文字列を数値に変換したい
-
エクセルの表から正の数、負の...
-
エクセルの並び変えで、空白セ...
-
エクセル 文字数 多い順 並...
-
エクセル(勝手に太字になる)
-
Excel 別ファイルに自動的に反...
-
Excel、市から登録している住所...
-
Excelで半角の文字を含むセルを...
-
EXCELで 一桁の数値を二桁に
-
A列がない・・・A列が非表示に...
-
文字列に数字を含むセルを調べたい
-
エクセルで文字が混じった数字...
-
2つのエクセルのデータを同じよ...
-
エクセルの項目軸を左寄せにしたい
-
エクセル 同じ値を探して隣の...
-
文字を入力したら数値が自動入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
2つのエクセルのデータを同じよ...
-
エクセル 同じ値を探して隣の...
-
エクセル(勝手に太字になる)
-
「B列が日曜の場合」C列に/...
-
エクセル 文字数 多い順 並...
-
EXCELで 一桁の数値を二桁に
-
Excelで半角の文字を含むセルを...
-
エクセルで文字が混じった数字...
-
エクセルの項目軸を左寄せにしたい
-
Excel、市から登録している住所...
-
エクセルで、列の空欄に隣の列...
-
エクセルの表から正の数、負の...
-
エクセルの並び変えで、空白セ...
-
VBAで文字列を数値に変換したい
-
A列がない・・・A列が非表示に...
-
文字列に数字を含むセルを調べたい
-
50人を数回、グループ分けする...
おすすめ情報