一覧表というBookがあります
№ タイトル 店番 種類 コード① コード② コード③
1 aaaaaaa (空欄) AA (空欄) (空欄) (空欄)
2 bbbbbbb 〃 BB 〃 〃 〃
3 ・
4 ・
5 ・
この様な表になっています
別の集約表というBookに
タイトル 店番 コード② コード③ コード①
cccccccc 25 5.26 3.33 4.44
bbbbbbb - - - -
sssssssss 45 8.45 6.55 8.88
aaaaaaaa 88 7.65 8.15 3.77
mmmmm
タイトルは同じなのですが、順番がバラバラになっています
集約表の店番、コード①②③の4つを一覧表に転記したいのですが・・・
20000件以上のデータがある為、マクロを使用して自動転記を行いたいのです
マクロの登録は集約表か別の新しいBookに登録したいです。
初心者のため細かいマクロの記述が出来ず申し訳ありませんが
出来れば詳しく教えて頂けないでしょうか
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんばんは!
↓の画像のような配置で
元データは「集約表」Bookの「Sheet1」にあるとし、「一覧表」BookのSheet1に表示させるとします。
>20000件以上のデータがある為・・・
とは「一覧表」Bookの方になるのでしょうか?
そうであればループさせるようにしていますので、結構時間がかかると思います。
一例です。「一覧表」Bookの標準モジュールにしてください。
尚、「集約表」Bookが開いていない場合は開くところからやっています。
Sub Sample1()
Dim i As Long, c As Range
Dim myPath As String, fN As String
Dim wB As Workbook, wS As Worksheet
myPath = "保存場所のパス" & "\"
fN = "集約表.xlsx"
Application.ScreenUpdating = False
'▼集約表Bookが開いていない場合は開く//
If Workbooks.Count = 1 Then
Workbooks.Open myPath & fN
End If
Set wB = Workbooks(fN)
Set wS = wB.Worksheets("Sheet1")
With ThisWorkbook.Worksheets("Sheet1")
For i = 2 To .Cells(Rows.Count, "B").End(xlUp).Row
Set c = wS.Range("A:A").Find(what:=.Cells(i, "B"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
.Cells(i, "C") = wS.Cells(c.Row, "B")
.Cells(i, "E") = wS.Cells(c.Row, "E")
.Cells(i, "F") = wS.Cells(c.Row, "C")
.Cells(i, "G") = wS.Cells(i, "D")
End If
Next i
Application.ScreenUpdating = True
.Activate
End With
MsgBox "完了"
End Sub
※ コード内の「保存場所のパス」の部分は
実際のパスにしてください。
保存場所のファイル上で右クリック → プロパティ で確認してください。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- 会計ソフト・業務用ソフト VBA 記録簿の行間を空けないコードを教えて欲しい。 5 2023/07/10 19:29
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Visual Basic(VBA) VBA シート間の転記で、条件の追加コードの書き方について教えて下さい。 13 2023/02/26 09:31
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Visual Basic(VBA) VBA&マクロのシート転記について。 6 2022/06/01 16:44
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) INDEX関数とMATCH関数を使用し値を返す数式についてです 2 2022/04/20 13:40
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- Visual Basic(VBA) 【マクロ】表への繰り返し転記について 1 2022/11/19 16:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
IF文、条件分岐の整理方法
-
Exel VBA 別ブックから該当デ...
-
1日に1人がこなせるプログラム...
-
access2003 クエリSQL文に...
-
JANコードとPOSコードは同じ?
-
sinカーブの表示のさせ方
-
COBOLの文法
-
文字列を検索しその列をコピー...
-
SQL
-
【VB6】実行ファイルとした後、...
-
JIPS-Eコードのコード表について
-
JavaScriptの定数名が取り消し...
-
ACCESSで、履歴事項を管理する...
-
コンボボックスの複数列表示に...
-
◾️Excel VBA 統合について Cons...
-
EXCEL VBA 最初だけ0という値を...
-
ExcelVBAで「Shift_JIS(MS932)...
-
CheckBoxのコントロール配列に...
-
C# コードビハインドについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
1、Rstudioで回帰直線を求める...
-
1日に1人がこなせるプログラム...
-
access2003 クエリSQL文に...
-
エクセルVBAコードで教えて下さ...
-
Exel VBA 別ブックから該当デ...
-
JavaScriptの定数名が取り消し...
-
COBOLの文法
-
access2021 VBA メソッドまたは...
-
PreviewKeyDownイベントが2回...
-
JANコードとPOSコードは同じ?
-
過剰なオブジェクト指向脳から...
-
特定行の背景色を変えたいのですが
-
ACCESSユニオンクエリでORDER B...
-
変数名「cur」について
-
Nullの使い方が不正です。
-
◾️Excel VBA 統合について Cons...
-
欠番の抽出について
-
VBA リストボックス(複数条件...
-
ACCESSで、履歴事項を管理する...
おすすめ情報