・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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
誕生日にもらった意外なもの
みなさんがもらった誕生日プレゼントで面白いものがあったらぜひ教えてください!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBAコードのインデント表示
Visual Basic(VBA)
-
ExcelVBAマクロで実行した時の疑問
Visual Basic(VBA)
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
-
4
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
5
VBAの間違い教えて下さい
Visual Basic(VBA)
-
6
VBA 複数のエクセルから一つのエクセルに貼り付ける
Visual Basic(VBA)
-
7
VBAなくなるの?
Visual Basic(VBA)
-
8
Excel VBA 選択範囲の罫線色の変更プロージャの動作速度の改善について
Visual Basic(VBA)
-
9
時間短縮のために、テキストファイルの入出力をメモリを使って出来ないですか?
Visual Basic(VBA)
-
10
VBA コードどこがおかしいですか?
Visual Basic(VBA)
-
11
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
12
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
13
VBA指定行削除
Visual Basic(VBA)
-
14
VBAでCOPYを繰り返すと、処理が途中でアイドルする原因はなんでしょうか
Visual Basic(VBA)
-
15
Excel(M365) Vlookup/セル反転(VBA)について
Visual Basic(VBA)
-
16
再質問です。マクロの修正箇所を教えてください。
Excel(エクセル)
-
17
IF文、条件分岐の整理方法
Visual Basic(VBA)
-
18
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
19
VBA 入力箇所指定方法
Visual Basic(VBA)
-
20
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
Worksheets メソッドは失敗しま...
-
URLのリンク切れをマクロを使っ...
-
【Excel VBA】 B列に特定の文字...
-
VBA 何かしら文字が入っていたら
-
データグリッドビューの一番最...
-
VBAの初心者なのですが、「並び...
-
Excel VBA でテキストボックス...
-
VBAコンボボックスで選択した値...
-
rowsとcolsの意味
-
VBAリストボックスへの複数列の...
-
vba 2つの条件が一致したら...
-
VBAのFind関数で結合セルを検索...
-
エクセルVBA intersect colu...
-
VBAでのリスト不一致抽出について
-
VBAで指定範囲内の空白セルを左...
-
VBAで10行おきにセルの下に罫線...
-
VBAを使って検索したセルをコピ...
-
[ASP+SQL]絞込み済みのレコード...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
【Excel VBA】 B列に特定の文字...
-
IIF関数の使い方
-
VBAのFind関数で結合セルを検索...
-
URLのリンク切れをマクロを使っ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
VBAを使って検索したセルをコピ...
-
Changeイベントでの複数セルの...
-
VBA 何かしら文字が入っていたら
-
エクセルVBA intersect colu...
-
VBAでのリスト不一致抽出について
-
マクロ 最終列をコピーして最終...
-
VBAコンボボックスで選択した値...
-
複数の列の値を結合して別の列...
おすすめ情報