![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
私の画面では何が記入してあるのか全然判らないんですが,あなたの画面では見えているのでしょうか。
sub macro1()
dim h as range
dim w as worksheet
dim Target as range
’検索元データの所在をキチンとマクロに組み込むこと
worksheets("Sheet1").select
for each h in range("A1:A" & range("A65536").end(xlup).row)
’対象シートを特定する
’ブック名拡張子シート名とかキチンとマクロに組み込むこと
select case left(h.value, 1)
case "a"
set w = workbooks("Book2.xlsx").worksheets("Sheet2")
case "b"
set w = workbooks("Book2.xlsx").worksheets("Sheet3")
case else
msgbox "MISSING1"
exit sub
end select
’対象グループを特定する
’ただし対象シートの「どこを」探せばいいのかキチンとマクロを修正する事
set target = w.range("F:F").find(what:= mid(strconv(h.value, 2, 1) & mid(h.value, 1, 1), vbuppercase), lookin:=xlvalues, lookat:=xlwhole)
if target is nothing then
msgbox "MISSING2"
exit sub
end if
’01等を検索する
set target = target.offset(0, -5).range("A1:E1,A4:E4")
set target = target.find(what:=val(mid(h.value, 3, 2)), lookin:=xlvalues, lookat:=xlwhole)
if target is nothing then
msgbox "MISSING3"
exit sub
end if
’結果を転記する
’ただし見つけたどこを取ってきたいのか不明なので,適切に修正すること
h.offset(0, 1).value = target.offset(2).value
next
end sub
http://i.imgur.com/YDiOVdv.jpg
ここに図をアップしてみました。
【図(1)】行数は可変です。
【図(2)と(3)】行列とも可変です。6行単位のくくりがいくつもあります
No.1
- 回答日時:
>図がみにくいですか?
はい、見にくいです
画像は規定のサイズに縮小されてしまい、画像の中の文字は読めなくなっています。
「蜜柑」も「西瓜」も、どこに書いてあるのか分からないです。
このサイトの機能で画像を登録するのではなく、どこかよそのアップローダとか、自分のホームページスペースなどにアップロードしておいて、画像URLをリンクすると良いでしょう。
>回答なしなのでもう一度
あなたの元の質問が何なのか、分かりません。
こうして別に投稿された質問は、元の質問とは全く関連が無く、他者からは見つけられません。
あなたの質問履歴が公開されていれば、辿れ無くもないのですが、基本的には1投稿の中で質問が完結するようにお願いします。
(このサイトの使い方の規則でそうなっていますので)
http://i.imgur.com/YDiOVdv.jpg
ここにアップしてみました。
【図(1)】A列B列とも行数は可変です。
【図(2)】【図(3)】も行数は可変です。上に9Aもあれば下に1Aもあります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) Excelヘルプの原文を表示する最速の方法(手順)には? 1 2023/08/11 11:30
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) セルの値をグーグルで検索するエクセルVBAについて! 2 2022/08/01 21:41
- Excel(エクセル) Excelについて質問です。 シート1の検索値例えば *ABC* をシート2.3.4から検索して、シ 5 2023/02/17 23:30
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
英数字のみ全角から半角に変換
-
Excel テーブル内の空白行の削除
-
【Excel VBA】PDFを作成して,...
-
マイクロソフト 一時使用コード...
-
office365って抵抗感ないですか?
-
Outlook で宛先が複数の場合の人数
-
PC officeのアイコンを触ってい...
-
会社PCのメールが更新されない
-
Excel 日付を比較したら、同じ...
-
Microsoft Officeを2台目のPCに...
-
マイクロソフトオフィス
-
VBAで横データを縦データに変換...
-
複数の写真を1枚に印刷
-
エクセルの曜日別の参加者名簿...
-
マクロ1があります。 A1のセル...
-
Microsoft 365のディフェンダー...
-
Office2021を別のPCにインスト...
-
みつも朗ってソフトはなにがで...
-
Microsoft Formsの「個人情報や...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
英数字のみ全角から半角に変換
-
Excelで空白以外の値がある列の...
-
会社PCのメールが更新されない
-
Excel 日付を比較したら、同じ...
-
マイクロソフト 一時使用コード...
-
ウィンドウィズ メモ帳で日付だ...
-
MicrosoftOfficeの1ユーザー2...
-
Microsoft Formsの「個人情報や...
-
Officeの字体
-
エクセルでXLOOKUP関数...
-
Microsoft365で自動保存が出来...
-
Outlookで、任意のメールアドレ...
-
outlookのメールが固まってしま...
-
Microsoft 365 の一般法人向け...
-
Office2021を別のPCにインスト...
-
Microsoft 365のディフェンダー...
-
Excelに貼ったリンクについて E...
-
MicrosoftOffice2019なんですが、
-
Outlook で宛先が複数の場合の人数
おすすめ情報