Scripting.Dictionary を使います。 Sub 支社別集計() Dim Sheet1, Sheet2 As Worksheet Const COL店舗CD = 1 ' 店舗CDの列 Const COL分類CD = 3 ' 分類CDの列 Const COL売上額 = 10 ' 売上額 Dim MaxRow As Long ' 最終行 Dim key As String ' 検索キー Dim…

こんな感じ Workbooks("B.xls").Worksheets("sheet2").Range("A2")=Application.WorksheetFunction.Sum(Workbooks("A.xls").Worksheets("sheet1").Range("B2:B3")) ネタ元 http://yutechi.hatenablog.com/entry/2012/10/22/121430

Match関数がいいらしい。 でも同じ条件の行があったら最初の行しか返してくれない見つからないと例外にあんるので on error resume next も欠かせない。 Sub match() Dim workSh, prefSh As Worksheet Set workSh = ThisWorkbook.Worksheets("Sheet1") Set p…

Sub test() Worksheets("Sheet1").Cells.Clear End Sub ネタ元 http://www.koikikukan.com/archives/2016/10/04-003333.php

Sub Sample03() Worksheets.Add End Sub ネタ元 http://officetanaka.net/excel/vba/sheet/sheet03.htm

力技 Sub Sample03() Dim ws As Worksheet, flag As Boolean For Each ws In Worksheets If ws.Name = "合計" Then flag = True Next ws If flag = True Then MsgBox "[合計]シートがあります", vbInformation Else MsgBox "[合計]シートはありません", vbIn…

Sheets(1).Delete ' 1 番目のシートを削除 Sheets("Sheet1").Delete '「Sheet1」のシートを削除 Worksheets(1).Delete ' 1 番目のシートを削除 Worksheets("Sheet1").Delete '「Sheet1」のシートを削除 ネタ元 https://www.tipsfound.com/vba/10005

Dim ws As Worksheet Set ws = ActiveSheet ' CSV のデータを取り込むシート Dim qt As QueryTable Set qt = ws.QueryTables.Add(Connection:="TEXT;D:\Tips.csv", Destination:=ws.Range("A1")) ' CSV を開く With qt .TextFilePlatform = 932 ' 文字コード…