![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
・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
![「ExcelVBA修正のお願い」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/b/444909584_668401555c8c5/M.png)
お探しの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も見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
VBA 複数のエクセルから一つのエクセルに貼り付ける
Visual Basic(VBA)
-
-
4
VBAなくなるの?
Visual Basic(VBA)
-
5
エクセルVBA
Visual Basic(VBA)
-
6
エクセルの合計を自動で表示させたいです
Visual Basic(VBA)
-
7
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
8
VBAを使用した時間管理
Visual Basic(VBA)
-
9
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
10
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
11
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
12
VBA指定行削除
Visual Basic(VBA)
-
13
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
14
Excel(M365) Vlookup/セル反転(VBA)について
Visual Basic(VBA)
-
15
Excel VBA 選択範囲の罫線色の変更プロージャの動作速度の改善について
Visual Basic(VBA)
-
16
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
17
VBAコードについて
Visual Basic(VBA)
-
18
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
19
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
20
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
空白セルをとばして転記
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
URLのリンク切れをマクロを使っ...
-
VBAにおけるRank関数について
-
VBAでセルアドレスに変数を使い...
-
マクロについて。S列の途中から...
-
別シートのデータを参照して値...
-
VBAを使って検索したセルをコピ...
-
Worksheets メソッドは失敗しま...
-
vba 2つの条件が一致したら...
-
【Excel VBA】カンマと改行コー...
-
エクセルVBAで、フォルダ内のパ...
-
エクセル VBA if構文
-
マクロ 最終列をコピーして最終...
-
targetをA列のセルに限定するに...
-
VBマクロ 色の付いたセルを...
-
エクセルVBA intersect colu...
-
1から9までの数値をランダムに...
-
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の意味
おすすめ情報