No.2ベストアンサー
- 回答日時:
以下のマクロを標準モジュールに登録してください。
Option Explicit
Public Sub 一覧まとめ()
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim maxrow1 As Long
Dim maxcol1 As Long
Dim maxcol2 As Long
Dim row1 As Long
Dim col1 As Long
Dim col2 As Long
Dim dicT As Object '地区用
Dim dicK As Object '果物用
Dim nameT As String '地区名
Dim nameK As String '果物名
Dim fpath As String
Set dicT = CreateObject("Scripting.Dictionary")
Set dicK = CreateObject("Scripting.Dictionary")
Set ws1 = ThisWorkbook.Worksheets("一覧まとめ")
maxrow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row '1列目の最終行を求める
maxcol1 = ws1.Cells(1, Columns.Count).End(xlToLeft).Column '1行目の最終列を求める
If maxrow1 < 2 Then Exit Sub
If maxcol1 < 2 Then Exit Sub
ws1.Range(ws1.Cells(2, 2), ws1.Cells(maxrow1, maxcol1)).ClearContents
'各地区の行番号を記憶
For row1 = 2 To maxrow1
nameT = ws1.Cells(row1, 1).Value
dicT(nameT) = row1
Next
'各果物の列番号を記憶
For col1 = 2 To maxcol1
nameK = ws1.Cells(1, col1).Value
dicK(nameK) = col1
Next
'各県くだもの.xlsxをオープン
fpath = ThisWorkbook.Path & "\" & "各県くだもの.xlsx"
Set wb2 = Workbooks.Open(fpath)
Set ws2 = wb2.Worksheets("Sheet1")
maxcol2 = ws2.Cells(3, Columns.Count).End(xlToLeft).Column '3行目の最終列を求める
nameK = "未定"
'全地区分繰り返す
For col2 = 2 To maxcol2
If ws2.Cells(2, col2).Value <> "" Then
nameK = ws2.Cells(2, col2).Value
End If
nameT = ws2.Cells(3, col2).Value
If dicK.exists(nameK) = False Then
MsgBox (nameK & ":この果物は一覧まとめにありません")
Exit Sub
End If
If dicT.exists(nameT) = False Then
MsgBox (nameT & ":この地区は一覧まとめにありません")
Exit Sub
End If
row1 = dicT(nameT)
col1 = dicK(nameK)
ws1.Cells(row1, col1).Value = ws2.Cells(4, col2).Value
Next
wb2.Close
MsgBox ("完了")
End Sub
ご回答ありがとうございました。
回答頂いたマクロで試したところ、やりたかった事ができました。
私にはマクロの内容は難しく、まだわからない所もありますが、コピペするくらいしか思いつかなかったので、このような方法もあるんだと大変勉強になりました。
これからも度々質問させていただくと思うので、機会がありましたらよろしくお願い致します。
No.3
- 回答日時:
No2です。
各くだものの照合は、果物名が完全に一致するかどうかで見ています。
一覧まとめに「バナナ」があり、Sheet1に「ばなな」があった場合はエラーになります。
果物名は、提示された例でなくても構いません。
(パパイヤ、マンゴー等があっても処理可能です)
果物の追加(列の追加)も可能です。
各地区についても同様です。
地区の追加も可能です。
No.1
- 回答日時:
不明点です。
①マクロは、上の表のあるブックに格納すると考えて良いでしょうか。
②上の表のシート名はなんでしょうか。
③下の表のシート名はなんでしょうか。
④下の表のシートを格納したブックのブック名は何でしょうか。
⑤上記④のブックは、マクロ実行時、すでにオープンされている前提で良いですか。
それとも、クローズされていて、オープンするところから始めるのでしょうか。
そうであれば、そのブックを格納したフォルダ名も提示する必要があります。
⑥上記の表の行と列が追加されることはないと考えて良いですか。
果物で、メロン、パパイヤが追加されるようなケース
地名で、青森、新潟が追加されるようなケース。
⑦上記の⑥と同じように、地名、果物の種類が追加されるケースはないと考えて良いですか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- Excel(エクセル) 【マクロ】セルの塗りつぶし色をbook1からbook2へ転記したい 4 2023/09/27 10:50
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/01/18 17:23
- Visual Basic(VBA) エクセル VBA 条件によるセル点滅 お詳しい方 ご教授をお願いします。 Excelファイルにて 現 1 2022/11/03 15:53
- Excel(エクセル) エクセル 条件に合う日付に入力された時間数の合計したい 4 2022/06/17 22:18
- Excel(エクセル) 【エクセル】複雑な関数を教えてください 1 2023/06/05 18:09
- Excel(エクセル) 【関数】【マクロ】データの転記の方法について 2 2023/07/26 15:22
- Visual Basic(VBA) 【VBA】データを入力後に,同一シート内に履歴として転記するVBAコードを教えていただきたいです。 3 2022/11/16 01:37
- Excel(エクセル) 【マクロ】book1からbook2への適切な転記が出来ない件 2 2023/11/08 17:23
- Excel(エクセル) エクセルの条件付き書式 3 2022/05/08 03:17
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルvbaについて
Visual Basic(VBA)
-
エクセルVBAの配列について
Visual Basic(VBA)
-
エクセル VBAでの転記の方法について
Visual Basic(VBA)
-
-
4
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
5
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
6
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
7
Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです
Visual Basic(VBA)
-
8
for 文の 繰り返し処理に使えるのかどうかについて
Visual Basic(VBA)
-
9
配列のペースト出力結果の書式について
Visual Basic(VBA)
-
10
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
11
【ExcelVBA】VBA実行でダイアログメッセージを無視する方法はありますか?
Visual Basic(VBA)
-
12
VBAのコードを教えてください
Visual Basic(VBA)
-
13
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
14
VBAコードについて
Visual Basic(VBA)
-
15
VBA UserFormからの転記で
Visual Basic(VBA)
-
16
VBAのコードを教えてください
Visual Basic(VBA)
-
17
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
18
VBA 二つのブックをうまく扱えないでいます
Visual Basic(VBA)
-
19
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
20
月ごとに作成している日報ファイルを、VBAでコピーし日付ごとのシートにしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA 空白セルがあったら...
-
クリップボードの内容を変数に...
-
マウスを乗せたときにセルの色...
-
【VBA】セルが空白の場合に処理...
-
VBA 別ブックから条件に合うも...
-
GridViewの行選択イベントを発...
-
エクセルの取り消し線を検出す...
-
Excel 入力規則のリストのカー...
-
【VB.NET】DataGridViewセルの...
-
Excel VBA コンボボックスで空...
-
複数セルに〇印をつけるマクロ
-
Excelマクロで空白セルの大小比...
-
vba、targetのRow,Colomnの値取得
-
JTableにおけるセルの結合について
-
エクセルでの計算式で求められ...
-
エクセル: セルの枠を超えて表示
-
エクセルのセル内の余白の設定...
-
IF関数で空欄("")の時、Null...
-
EXCELで特定のセルに表示...
-
エクセルのパーセンテージで、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 空白セルがあったら...
-
Excel VBA コンボボックスで空...
-
Excel 入力規則のリストのカー...
-
マウスを乗せたときにセルの色...
-
複数セルに〇印をつけるマクロ
-
クリップボードの内容を変数に...
-
VBA 別ブックから条件に合うも...
-
マクロについて質問です 範囲内...
-
DataGridViewでセルを結合したい
-
エクセルの取り消し線を検出す...
-
VBA サンダーバードのメール自...
-
GridViewの行選択イベントを発...
-
【VB.NET】DataGridViewセルの...
-
【VBA】セルが空白の場合に処理...
-
Excelマクロで空白セルの大小比...
-
VBA 文字列を1文字ずつ調べて"...
-
VB2005 DATAGRIDVIEWでの矢印キ...
-
エクセル チェックボックスの...
-
SPREADで1つのセルに複数のチ...
-
■EXCEL(二つのセルの文字列を一...
おすすめ情報
情報足らずですみません。
補足いたします。
①マクロは上の表のブックに格納したいです
②一覧まとめ
③sheet1
④各県くだもの
⑤下の表は閉じた状態でオープンするところから始めたいと思っています。
フォルダ名:各県まとめフォルダ
上、下の表どちらも同じフォルダに格納してあります。
⑥⑦どちらも追加するケースはありません。