
No.4ベストアンサー
- 回答日時:
No3です。
>この、プログラムをほかの作成したシートで使用する場合は大文字のアルファベットを
そのシートの列に変えればいいですか?
はい、それで結構です。シート名も変えてください。
>また今回は2行目を指定していますが、違う行から探す時はどこを変更すればいいでしょうか?
シート1の開始行を5行に変える場合、
For row1 = 2 To lastrow1 を
For row1 = 5 To lastrow1 のようにしてください。
シート2の開始行を6行に変える場合、
For row2 = 2 To lastrow2 を
For row2 = 6 To lastrow2 のようにしてください。
素人質問に丁寧に回答していただき
大変解りやすかったです。
教えてもらったことを試していきたいと思います。
また、困ったことがあれば質問させてもらいます。
この度はありがとうございました。
No.3
- 回答日時:
No2です。
以下のマクロを標準モジュールに登録してください。
不明点があれば、補足してください。
Option Explicit
Public Sub 商品名設定()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lastrow1 As Long
Dim lastrow2 As Long
Dim row1 As Long
Dim row2 As Long
Dim dicT As Object
Dim cd7 As String '商品コードの左7桁
Set ws1 = Worksheets("シート1")
Set ws2 = Worksheets("シート2")
Set dicT = CreateObject("Scripting.Dictionary") ' 連想配列の定義
lastrow1 = ws1.Cells(Rows.Count, "B").End(xlUp).row 'B列の最大行取得
lastrow2 = ws2.Cells(Rows.Count, "D").End(xlUp).row 'B列の最大行取得
For row2 = 2 To lastrow2
cd7 = Left(ws2.Cells(row2, "D").Value, 7)
If cd7 <> "" Then
If dicT.exists(cd7) = False Then
dicT(cd7) = ws2.Cells(row2, "G").Value
End If
End If
Next
For row1 = 2 To lastrow1
cd7 = Left(ws1.Cells(row1, "B").Value, 7)
ws1.Cells(row1, "C").ClearContents
If cd7 <> "" Then
If dicT.exists(cd7) = True Then
ws1.Cells(row1, "C").Value = dicT(cd7)
End If
End If
Next
MsgBox ("完了")
End Sub
No.2
- 回答日時:
補足要求です。
1.シート1のシート名は、"シート1"であってますか。
2.シート2のシート名は、"シート2"であってますか。
3.シート1の1行目は、見出しで、データは2行目からでしょうか。(シート2も同様)
No.1
- 回答日時:
色々考えずにゴリゴリ。
シート名をSheet1、Sheet2とする。
行END1 = WS1.Range("B65536").End(xlUp).Row '最終行取得
行END2 = WS2.Range("D65536").End(xlUp).Row '最終行取得
For 行1 = 1 To 行END1
For 行2 = 1 To 行END2
If Left(WS1.Range("B" & 行1).Value, 7) = Left(WS2.Range("D" & 行2).Value, 7) Then '先頭7桁が等しい場合は
WS1.Range("C" & 行1).Value = WS2.Range("G" & 行2).Value '転送
End If
Next 行2
Next 行1
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル関数に詳しい方、教えてください(テキスト関数と条件付書式) 1 2024/04/11 02:44
- Excel(エクセル) VBA 別シートに表示 3 2024/02/09 18:59
- Excel(エクセル) VBA 複数ファイルの同じ項目を一行に合計したいです 4 2023/12/13 18:23
- Visual Basic(VBA) vbaマクロについて シート1のA列にある商品コードが シート2のB列にある商品コードに該当する場合 2 2023/05/17 13:41
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- その他(Microsoft Office) Excelで該当しない項目(#N/Aの商品名)を簡単に表示・抽出させる方法についてです 1 2022/08/25 22:12
- その他(Microsoft Office) 2つのシートの一致する行のセル値を検索するExcelマクロの作り方について 4 2024/03/18 09:20
- Excel(エクセル) ある文字を含む際に、値を返す数式についてです 5 2022/08/28 16:58
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
このQ&Aを見た人はこんなQ&Aも見ています
-
これまでで一番「情けなかったとき」はいつですか?
これまでの人生で一番「情けない」と感じていたときはいつですか? そこからどう変化していきましたか?
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
みんなの【マイ・ベスト積読2024】を教えてください。
積読、ついついしちゃいませんか?そこでみなさんの 「2024年に買ったベスト積読」を聞きたいです。
-
AIツールの活用方法を教えて
みなさんは普段どのような場面でAIツール(ChatGPTなど)を活用していますか?
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
エクセルマクロについて教えて下さい。
Excel(エクセル)
-
【Excel】効率的な関数式の組み方について
Excel(エクセル)
-
[Excel VBA]特定の条件で文字を削除&残す処理をするファイルを作成したいです
Visual Basic(VBA)
-
-
4
エクセルの計算式について(COUNTIFの応用)
Excel(エクセル)
-
5
Excelの計算で差分を求める場合について
Excel(エクセル)
-
6
エクセル 入力があった場合のみ隣の関数を表示
Excel(エクセル)
-
7
エクセルの関数
Excel(エクセル)
-
8
エクセルの質問です。 F列からL列で、条件付き書式で一つでも色がついたセルをAB列で*で表示したいの
Excel(エクセル)
-
9
考えた式の戻り値が期待通りにならない
Excel(エクセル)
-
10
今までは、 「CSVの出力先を選択してください。」 という画面から、CSVファイルをデスクトップに引
Excel(エクセル)
-
11
Excelの計算が合いません。 諸事情で会計の簡素な購入・販売諸元表を作っているのですが、一つの項目
Excel(エクセル)
-
12
エクセルシート保護を解除させない方法。
Excel(エクセル)
-
13
エクセル初心者です 用語とか良く分からないので簡単に説明していただけると幸いです 表を作っているので
Excel(エクセル)
-
14
Excel いい方法教えてください。
Excel(エクセル)
-
15
Excelの罫線を消す方法
Excel(エクセル)
-
16
エクセルで、数字ではない値(文字列)が入った場合の計算式を教えてください。
Excel(エクセル)
-
17
関数を教えて下さい
Excel(エクセル)
-
18
エクセルで 自動的に◯や数字を表示させることできます? 例えばなんですが 日付 山田 1 ◯ みたい
Excel(エクセル)
-
19
【EXCEL】画像の黄色部分の抽出方法を教えてほしいです。
Excel(エクセル)
-
20
Excel VBAで全ての矢印を赤色に変更する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
英数字のみ全角から半角に変換
-
マクロ1があります。 A1のセル...
-
Office 2021 Professional Plus...
-
マクロ自動コピペ 貼り付ける場...
-
【Excel VBA】PDFを作成して,...
-
office365って抵抗感ないですか?
-
会社PCのメールが更新されない
-
Microsoft Formsの「個人情報や...
-
teams設定教えて下さい。 ①ビデ...
-
outlookのメールが固まってしま...
-
エクセルで英文字に入れた下線...
-
Excelで〇のついたものを抽出し...
-
office2019 のoutlookは2025年1...
-
別シートの年間行事表をカレン...
-
Office2021を別のPCにインスト...
-
エクセルでXLOOKUP関数...
-
VBAファイルの保存先について
-
Microsoft 365 の一般法人向け...
-
エクセルマクロ(超初心者)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
英数字のみ全角から半角に変換
-
大学のレポート A4で1枚レポー...
-
【Excel VBA】PDFを作成して,...
-
マクロ1があります。 A1のセル...
-
Office 2021 Professional Plus...
-
マクロ自動コピペ 貼り付ける場...
-
会社PCのメールが更新されない
-
Microsoft Formsの「個人情報や...
-
エクセルでXLOOKUP関数...
-
Excel 日付を比較したら、同じ...
-
Office2021を別のPCにインスト...
-
office2019 のoutlookは2025年1...
-
パソコンを買い替える際、前の...
-
outlookのメールが固まってしま...
-
Excel テーブル内の空白行の削除
-
office365って抵抗感ないですか?
-
Office(H&B2016)を使用中に古...
-
Outlook で宛先が複数の場合の人数
-
teams設定教えて下さい。 ①ビデ...
おすすめ情報
回答ありがとうございます。
シート1はシート1でシート2は2で合っています。
シート1の1行目は見出し、2行目はデータで合っています。
大変恐縮なのですが、プログラム全体の書き方を参考にしたいので記載していただけるとありがたいです。
宜しくお願いします。
ありがとうございます。
これで試してみます。
この、プログラムをほかの作成したシートで使用する場合は大文字のアルファベットを
そのシートの列に変えればいいですか?
また今回は2行目を指定していますが、違う行から探す時はどこを変更すればいいでしょうか?
素人質問ばかりですみませんが回答お願いします。