・Excel(M365)で、添付ファイルが実行できるようなVBAを作成しましたが、おかしな点を修正していただけませんでしょうか。
<具体的に実施したいこと>
・①Sheet1のE列と、Sheet2のC列をマッチングし、Sheet1のJ列の値を、Sheet2のM列へ転記する。その際、Sheet1にデータ重複している場合(例:CCC,DDD)、そのデータの最下行の値を転記する(例:CCC→400、DDD→700)②この重複データについては、アラームのため、該当するSheet2のB~C列を赤くセル反転させる。
・上記マッチングしない場合は、Sheet2へは特に転記はしない(例:EEE)
・Sheet2については、11行目に項目があり、12行目以降へデータ転記したい。
↓以下の通り作成しましたが、「Sheet2については、11行目に項目があり、12行目以降へデータ転記したい。」「該当するSheet2のB~C列を赤くセル反転させる。」という部分をうまく反映できていないように感じていますが、どのように修正すればよいかを教えてください。。
Sub sample()
Dim ws1 As Worksheet: Set ws1 = Worksheets("Sheet1")
Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2")
Dim i As Long, j As Long, r1 As Long, r2 As Long
Dim k As Long, cnt As Long
Dim ary
ws1.Select
With ws1
r1 = .Cells(Rows.Count, "E").End(xlUp).Row
ReDim ary(1 To r1, 1 To 2)
For i = 1 To r1
ary(i, 1) = .Cells(i, "E").Value
ary(i, 2) = .Cells(i, "J").Value
Next i
End With
With ws2
r2 = .Cells(Rows.Count, "C").End(xlUp).Row
For i = 1 To r2
cnt = 0
For j = 1 To UBound(ary, 1)
If .Cells(i, "C") = ary(j, 1) Then
k = j
cnt = cnt + 1
End If
Next j
If k > 0 Then
.Cells(i, "M").Value = ary(k, 2) '値段転記
If cnt > 1 Then .Cells(i, "M").Interior.ColorIndex = 3 '重複値赤
k = 0
End If
Next i
End With
End Sub

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA listBoxについて 2 2024/03/26 16:14
- Visual Basic(VBA) VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。 1 2024/01/08 16:23
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) エクセルファイルのデータ転記について 2 2024/02/17 02:10
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
このQ&Aを見た人はこんなQ&Aも見ています
-


エクセルマクロについて教えて下さい。
Excel(エクセル)
-


エクセル マクロVBAについて教えてください。
その他(Microsoft Office)
-


【再投稿】レイアウトが異なる別のワークブックからデータを転記する方法を教えてください
Excel(エクセル)
-
-
4

excelVBAについて。
Excel(エクセル)
-
5

excelVBAについて。
Excel(エクセル)
-
6

ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
7

Excel VBAについて。こんな動作をさせるためにはどう書けばよいでしょうか。
Visual Basic(VBA)
-
8

エクセルで特定のセルの値を別のシートにリストとして表示させたい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
IIF関数の使い方
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
vba 2つの条件が一致したら...
-
データグリッドビューの一番最...
-
【Excel VBA】カンマと改行コー...
-
【Excel VBA】 B列に特定の文字...
-
VBAを使って検索したセルをコピ...
-
vba 重複データ合算
-
エクセルVBA シートモジュール...
-
VBA 何かしら文字が入っていたら
-
エクセル 2つの表の並べ替え
-
VBAでのリスト不一致抽出について
-
複数の列の値を結合して別の列...
-
VBA 列が空白なら別のマクロへ...
-
targetをA列のセルに限定するに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Cellsのかっこの中はどっちが行...
-
IIF関数の使い方
-
Changeイベントでの複数セルの...
-
【VBA】2つのシートの値を比較...
-
VBA 何かしら文字が入っていたら
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
DataGridViewに空白がある場合...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
VBAでのリスト不一致抽出について
-
エクセル 2つの表の並べ替え
-
rowsとcolsの意味
-
【Excel VBA】 B列に特定の文字...
-
VBA 列が空白なら別のマクロへ...
おすすめ情報











