[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『データの転記、シート振り分けについて』（f）
皆様
お世話になります。fと申します。
VBAのデータ転記、シートの振り分けについて２点教えていただきたいことがあります。
目標は転記元エクセルファイルからマクロワークブックにデータを転記しようとしております。
１．シートの振り分けについて
現在は指定のパスにあるエクセルファイル（複数）を転記先の１つのシートに転記するところまで何とかできたのですが、転記元「B2セルの値」に応じて転記するシートを振り分けたいのです。
B2は仮にA,B,C,Dのいずれかのデータのみが入力されると仮定して、それらを左から転記先シートA、シートB、シートC、シートDに振り分けたいです（転記元Bの値がAならシートAに転記、CならシートCに転記するイメージです）。
２．別シートからのデータの転記について
転記元エクセルのデータ入力してあるシートではなく、別のシート（マスタシート）からデータを転記したいのですが、うまくいきません。
■転記元データ入力シート
B5セル：都道府県名
C5セル：市町村名
■転記元データマクロシートを
D列：都道府県
E列：市町村名
C列：D,Eの各行に応じた地域コード的な数字５桁が入力されている
※DとEの値で主キーになります。
■希望処理
B5、C5セル内容に応じた地域コードを転記先シートのBR列に転記したいのです。
VLOOKUPやINDEX、MATCH関数などが該当すると思うのですが、恥ずかしながらこのコードに組み込むことができませんでした。
お知恵を貸していただけると幸いです。
以上、よろしくお願いいたします。
以下現状のコードです。
Sub 転記()
Dim fpath As String, fname As String
Dim wb As Workbook Dim sh1 As Worksheet, sh2 As Worksheet
Application.ScreenUpdating = False
fpath = ThisWorkbook.Path & "\転記元\"
Set sh1 = ThisWorkbook.Worksheets("転記先")
i = 2
fname = Dir(fpath & "*.xlsx", vbNormal)
Do Until fname = ""
If fname <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0)
Set sh2 = wb.Worksheets("転記元データ")
Set sh3 = wb.Worksheets("マスタ")
i = i + 1
With sh1
.Range("A" & i).Value = sh2.Range("B2").Value
.Range("B" & i).Value = sh2.Range("D6").Value
省略
.Range("BS" & i) = ２の地域コードを転記
End With wb.Close SaveChanges:=False End If fname = Dir() Loop Application.ScreenUpdating = True
End Sub
＜ 使用 Excel：Excel2016、使用 OS：Windows10 ＞
（隠居じーさん） 2019/02/15(金) 18:53
質問：転記先のセルアドレスは何処なのでしょうか。
回答：SH1のBS列になります。BS列に転記すべき情報である地域コードはマスタシートのSh3にしかないもので、それの主キーがD列とE列量列の情報というイメージです。
■転記元データ入力シート
B5セル：都道府県名 （北海道）
C5セル：市町村名 （札幌市）
■転記元データマスタシート
県情報：北海道（D列）
市町村情報：札幌市（E列）
地域コード：00001（C列）
データ内容をB5セル C5セルで判断してそれに対応する地域コードを転記先のBS列に引っ張るというイメージです。
以上、よろしくお願いいたします。
（f） 2019/02/15(金) 19:19
いえ、こちらこそ、理解力が乏しく申し訳ありません。
転記元は詳しくご説明戴き、輪郭は、何となく解りました。
転記先の件ですが
空のシートに入力シートの情報を全て転記、
地域コード：00001（C列）を
マスターシートより判別して転記先シートの BS列に追加書込み
との理解でよろしいでしょうか。
複数ｂｏｏｋ処理との事なので。
転記先、シート振り分けで、どんどん追加書込みでしょうか。
重複する情報はありえませんか。あれば、どの様に、無視、主キーで上書き、重複も追加
それとも
既に情報は書込み済で地域コード：00001（C列） のみ処理でしょうか。
ＢＳ列の左右の列はどうなっていますか。右端、中間？は無いとは思いますが
なにせ、シートの状態を拝見するわけにはいきませんので。
項目は何行目で情報は何行から〜等実際の情報と1セルでも食い違いが有ると誤動作します。
出来れば
A B C D 〜 BS
1 県名 町名 地域 担当
2 山県 川町 海 担当Ａ
3
情報名は実名ではではなく仮名、で結構です。 シート名、セル番地が分かるようにお願いしてよろしいでしょうか。
（隠居じーさん） 2019/02/15(金) 20:05
追伸 ＢＳ列 ＢＲ列 どちらが本当ですか。 もし既に情報は入力済みで地域コード：00001（C列）を 上記いづれかに書き込みだけでしたら転記先のシートのどの列を見て 書込み行を判定するのか教えて下さい。 多分想像ではシートを分けるとおっしゃっておられるので 全件、もしくは上記のみ？書込めば良いのでしょうか。 質問ばかりで済みません。でも想像で書いてもまた書き直し みたいな感じになりますのでご理解ください。 でわ m(__)m
（隠居じーさん） 2019/02/15(金) 20:26
A B C D E F G H I J K
1
2 シート名 C
3
4 項目-1 県名 市町村 項目-4 項目-5 項目-6 項目-7 項目-8 項目-9 項目-10 項目-11
5 I X9村 13,505 59,386 70,416 17,603 38,463 77,315 23,861 29,268
6 D X4村 27,595 44,547 33,008 79,130 13,140 6,154 72,177 89,291
7 B X2村 93,831 24,650 80,366 23,187 69,059 62,366 14,896 13,459
8 A X1村 21,181 93,243 27,944 47,417 89,002 71,469 97,807 27,892
9 E X5村 24,721 2,542 8,988 2,305 73,227 45,518 72,615 28,154
10 J X10村 99,819 81,974 39,553 40,765 49,583 9,703 3,702 11,287
11 H X8村 19,169 11,724 19,982 44,795 95,230 40,795 99,876 88,000
12 G X7村 87,203 95,944 38,346 12,322 50,950 59,426 9,957 11,800
13 C X3村 93,459 7,121 66,357 17,968 29,983 26,816 63,748 28,121
14 F X6村 96,690 44,217 20,868 77,523 69,364 89,473 12,941 35,553
とりあえず、転記元ＢＯＯＫの、"転記元データ"、ーシートが上記の様な
フォーマットであると推測してコード書いてみますね。
暫時お待ちください。。。＾＾
ｗ
できるかなぁ。。。(￣▽￣)。。。m(__)m
（隠居じーさん） 2019/02/15(金) 21:41
転記元ＢＯＯＫの、"マスタ"、シート。。。想像、アンド、仮定図
A B C D E
1 県名 ID 市町村
2 A 10001 X1村
3 B 10002 X2村
4 C 10003 X3村
5 D 10004 X4村
6 E 10005 X5村
7 F 10006 X6村
8 G 10007 X7村
9 H 10008 X8村
10 I 10009 X9村
11 J 10010 X10村
（隠居じーさん） 2019/02/15(金) 21:47
A B C D E F G H 〜 BS まで
1
2 項目-1 項目-2 項目-3 項目-4 項目-5 項目-6 項目-7 項目-8 〜
3
4
5
6
7
8
転記先ＢＯＯＫの"転記先"、シート ↑
転記元ＢＯＯＫの、"転記元データ"、シートも、ＢＲ列まで情報有り で。。。 でわ
（隠居じーさん） 2019/02/15(金) 21:54
♪〜(´ε｀ )ひゅ〜ひゅ〜〜 冷やかしの口笛です。(^^; >Sub お題作成最終版しっかり頼むぜSoulMan今度こそ() 使っちゃいますぅ？？？ （SoulMan） 2019/02/15(金) 22:31
こんばんは ＾＾ おおおおをぉ〜〜〜 SoulMan 様、お師匠様。。。今、何とかコードは書いたのですが。。。 なんと心強い。。。お言葉。。。お師匠様のご執筆をお待ちいたしておりました。 m(_ _)m
（隠居じーさん） 2019/02/16(土) 00:24
おはようございます。
あぁぁぁぁ、、、すみません。単なる野次馬です。(^^;
馬？？そうそう、、今日は、、お馬ちゃんモードになるかもです。
ただ、大作になりそうなので例のやつでレイアウトを確かめてからの方がいいんじゃないかなぁと思っただけです。
お手を止めさせちゃって申し訳ございません。。。m(__)m （SoulMan） 2019/02/16(土) 07:07
おはようございます。(#^.^#) トピ主様のお返事を待って。難航しそぉなら例のものを使わせていただいても よろしいでせうか。 とりあえず、先行いたしますので。。。 よろしければ御助けを(￣▽￣) ｏＯ！〜Ｈｅｌｐ〜Ｈｅｌｐ，ｍｅ！！！。。。ってまだ早いか(笑い) 当てにしてます。 御馬さん、頑張ってくださいね (^^)ｖ でわでわ （隠居じーさん） 2019/02/16(土) 07:17
私でよければ全力でバックアップ致します。 大した力にはなりませんが、、 今日も楽しみましょう よろしくお願します （SoulMan） 2019/02/16(土) 07:23
SoulMan様、ありがとうございます。 そうおっしゃっていただけると助かります。100人力を得たようです。！ こちらこそ、宜しくお願い致します。m(__)m とりあえず、こさえたのアップいたしますね。
例の如くバックアップ必須！恐怖の推測と憶測によるじーさんコードです。A^_^; 。。。
Option Explicit
Sub 転記_By_Inkyo_Jisan()
'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。
Const BaseBookName As String = "データ転記.xlsm"
Dim fpath As String, fname As String
Dim wb As Workbook
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Dim sh4 As Worksheet
Dim rr As Range
Dim mr As Range
Dim Snm
Dim i As Long
Dim j As Long
Dim y As Long
Dim BB As Workbook
'振り分けする転記先のシート名、並び変えたい順番に左から記入
Snm = Array("A", "B", "C", "D")
If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel) Then
Sheet_Delete Snm
End If
Set BB = Workbooks(BaseBookName)
fpath = BB.Path & "\転記元\"
Set sh1 = BB.Worksheets("転記先")
fname = Dir(fpath & "*.xls*")
Do Until fname = ""
If fname <> BB.Name Then
y = 3
Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0)
Set sh2 = wb.Worksheets("転記元データ")
Set sh3 = wb.Worksheets("マスタ")
Set rr = sh2.Range("A4").CurrentRegion
Set mr = sh3.Range("C1").CurrentRegion
'書込み先シート名をsh2.Range("B2")の値で振り分け処理
On Error Resume Next
i = WorksheetFunction.Match(sh2.Range("B2").Value, Snm, 0)
If Err.Number > 0 Then
MsgBox "シート名が設定されていません" & vbNewLine & _
"確認後設定してやり直してください。"
On Error GoTo 0
For j = 1 To Windows.Count
If ActiveWorkbook.Name <> BaseBookName Then
ActiveWorkbook.Close False
End If
Next
Sheet_Delete Snm
Exit Sub
End If
On Error Resume Next
Set sh4 = BB.Worksheets(Snm(i - 1))
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = Snm(i - 1)
Set sh4 = BB.Worksheets(Snm(i - 1))
End If
On Error GoTo 0
With sh4
For i = 2 To rr.Rows.Count
y = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
'*******************************************************
'1行、全列、転記
.Cells(y, 1).Resize(, 70) = rr(i, 1).Resize(, 70).Value
'シート名を上書き
.Cells(y, 1) = sh2.Range("B2").Value
'* 〜 * この辺は適当に実際の情報に合わせて書き換えて下さい
'*******************************************************
'BS列に地域コードを書込み
For j = 2 To mr.Rows.Count
If (rr(i, 2) = mr(j, 1)) * (rr(i, 3) = mr(j, 3)) Then
.Range("BS" & y) = mr(j, 2)
End If
Next
Next
End With
wb.Close SaveChanges:=False
End If
fname = Dir()
Loop
For i = UBound(Snm) To 0 Step -1
On Error Resume Next
Worksheets(Snm(i)).Move before:=Worksheets(1)
On Error GoTo 0
Next
End Sub
Private Sub Sheet_Delete(ByVal Snm As Variant)
Dim i As Long
Dim log As String
Application.DisplayAlerts = False
For i = 0 To UBound(Snm)
On Error Resume Next
Worksheets(Snm(i)).Delete
On Error GoTo 0
Next
Application.DisplayAlerts = True
End Sub
（隠居じーさん） 2019/02/16(土) 07:54
SoulMan様。。。お馬さん 行ってくださいね〜〜〜 ＾＾ わたしも日中はおでかけで〜す。 多分、トピ主様も土日はお休みで。お返事は。。。週明けかもですね〜 でわでわ よろしくお願いいたします。 かる〜いのりのじーさんで。。。すみません m(__)m、m(__)m、m(__)m
１．説明コメントの位置が不適切な為場所を変更いたしました
2019/02/16 08:17
２．シート名間違い対応、エラー処理を追加しました
いまのうち、いまのうち。。。(￣▽￣)
2019/02/16 11:06
（隠居じーさん） 2019/02/16(土) 08:07
ご連絡が遅れ大変申し訳ございません
たくさんのご回答ありがとうございます。
休日はネット環境がない環境におりまして。。。。
申し訳ございません。
確認させていただきます。
まずはこちらのシート構成の詳細を提示いたします。
がもう少々お待ちください。。。。
申し訳ございませんでした。
以上、よろしくお願いいたします。
（f） 2019/02/18(月) 11:57
お世話になっております。ｆです。
すみません。あれから少しいろいろありまして少し実現したいことが変わってしまいました。。
2019/02/16(土) 07:54投稿していただいたコードについて、まだ内容を確認中でして、頭が追い付いてません。すみません。
レイアウト、変更点について詳細を以下に説明します。★部分は新規追加の事項です。
■やりたいこと
指定のパスにある、各エクセルファイル（転記元）の内容をマクロエクセル（転記先ファイル）に転記する。その際、情報入力シートのＢ２セルに入力された情報（★入力制御により5パターンのみ）によって転記先のシートをわける。
転記先シートには情報入力シートを取り込むための計４シートと、検査シートを取り込むための計４シートです。
※Ｂ２の値が5パターンにもかかわらず、情報、検査ともに４シートの理由は下部の■転記先マクロ付きエクセルで説明します）
・転記元ファイルのシート（情報入力シート、検査シート、マスタ（都道府県）、★マスタ（管理））はすべてのエクセルファイル同じレイアウトです。
・情報入力シートを取り込むためのて計４つの転記先シートのレイアウトはすべて同じです
・検査シートを取り込むための計４つの転記先４シートのレイアウトはすべて同じです
■転記元エクセル（フォーム形式で全エクセルレイアウト同一、）
シート構成：情報入力シート、検査シート、マスタ（都道府県）、★マスタ（管理）
１．情報入力シートの主要なセル：Ｂ２（情報入力シート）に転記先を判別する情報あり（種類みないなものです）
Ｂ５（情報入力シート）：都道府県名、Ｃ５（情報入力シート）：市町村名（後述する市町村コード判断に必要）
Ｇ２セル（情報入力シート）：管理者名（★新規項目です。転記先シートＢ列にＧ２セルに入力された値に対応する管理者コードをマスタ（管理）シートから判断し、転記する。
・上記以外にも、転記したいセルはあるのですが、
.Range("〇〇" & i).Value = sh2.Range("〇〇").Valueの形で取得可能な項目のため、省略させていただきます。
・データ範囲としてはＤ列〜ＡＡ列、10行目〜42行目（空欄、項目名などもあるので、すべてに値が入っているわかではないです。１行目はフォームの見出しです。）
２．検査シート
１情報入力シートと似ておりますが、検査結果を入力するシートなので、そのまま入力値を転記先検査シートに転記するだけのシートです
・データ範囲としてはＢ列〜Ｎ列、２行目〜２１行目（空欄、項目名などもあるので、すべてに値が入っているわかではないです。１〜９行目は項目名です。）
３．マスタ（都道府県）：
Ｄ列：都道府県名
E列：市町村名
Ｃ列：市町村コード
データ範囲：２行目〜1964行目
・このシートの用途としては、１．情報入力シートのＢ５、Ｃ５セルとマスタ（都道府県シート）のＤ列とＥ列を照合し、合致するＣ列市町村コードを、
転記先ファイルの情報入力シート転記シートのＢＳ列に転記したいです。
★３．マスタ（管理）：
列範囲：Ｃ〜Ｌ列
３行名：管理者コード（Ｃ〜Ｌ列で全１０パターン）
7行目〜20行目：管理者名
・このシートの用途としては、１．情報入力シートのＧ２に入力された管理者名をマスタ（管理）シートの列：Ｃ〜Ｌ列、行：7から20を照合し、合致した列の３行目の管理者コードの値を転記先ファイルの情報入力シート転記シートのＢ列と★転記先ファイルの検査シートＢ列に転記したいです。
■転記先マクロ付きエクセル
※転記元エクセル情報入力シートのＢ２セルにＡ、Ｂ、Ｃ，Ｄ、Ｅの5パターンのうちいずれかが入力されると仮定します。
シート構成：
情報入力シート（Ａ）、情報入力シート（Ｂ）、情報入力シート（Ｃ）、情報入力シート（Ｄ）←レイアウトはＡ〜Ｄ同じ
検査シート（Ａ）、検査シート（Ｂ）、検査シート（Ｃ）、検査シート（Ｄ）←レイアウトはＡ〜Ｄ同じ
データ範囲
情報入力シート：列Ａ〜ＢＶ、行３行目からデータが入力されている（Ａ〜Ｄで同様）
検査シート：列Ａ〜ＺＷ、7行目からデータが入力されている（Ａ〜Ｄで同様）
●5パターンなのに4シートの理由としては、Ｂ２にＥが入力された場合は、Ｄと同様とみなし、Ｄシートに転記したいからです。
★その他実現したいこと
・最終的にはボタンからの動作を考えているのですが、［ボタン］をクリックした際、転記ができないファイルが存在する場合に、そのファイル名を含むメッセージが出せるのでしょうか？
・出力が完了した際に、完了メッセージを表示したいのですがかのうでしょうか？（←こちらは調べたところ可能そうですね）
・重複があるファイル以外は出力し、転記先エクセルに「エラー出力」シートを追加し、重複があるファイル名、取込作業日を出力する
・既に転記先エクセルにデータが出力されている状態で、再度出力した際、下記の処理が可能か。
１．ファイル名から判断して同じなら上書き、無ければ追加
２．同じファイル名がある場合に確認メッセージ ⇒ ［ＯＫ］で上書き、[キャンセルで処理取り消し]
以上、長くなりましたが、よろしくお願いいたします。
（f） 2019/02/18(月) 19:48
こんばんは＾＾拝見いたしました。 理解できるよう。努力ははいたしますが。。。できれば（隠居じーさん） 2019/02/15(金) 21:41 で アップさせていただきました予測シート図のようにセル番地が解る表形式で 規則性が判断できる範囲でよろしいかと思いますので。 読込シート（これとこれのこことあそこを読んで） 書込みシート（ここと、かしこにこういうう判断でこう書き込む） みたいな感じでお願いいたします。 ↑の件でコンパクトにしたダミー情報を簡単に共有出来るツールをSoulmanさんが お持ちですのでお借りして、ここに結果をアップしていただくこともお考えいただければ 幸甚です。お願いすれば使わせて戴けると思います。 多分ダメだったと思いますが先日のコード実行結果も合わせて教えていただけますでしょうか。 では、暫くわたしもご提示いただいた内容を熟読してみます。 だれか、ポンと書いてくださるといいですね＾＾； m(_ _)m
（隠居じーさん） 2019/02/18(月) 20:25
ご回答ありがとうございます。本当にありがとうございます。
承知いたしました。
大変申し訳ございませんが、まだ作成していただいたコードについて試せておりませんでした。。
明日実行させていただきます。
Soulman様
ダミー情報作成ツールをお借りすることは可能でしょうか。
以上、よろしくお願いいたします。
（f） 2019/02/18(月) 20:32
ここに↓
ちょっとふざけた名前のコードがありますから、、じゃんじゃん使ってください。
Sub お題作成最終版しっかり頼むぜSoulMan今度こそ()
Upするときは、個人情報に注意してくださいね。量は、最小限でお願いします。
>ダミー情報作成ツール
いいねぇ、、、もうちょっとこましなネーミングにしとけばよかったね。
しかし、、名前、、付けるの下手だよね(笑)、、その時々は、大真面目なんだけどね。＿|￣|○
隠居じーさん さん、、平日は、時間がなくて申し訳ありません。
ちょっと文章だけではわかりませんよね。(^^;
頑張ってくださいね。
では、では、 （SoulMan） 2019/02/18(月) 21:03
SoulManさん こんばんは ＾＾ ありがとうございます。 ＞＞隠居じーさん さん、、平日は、時間がなくて申し訳ありません。 いえいえ すみません。 また、宜しくお願いいたします。 m(_ _)m
（隠居じーさん） 2019/02/18(月) 21:16
fさん こんばんは＾＾ SoulManさん も快諾されていますので。 ダミー情報、たくさんで作成するの大変でしょうけど 出来ましたら、またご連絡ください。 ここにテキスト変換してアップしなくても 一つずつ、お借りしたマクロでシートの解析が出来ますので。 自動で作成されたコードをそのままここにアップするだけで済みます。 使い方等、ご説明させていただきますので。。。 ではおまちしております。 （隠居じーさん） 2019/02/18(月) 21:45
おはようございます ＾＾ ＞＞★その他実現したいこと ＞＞ ・最終的にはボタンからの動作を考えているのですが、［ボタン］をクリックした際、転記ができない ＞＞ファイルが存在する場合に、そのファイル名を含むメッセージが出せるのでしょうか？
○ 何をもって転記出来ないと判断するかの基準が明確であれば出来ます。
＞＞・出力が完了した際に、完了メッセージを表示したいのですがかのうでしょうか？（←こちらは調べたと ＞＞ころ可能そうですね）
○そぉですね簡単です。
＞＞・重複があるファイル以外は出力し、転記先エクセルに「エラー出力」シートを追加し、重複がある ファ ＞＞イル名、取込作業日を出力する
○これも何をもって重複とするかの定義が有れば可能です。同じファイル名の事とか、 また下記のご質問。（重複があるファイル以外は出力し）と矛盾するかもしれません
＞＞・既に転記先エクセルにデータが出力されている状態で、再度出力した際、下記の処理が可能か。 ＞＞ １．ファイル名から判断して同じなら上書き、無ければ追加 ＞＞ ２．同じファイル名がある場合に確認メッセージ ⇒ ［ＯＫ］で上書き、[キャンセルで処理取り消 ＞＞し] ○１．上書きの方法により必要項目が変わりますが、いずれにしましても。同じ情報かどうかを 識別できる、項目、キー、（日付、処理コード等）が必要です。 ○２．可能です。
上記項目を実現するにはやはり的確な情報の把握が不可欠です。 ただ、最初にご提示されたコードを拝見し。そのままファイルの読込みルーチンは 私のサンプルコードにも使わせていただいております。これほどスキルがおありなら お困りの箇所だけサンプルデーターをSoulmanさんツールで作成後、お尋ねいただくのも有りかと。 当方はどちらでもいいですよ。。。とりあえずご報告まで。お急ぎでなければ、ゆっくりご一緒に 他の回答者様のアドバイスもいただきながら、作成致しましょう。 でわ
（隠居じーさん） 2019/02/19(火) 09:31
隠居じーさん様
ご回答ありがとうございます。
１．シートの振り分け
２．変換（市町村コード）
３．その他（メッセージ、重複）
等の優先順位で急ぎ目に解決したいと思っております。
取り急ぎ、ツールの結果を貼りたいと思いますが、少々お待ちくださいませｎ。
（f） 2019/02/19(火) 15:29
Private Sub SoulMan()
Rem 結合状態を処理
Range("A1:N1").Merge
Range("B2:D2").Merge
Range("G2:H2").Merge
Range("I2:J2").Merge
Range("L2:N2").Merge
Range("I3:J3").Merge
Range("M3:N3").Merge
Range("B4:D4").Merge
Range("F4:J4").Merge
Range("L4:N4").Merge
Range("D5:J5").Merge
Range("L5:N5").Merge
Range("B6:C6").Merge
Range("E6:F6").Merge
Range("H6:N6").Merge
Range("B8:D8").Merge
Range("F8:H8").Merge
Range("I8:J8").Merge
Range("K8:N8").Merge
Range("B9:D9").Merge
Range("F9:H9").Merge
Range("I9:J9").Merge
Range("K9:N9").Merge
Range("C10:D10").Merge
Range("I10:J10").Merge
Range("L10:N10").Merge
Range("C11:D11").Merge
Range("G11:H11").Merge
Range("I11:J11").Merge
Range("L11:N11").Merge
Range("C12:D12").Merge
Range("G12:H12").Merge
Range("I12:J12").Merge
Range("K12:N12").Merge
Range("B14:C14").Merge
Range("E14:F14").Merge
Range("H14:J14").Merge
Range("L14:N14").Merge
Range("B15:C15").Merge
Range("E15:F15").Merge
Range("H15:J15").Merge
Range("M15:N15").Merge
Range("B16:C16").Merge
Range("E16:F16").Merge
Range("H16:J16").Merge
Range("L16:N16").Merge
Range("B18:C18").Merge
Range("E18:F18").Merge
Range("B19:D19").Merge
Range("E19:F19").Merge
Range("H19:N19").Merge
Range("A23:N23").Merge
Rem 数式セル以外をまとめて処理
Range("A1").Value = "〇〇"
Range("A2").Value = "〇〇"
Range("B2").Value = "〇〇"
Range("E2").Value = "〇〇"
Range("F2").Value = "〇〇"
Range("G2").Value = "〇〇"
Range("I2").Value = "〇〇"
Range("K2").Value = "〇〇"
Range("L2").Value = 9〇〇"
Range("A3").Value = "〇〇"
Range("I3").Value = "〇〇"
Range("M3,I18:J18,M18〇〇"
Range("A4").Value = "〇〇"
Range("B4").Value = "〇〇"
Range("E4").Value = "〇〇"
Range("F4").Value = "〇〇"
Range("K4").Value = "〇〇"
Range("L4").Value = "〇〇"
Range("A5").Value = "〇〇"
Range("B5").Value = "〇〇"
Range("C5").Value = "〇〇"
Range("D5").Value = "〇〇"
Range("K5").Value = "〇〇"
Range("L5").Value = 5〇〇"
Range("A6").Value = "〇〇"
Range("B6").Value = 3〇〇"
Range("D6").Value = "〇〇"
Range("E6").Value = 1〇〇"
Range("G6,I12,G19").V〇〇"
Range("H6,H19").Value〇〇"
Range("A7").Value = "〇〇"
Range("A8").Value = "〇〇"
Range("B8").Value = "〇〇"
Range("E8").Value = "〇〇"
Range("F8").Value = "〇〇"
Range("I8").Value = "〇〇"
Range("K8").Value = "〇〇"
Range("A9").Value = "〇〇"
Range("B9").Value = "〇〇"
Range("E9").Value = "〇〇"
Range("F9").Value = "〇〇"
Range("I9").Value = "〇〇"
Range("A10").Value = 〇〇"
Range("B10").Value = 〇〇"
Range("C10").Value = 〇〇"
Range("E10").Value = 〇〇"
Range("F10").Value = 〇〇"
Range("G10").Value = 〇〇"
Range("H10").Value = 〇〇"
Range("I10").Value = 〇〇"
Range("K10,B11,F11").〇〇"
Range("L10").Value = 〇〇"
Range("A11").Value = 〇〇"
Range("C11").Value = 〇〇"
Range("E11").Value = 〇〇"
Range("G11").Value = 〇〇"
Range("I11").Value = 〇〇"
Range("K11,B12,L16,B2〇〇"
Range("L11").Value = 〇〇"
Range("A12").Value = 〇〇"
Range("C12").Value = 〇〇"
Range("E12").Value = 〇〇"
Range("F12").Value = 〇〇"
Range("G12").Value = 〇〇"
Range("K12").Value = 〇〇"
Range("A13").Value = 〇〇"
Range("A14").Value = 〇〇"
Range("B14").Value = 〇〇"
Range("D14").Value = 〇〇"
Range("E14").Value = 〇〇"
Range("G14").Value = 〇〇"
Range("H14").Value = 〇〇"
Range("K14").Value = 〇〇"
Range("L14,B15").Valu〇〇"
Range("A15").Value = 〇〇"
Range("D15").Value = 〇〇"
Range("E15").Value = 〇〇"
Range("G15").Value = 〇〇"
Range("H15").Value = 〇〇"
Range("K15").Value = 〇〇"
Range("L15").Value = 〇〇"
Range("M15").Value = 〇〇"
Range("A16").Value = 〇〇"
Range("B16").Value = 〇〇"
Range("D16").Value = 〇〇"
Range("E16").Value = 〇〇"
Range("G16").Value = 〇〇"
Range("H16").Value = 〇〇"
Range("K16").Value = 〇〇"
Range("A17").Value = 〇〇"
Range("A18").Value = 〇〇"
Range("B18").Value = 〇〇"
Range("D18").Value = 〇〇"
Range("E18").Value = 〇〇"
Range("G18").Value = 〇〇"
Range("H18").Value = 〇〇"
Range("K18").Value = 〇〇"
Range("L18").Value = 〇〇"
Range("A19").Value = 〇〇"
Range("B19").Value = 〇〇"
Range("E19").Value = 〇〇"
Range("A21").Value = 〇〇"
Range("C21").Value = 〇〇"
Range("D21").Value = 〇〇"
Range("A23").Value = 〇〇"
Range("A24").Value = 〇〇"
Range("A25").Value = 〇〇"
Rem 数式セルをまとめて処理
Range("K3").FormulaR1C1Local = "=IF(R[-1]C[-9]="""","""",VLOOKUP(R[-1]C[-9],'シート名'!R4C9:R9C10,2,0))"
Range("L3").FormulaR1C1Local = "=IF(R[-1]C[-10]="""","""",CONCATENATE(VLOOKUP(R[-1]C[-6],''シート名'!R5C2:R14C3,2,0),VLOOKUP(R[-1]C[-5],'マスタ（メンテナンス番号）'!R4C6:R102C7,2,0)))"
Rem 標準外書式セルをまとめて処理
Range("M3:N3").NumberFormatLocal = "00000"
Range("L5:N5").NumberFormatLocal = "#,##0.000;[赤]-#,##0.000"
Range("R5:S5,B6:C6,E6:F6").NumberFormatLocal = "0""度""00""分""00.0""秒"""
Range("B10,L15").NumberFormatLocal = "#,##0;[赤]-#,##0"
Range("F12,H18,L18").NumberFormatLocal = "G/標準""年"""
Range("G12:H12,I18,M18").NumberFormatLocal = "G/標準""月"""
Range("B16:C16,E16:F16").NumberFormatLocal = "#,##0.0;[赤]-#,##0.0"
Range("J18,N18").NumberFormatLocal = "G/標準""日"""
Rem 塗りつぶしセルをまとめて処理
Range("A2,E2,K2,I3:J3,M3:N3,A4:A5,E4,K4,K5:N5").Interior.ColorIndex = 20
Range("A6:N6,A8:A12,E8:E11,I8:J11,E12:N12,A14:A15,D14:D15,G14,K14").Interior.ColorIndex = 20
Range("G15:L15,A16:G16,K16,A18:A19,D18,G18:N19,A21,C21:D21").Interior.ColorIndex = 20
Range("B2:D2,F2:J2,B4:D4,L4:N4,B5:C5,B8:D9,F8:H10,K8:N9,K10:K11,B11:B12").Interior.ColorIndex = 19
Range("F11,B14:C15,E14:F15,H14:J14,L14:N14,H16:J16,L16:N16,B18:C18,E18:F18,B21").Interior.ColorIndex = 19
Rem 列幅をまとめて処理
Range("A1:H25,K1:L25").ColumnWidth = 6.89
Range("I1:J25").ColumnWidth = 3
Range("M1:N25").ColumnWidth = 3.22
Range("O1:U25").ColumnWidth = 8.22
Rem 行高さをまとめて処理
Range("A1:U19,A21:U21").RowHeight = 21.8
Range("A20:U20,A22:U22").RowHeight = 6
Range("A23:U23").RowHeight = 351
Range("A24:U25").RowHeight = 9.6
MsgBox "お題の作成が完了しました。"
End Sub
（f） 2019/02/19(火) 15:56
Private Sub SoulMan()
Rem 結合状態を処理
Range("A1:Z1").Merge
Range("B3:D3").Merge
Range("F3:I3").Merge
Range("J3:P3").Merge
Range("Q3:S3").Merge
Range("T3:AA3").Merge
Range("Q4:S4").Merge
Range("T4:AA4").Merge
Range("A5:D8").Merge
Range("E5:E9").Merge
Range("F5:F9").Merge
Range("G5:X5").Merge
Range("Y5:Y9").Merge
Range("Z5:AA9").Merge
Range("G6:X6").Merge
Range("G7:P7").Merge
Range("Q7:T7").Merge
Range("U7:X7").Merge
Range("G8:H8").Merge
Range("I8:J8").Merge
Range("K8:L8").Merge
Range("M8:N8").Merge
Range("O8:P8").Merge
Range("Q8:R8").Merge
Range("S8:T8").Merge
Range("U8:V8").Merge
Range("W8:X8").Merge
Range("A9:B9").Merge
Range("A10:A21").Merge
Range("B10:B13").Merge
Range("Y10:Y21").Merge
Range("Z10:AA21").Merge
Range("B14:B19").Merge
Range("B20:B21").Merge
Range("A22:A27").Merge
Range("B22:B24").Merge
Range("Y22:Y27").Merge
Range("Z22:AA27").Merge
Range("B25:B27").Merge
Range("A28:A33").Merge
Range("B28:B29").Merge
Range("D28:D31").Merge
Range("Y28:Y33").Merge
Range("Z28:AA33").Merge
Range("B30:B31").Merge
Range("B32:B33").Merge
Range("D32:D33").Merge
Range("A34:A35").Merge
Range("Y34:Y35").Merge
Range("Z34:AA35").Merge
Range("A36:A37").Merge
Range("Y36:Y37").Merge
Range("Z36:AA37").Merge
Range("A38:A41").Merge
Range("B38:B41").Merge
Range("Y38:Y41").Merge
Range("Z38:AA41").Merge
Range("S42:X43").Merge
Range("Y42:AA43").Merge
Range("A45:AA46").Merge
Range("A48:B48").Merge
Range("C48:G48").Merge
Range("H48:K48").Merge
Range("L48:AA48").Merge
Range("A49:B49").Merge
Range("C49:G49").Merge
Range("H49:K49").Merge
Range("L49:AA49").Merge
Range("A51:AA55").Merge
Range("A56:AA56").Merge
Range("A57:AA57").Merge
Rem 数式セル以外をまとめて処理
Range("A1").Value = "〇〇"
Range("A3").Value = "
Range("E3").Value = "
Range("Q3").Value = "
Range("A4").Value = "
Range("Q4").Value = "
Range("A5").Value = "
Range("E5").Value = "
Range("F5").Value = "
Range("G5").Value = "
Range("Y5").Value = "
Range("Z5").Value = "
Range("G6").Value = "
Range("G7").Value = "
Range("Q7").Value = "
Range("U7").Value = "
Range("G8").Value = "
Range("I8").Value = "
Range("K8").Value = "
Range("M8").Value = "
Range("O8").Value = "
Range("Q8").Value = "
Range("S8").Value = "
Range("U8").Value = "
Range("W8,B20,A38:B38
Range("A9").Value = "
Range("C9").Value = "
Range("D9").Value = "
Range("G9,I9,K9,M9,O9
Range("H9,J9,L9,N9,P9
Range("A10").Value =
Range("B10:C10").Valu
Range("D10").Value =
Range("E10").Value =
Range("F10:F11").Valu
Range("G10,O10,M13,H1
Range("H10,M10:N10,P1
Range("Y10").Value =
Range("Z10").Value =
Range("C11").Value =
Range("D11").Value =
Range("E11").Value =
Range("C12").Value =
Range("D12").Value =
Range("C13").Value =
Range("D13").Value =
Range("W13,G16,I16,O1
Range("B14").Value =
Range("C14").Value =
Range("D14").Value =
Range("C15").Value =
Range("D15").Value =
Range("C16").Value =
Range("D16").Value =
Range("C17").Value =
Range("D17").Value =
Range("C18").Value =
Range("D18").Value =
Range("C19").Value =
Range("D19").Value =
Range("C20").Value =
Range("D20").Value =
Range("C21").Value =
Range("D21").Value =
Range("A22").Value =
Range("B22:C22").Valu
Range("D22").Value =
Range("C23").Value =
Range("D23").Value =
Range("C24").Value =
Range("D24").Value =
Range("B25").Value =
Range("C25").Value =
Range("D25").Value =
Range("C26").Value =
Range("D26").Value =
Range("C27").Value =
Range("D27").Value =
Range("A28").Value =
Range("B28").Value =
Range("C28").Value =
Range("D28").Value =
Range("C29").Value =
Range("B30:C30").Valu
Range("C31").Value =
Range("B32").Value =
Range("C32").Value =
Range("D32").Value =
Range("C33").Value =
Range("A34").Value =
Range("B34:C34").Valu
Range("D34").Value =
Range("B35:C35").Valu
Range("D35").Value =
Range("A36").Value =
Range("B36:C36").Valu
Range("D36").Value =
Range("B37:C37").Valu
Range("D37").Value =
Range("C38").Value =
Range("D38").Value =
Range("C39").Value =
Range("D39").Value =
Range("C40").Value =
Range("D40").Value =
Range("S42").Value =
Range("A43").Value =
Range("A45").Value =
Range("A47").Value =
Range("A48").Value =
Range("H48").Value =
Range("A49").Value =
Range("H49").Value =
Range("A51").Value =
Range("A56").Value =
Range("A57").Value =
Rem 数式セルをまとめて処理
Range("B3,F3").FormulaR1C1Local = "='シート名'!R[-1]C"
Range("J3").FormulaR1C1Local = "=CONCATENATE(シート名'!R[-1]C[-3],"" "",'シート名'!R[-1]C[-1])"
Range("T3").FormulaR1C1Local = "='シート名'!R[-1]C[-8]"
Range("T4").FormulaR1C1Local = "=CONCATENATE(シート名'!R[-1]C[-9],'シート名'!R[-1]C[-8],TEXT('シート名'!R[-1]C[-7],""00000""))"
Rem 標準外書式セルをまとめて処理
Rem 塗りつぶしセルをまとめて処理
Range("A3,E3,Q3:S4,A5:AA9,A10:D41,S42:X43,A48:B49,H48:K49").Interior.ColorIndex = 20
Range("E10:H10,M10:P10,W10:AA12,E11:P11,E12:H12,M12:P12,E13:F13,M13:N13,U13:AA13").Interior.ColorIndex = 19
Range("E14:H15,M14:P15,W14:AA33,E16:P16,E17:H20,M17:P20,E21:P21,E22:H22,M22:P22").Interior.ColorIndex = 19
Range("E23:P23,E24:H26,M24:P26,E27:P33,E34:F34,O34:AA34,E35:P35,W35:AA40,E36:H36").Interior.ColorIndex = 19
Range("M36:P36,E37:P38,E39:H39,M39:P39,E40:P40,E41:AA41,Y42:AA43").Interior.ColorIndex = 19
Range("I10:L10,Q10:V12,I12:L12,G13:L13,O13:T13,I14:L15,Q14:V33").Interior.ColorIndex = 48
Range("I17:L20,I22:L22,I24:L26,G34:N34,Q35:V40,I36:L36,I39:L39").Interior.ColorIndex = 48
Rem 列幅をまとめて処理
Range("A1:A58").ColumnWidth = 3.56
Range("B1:B58").ColumnWidth = 13.44
Range("C1:C58").ColumnWidth = 16.11
Range("D1:D58").ColumnWidth = 4.67
Range("E1:E58").ColumnWidth = 4.89
Range("F1:F58,Y1:Y58").ColumnWidth = 3.44
Range("G1:X58").ColumnWidth = 1.89
Range("Z1:AA58").ColumnWidth = 3.22
Rem 行高さをまとめて処理
Range("A1:AA1,A4:AA4").RowHeight = 14.3
Range("A2:AA2,A44:AA44").RowHeight = 3.8
Range("A3:AA3").RowHeight = 19.5
Range("A5:AA5").RowHeight = 10.5
Range("A6:AA7,A50:AA50,A56:AA56,A58:AA58").RowHeight = 9.6
Range("A8:AA8").RowHeight = 24
Range("A9:AA9").RowHeight = 33
Range("A10:AA16,A18:AA41,A47:AA49").RowHeight = 21
Range("A17:AA17").RowHeight = 19.2
Range("A42:AA43,A45:AA46").RowHeight = 18.8
Range("A51:AA55").RowHeight = 18
Range("A57:AA57").RowHeight = 21.8
MsgBox "お題の作成が完了しました。"
End Sub
（f） 2019/02/19(火) 15:58
Private Sub SoulMan() Rem 結合状態を処理
Rem 数式セル以外をまとめて処理
Range("B2,B5,B27").Value
Range("C2,C5,C27:L27").V
Range("D2,D5,M27:Y27").V
Range("E2,E5,Z27:AM27").
Range("F2,F5,AN27:AS27")
Range("G2,G5,AT27:BF27")
Range("H2,H5,BG27:BR27")
Range("I2,I5,BS27:CA27")
Range("J2,J5,CB27:CH27")
Range("K2,K5,CI27:CT27")
Range("L2,L5,CU27:CV27")
Range("B3").Value = "
Range("C3").Value =
Range("D3").Value =
Range("E3").Value =
Range("F3").Value =
Range("G3").Value =
Range("H3").Value =
Range("I3").Value =
Range("J3").Value =
Range("K3").Value =
Range("L3").Value =
Range("B6,B28").Value
Range("C7,C28").Value
Range("D7,M28").Value
Range("E7,Z28").Value
Range("F7,AN28").Valu
Range("G7,AT28").Valu
Range("H7,BG28").Valu
Range("I7,BS28").Valu
Range("J7,CB28").Valu
Range("K7,CI28").Valu
Range("L7,CU28").Valu
Range("C8,D28").Value
Range("D8,N28").Value
Range("E8,AA28").Valu
Range("F8,AO28").Valu
Range("G8,AU28").Valu
Range("H8,BH28").Valu
Range("I8,BT28").Valu
Range("J8,CC28").Valu
Range("K8,CJ28").Valu
Range("L8,CV28").Valu
Range("C9,E28").Value
Range("D9,O28").Value
Range("E9,AB28").Valu
Range("F9,AP28").Valu
Range("G9,AV28").Valu
Range("H9,BI28").Valu
Range("I9,BU28").Valu
Range("J9,CD28").Valu
Range("K9,CK28").Valu
Range("C10,F28").Valu
Range("D10,P28").Valu
Range("E10,AC28").Val
Range("F10,AQ28").Val
Range("G10,AW28").Val
Range("H10,BJ28").Val
Range("I10,BV28").Val
Range("J10,CE28").Val
Range("K10,CL28").Val
Range("C11,G28").Valu
Range("D11,Q28").Valu
Range("E11,AD28").Val
Range("F11,AR28").Val
Range("G11,AX28").Val
Range("H11,BK28").Val
Range("I11,BW28").Val
Range("J11,CF28").Val
Range("K11,CM28").Val
Range("C12,H28").Valu
Range("D12,R28").Valu
Range("E12,AE28").Val
Range("F12,AS28").Val
Range("G12,AY28").Val
Range("H12,BL28").Val
Range("I12,BX28").Val
Range("J12,CG28").Val
Range("K12,CN28").Val
Range("C13,I28").Valu
Range("D13,S28").Valu
Range("E13,AF28").Val
Range("G13,AZ28").Val
Range("H13,BM28").Val
Range("I13,BY28").Val
Range("J13,CH28").Val
Range("K13,CO28").Val
Range("C14,J28").Valu
Range("D14,T28").Valu
Range("E14,AG28").Val
Range("G14,BA28").Val
Range("H14,BN28").Val
Range("I14,BZ28").Val
Range("K14,CP28").Val
Range("C15,K28").Valu
Range("D15,U28").Valu
Range("E15,AH28").Val
Range("G15,BB28").Val
Range("H15,BO28").Val
Range("I15,CA28").Val
Range("K15,CQ28").Val
Range("C16,L28").Valu
Range("D16,V28").Valu
Range("E16,AI28").Val
Range("G16,BC28").Val
Range("H16,BP28").Val
Range("K16,CR28").Val
Range("D17,W28").Valu
Range("E17,AJ28").Val
Range("G17,BD28").Val
Range("H17,BQ28").Val
Range("K17,CS28").Val
Range("D18,X28").Valu
Range("E18,AK28").Val
Range("G18,BE28").Val
Range("H18,BR28").Val
Range("K18,CT28").Val
Range("D19,Y28").Valu
Range("E19,AL28").Val
Range("G19,BF28").Val
Range("E20,AM28").Val
Range("Y26:Z26,AG26:AH26,AX26").Valu
Range("CF26,CK26").Va
Range("B29").Value =
Range("C30").Value =
Range("D30").Value =
Range("E30").Value =
Range("F30").Value =
Range("G30").Value =
Range("H30").Value =
Range("I30").Value =
Range("J30").Value =
Range("K30").Value =
Range("L30").Value =
Range("M30").Value =
Range("N30").Value =
Range("O30").Value =
Range("P30").Value =
Range("Q30").Value =
Range("R30").Value =
Range("S30").Value =
Range("T30").Value =
Range("U30").Value =
Range("V30").Value =
Range("W30").Value =
Range("X30").Value =
Range("AA30").Value =
Range("AB30").Value =
Range("AC30").Value =
Range("AD30").Value =
Range("AE30").Value =
Range("AF30").Value =
Range("AI30").Value =
Range("AJ30").Value =
Range("AK30").Value =
Range("AL30").Value =
Range("AM30").Value =
Range("AN30").Value =
Range("AO30").Value =
Range("AP30").Value =
Range("AQ30").Value =
Range("AR30").Value =
Range("AS30").Value =
Range("AT30").Value =
Range("AU30").Value =
Range("AV30").Value =
Range("AW30").Value =
Range("AY30").Value =
Range("AZ30").Value =
Range("BA30").Value =
Range("BB30").Value =
Range("BC30").Value =
Range("BD30").Value =
Range("BE30").Value =
Range("BF30").Value =
Range("BG30").Value =
Range("BH30").Value =
Range("BI30").Value =
Range("BJ30").Value =
Range("BK30").Value =
Range("BL30").Value =
Range("BM30").Value =
Range("BN30").Value =
Range("BO30").Value =
Range("BP30").Value =
Range("BQ30").Value =
Range("BR30").Value =
Range("BS30").Value =
Range("BT30").Value =
Range("BU30").Value =
Range("BV30").Value =
Range("BW30").Value =
Range("BX30").Value =
Range("BY30").Value =
Range("BZ30").Value =
Range("CA30").Value =
Range("CB30").Value =
Range("CC30").Value =
Range("CD30").Value =
Range("CE30").Value =
Range("CG30").Value =
Range("CH30").Value =
Range("CI30").Value =
Range("CJ30").Value =
Range("CL30").Value =
Range("CM30").Value =
Range("CN30").Value =
Range("CO30").Value =
Range("CP30").Value =
Range("CQ30").Value =
Range("CR30,AT34").Va
Range("CS30").Value =
Range("CT30").Value =
Range("CU30").Value =
Range("CV30").Value =
Range("C31").Value =
Range("D31").Value =
Range("E31").Value =
Range("F31").Value =
Range("G31").Value =
Range("H31").Value =
Range("I31").Value =
Range("J31").Value =
Range("K31").Value =
Range("L31").Value =
Range("M31").Value =
Range("N31").Value =
Range("O31").Value =
Range("P31").Value =
Range("Q31").Value =
Range("R31").Value =
Range("S31").Value =
Range("T31").Value =
Range("U31").Value =
Range("V31").Value =
Range("W31").Value =
Range("X31").Value =
Range("AA31").Value =
Range("AB31").Value =
Range("AC31").Value =
Range("AD31").Value =
Range("AE31").Value =
Range("AF31").Value =
Range("AI31").Value =
Range("AJ31").Value =
Range("AK31").Value =
Range("AL31").Value =
Range("AM31").Value =
Range("AN31").Value =
Range("AO31").Value =
Range("AQ31").Value =
Range("AR31").Value =
Range("AS31").Value =
Range("AT31").Value =
Range("AU31").Value =
Range("AV31").Value =
Range("AW31").Value =
Range("AY31").Value =
Range("AZ31").Value =
Range("BB31").Value =
Range("BD31").Value =
Range("BE31").Value =
Range("BF31").Value =
Range("BG31").Value =
Range("BH31").Value =
Range("BI31").Value =
Range("BJ31").Value =
Range("BK31").Value =
Range("BL31").Value =
Range("BM31").Value =
Range("BN31").Value =
Range("BO31").Value =
Range("BP31").Value =
Range("BQ31").Value =
Range("BR31").Value =
Range("BS31").Value =
Range("BT31").Value =
Range("BU31").Value =
Range("BV31").Value =
Range("BX31").Value =
Range("BZ31").Value =
Range("CA31").Value =
Range("CB31").Value =
Range("CC31").Value =
Range("CD31").Value =
Range("CE31").Value =
Range("CH31").Value =
Range("CI31").Value =
Range("CJ31").Value =
Range("CL31").Value =
Range("CM31").Value =
Range("CN31").Value =
Range("CO31").Value =
Range("CP31").Value =
Range("CQ31").Value =
Range("CR31").Value =
Range("CS31").Value =
Range("CT31").Value =
Range("CU31").Value =
Range("CV31").Value =
Range("C32").Value =
Range("E32").Value =
Range("F32").Value =
Range("G32").Value =
Range("J32").Value =
Range("K32").Value =
Range("L32").Value =
Range("M32").Value =
Range("N32").Value =
Range("O32").Value =
Range("P32").Value =
Range("Q32").Value =
Range("T32").Value =
Range("U32").Value =
Range("V32").Value =
Range("W32").Value =
Range("X32").Value =
Range("AA32").Value =
Range("AB32").Value =
Range("AC32").Value =
Range("AD32").Value =
Range("AE32").Value =
Range("AF32").Value =
Range("AI32").Value =
Range("AJ32").Value =
Range("AK32").Value =
Range("AL32").Value =
Range("AM32").Value =
Range("AN32").Value =
Range("AO32").Value =
Range("AR32").Value =
Range("AS32").Value =
Range("AT32").Value =
Range("AU32").Value =
Range("AV32").Value =
Range("AW32").Value =
Range("AZ32").Value =
Range("BD32").Value =
Range("BF32").Value =
Range("BG32").Value =
Range("BJ32").Value =
Range("BM32").Value =
Range("BN32").Value =
Range("BQ32").Value =
Range("BR32").Value =
Range("BS32").Value =
Range("BT32").Value =
Range("BU32").Value =
Range("CA32").Value =
Range("CB32").Value =
Range("CD32").Value =
Range("CH32").Value =
Range("CI32").Value =
Range("CJ32").Value =
Range("CL32").Value =
Range("CN32").Value =
Range("CP32").Value =
Range("CQ32").Value =
Range("CR32").Value =
Range("CS32").Value =
Range("CT32").Value =
Range("C33").Value =
Range("F33").Value =
Range("J33").Value =
Range("L33").Value =
Range("M33").Value =
Range("N33").Value =
Range("O33").Value =
Range("P33").Value =
Range("T33").Value =
Range("AE33").Value =
Range("AF33").Value =
Range("AI33").Value =
Range("AJ33").Value =
Range("AK33").Value =
Range("AL33").Value =
Range("AM33").Value =
Range("AN33").Value =
Range("AO33").Value =
Range("AR33").Value =
Range("AS33").Value =
Range("AT33").Value =
Range("AW33").Value =
Range("AZ33").Value =
Range("BD33").Value =
Range("BJ33").Value =
Range("BN33").Value =
Range("BR33").Value =
Range("BT33").Value =
Range("BU33").Value =
Range("CA33").Value =
Range("CH33").Value =
Range("CJ33").Value =
Range("CQ33").Value =
Range("CT33").Value =
Range("N34").Value =
Range("O34").Value =
Range("P34").Value =
Range("T34").Value =
Range("AE34").Value =
Range("AI34").Value =
Range("AJ34").Value =
Range("AK34").Value =
Range("AM34").Value =
Range("AN34").Value =
Range("AO34").Value =
Range("AW34").Value =
Range("CA34").Value =
Range("CQ34").Value =
Range("P35").Value =
Range("AI35").Value =
Range("AJ35").Value =
Range("AO35").Value =
Range("AW35").Value =
Range("CA35").Value =
Range("P36").Value =
Range("AI36").Value =
Range("AW36").Value =
Range("P37").Value =
Range("P38").Value =
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理
Rem 塗りつぶしセルをまとめて処理
Range("B2:B3,B5:B6,B27:B29").Interior.ColorIndex = 24
Rem 列幅をまとめて処理
Range("A1:A38").ColumnWidth = 0.94
Range("B1:B38").ColumnWidth = 6.22
Range("C1:C38,L1:L38,O1:O38,Y1:Y38,AA1:AA38,AC1:AE38,AN1:AO38,BJ1:BJ38,CR1:CR38,CT1:CU38").ColumnWidth = 13.11
Range("D1:F38,I1:K38,Q1:S38,U1:U38,AK1:AM38,AP1:AP38,AR1:AS38,AV1:AV38,AY1:AZ38").ColumnWidth = 14.67
Range("BE1:BE38,BI1:BI38,BL1:BM38,BQ1:BR38,BV1:BY38,CA1:CC38,CE1:CN38,CP1:CP38").ColumnWidth = 14.67
Range("G1:H38,M1:N38,P1:P38,T1:T38,V1:V38,AQ1:AQ38").ColumnWidth = 16.44
Range("BC1:BD38,BF1:BF38,BH1:BH38,BP1:BP38,CQ1:CQ38").ColumnWidth = 16.44
Range("W1:W38").ColumnWidth = 12.33
Range("X1:X38,Z1:Z38,AB1:AB38,AF1:AI38,AU1:AU38,AX1:AX38").ColumnWidth = 11.44
Range("BA1:BB38,BG1:BG38,BN1:BO38,BS1:BU38,CS1:CS38,CV1:CV38").ColumnWidth = 11.44
Range("AJ1:AJ38,AT1:AT38,BZ1:BZ38,CD1:CD38,CO1:CO38").ColumnWidth = 18.11
Range("AW1:AW38,BK1:BK38").ColumnWidth = 19.67
Rem 行高さをまとめて処理
Range("A1:CV38").RowHeight = 10.8
MsgBox "お題の作成が完了しました。"
End Sub
（f） 2019/02/19(火) 16:22
Ｃ列：市町村コード（1964行目までデータありで１行目は列名です）
Ｄ列：都道府県名（1964行目までデータありで１行目は列名です）
Ｅ列：市町村名（1964行目までデータありで１行目は列名です）
（f） 2019/02/19(火) 16:25
（隠居じーさん） 2019/02/19(火) 16:29
お世話になっております。ｆです。
毎日ありがとうございます。
右端ですが、固有名詞が出ておりまして。。。
例えば”〇〇”などに変換でもよろしいのでしょうか。。。
お願いしている立場で大変申し訳ございません。
ご回答いただけると幸いでございます。
（f） 2019/02/19(火) 17:02
もし、よろしければなのですが、
フリーアドレス等にエクセルファイルを送付させていただくなどのやり取りは可能でしょうか？（データは英語や数字などダミー変数にさせていただくことにはなると思うのですが。。
もし可能であればご検討ください。
以上、よろしくお願いいたします。
（f） 2019/02/19(火) 17:06
マスタ（都道府県） につきましては詳細なご説明もあり、理解できている
とおもいますので。結構です。← 怪しげ。。。＾＾；
こちらでもテストしましたけど
Soulmanさんのコードで右端が消えて無くなることは有りません。
全てエラーで復元出来ませんのでご確認の程重ねてお願いいたします。
Range("Y26:Z26,AG26:AH26,AX26").Valu ← たぶん Value
Range("AT33").Value = ← 多分 "" か "○○"
ついでに○○ばかりでは大変わかりづらいです。テスト環境に
使いたいのですが区別がつきません。
たとえば データ1〜データ3、もしくははランダムな数値とか、セルのアドレス
とかにしていただけると大変うれしいです。
セルのアドレスとかだと=ADDRESS 関数なんかでポイっと出来るかと。。。
でわ
（隠居じーさん） 2019/02/19(火) 17:14
Soulman様のコードではなく、私が右端のデータを切り取ったものをアップしておりました。
申し訳ございません
セルアドレスに変換して再あっぷいたします。
以上、よろしくお願いします。
（f） 2019/02/19(火) 17:26
（隠居じーさん） 2019/02/19(火) 17:32
承知いたしました。
ダミーデータ作成後、ツール実行結果を貼らせていただきます。
少々お待ちくださいませ。。。
（f） 2019/02/19(火) 17:37
Private Sub SoulMan()
Rem 結合状態を処理
Range("A1:N1").Merge
Range("B2:D2").Merge
Range("G2:H2").Merge
Range("I2:J2").Merge
Range("L2:N2").Merge
Range("I3:J3").Merge
Range("M3:N3").Merge
Range("B4:D4").Merge
Range("F4:J4").Merge
Range("L4:N4").Merge
Range("D5:J5").Merge
Range("L5:N5").Merge
Range("B6:C6").Merge
Range("E6:F6").Merge
Range("H6:N6").Merge
Range("B8:D8").Merge
Range("F8:H8").Merge
Range("I8:J8").Merge
Range("K8:N8").Merge
Range("B9:D9").Merge
Range("F9:H9").Merge
Range("I9:J9").Merge
Range("K9:N9").Merge
Range("C10:D10").Merge
Range("I10:J10").Merge
Range("L10:N10").Merge
Range("C11:D11").Merge
Range("G11:H11").Merge
Range("I11:J11").Merge
Range("L11:N11").Merge
Range("C12:D12").Merge
Range("G12:H12").Merge
Range("I12:J12").Merge
Range("K12:N12").Merge
Range("B14:C14").Merge
Range("E14:F14").Merge
Range("H14:J14").Merge
Range("L14:N14").Merge
Range("B15:C15").Merge
Range("E15:F15").Merge
Range("H15:J15").Merge
Range("M15:N15").Merge
Range("B16:C16").Merge
Range("E16:F16").Merge
Range("H16:J16").Merge
Range("L16:N16").Merge
Range("B18:C18").Merge
Range("E18:F18").Merge
Range("B19:D19").Merge
Range("E19:F19").Merge
Range("H19:N19").Merge
Range("A23:N23").Merge
Rem 数式セル以外をまとめて処理
Range("A1").Value = "タイトル"
Range("A2,E2,K2,A4:A6,E4,K4:K5,D6").Value = "項目"
Range("G6,A8:A12,E8:E12,I8:I12,A14:A16,D14:D16,G14:G16").Value = "項目"
Range("K14:K16,A18:A19,D18,G18:G19,K18,A21,C21").Value = "項目"
Range("B2").Value = "データ１"
Range("F2").Value = "管理者名"
Range("G2").Value = "データ３"
Range("I2").Value = "データ４"
Range("L2").Value = "データ５"
Range("A3").Value = "■カテゴリ１"
Range("B4").Value = "データ６"
Range("F4").Value = "データ７"
Range("L4").Value = "データ８"
Range("B5").Value = "都道府県"
Range("C5").Value = "市町村名"
Range("D5").Value = "番地"
Range("L5").Value = "データ９"
Range("B6").Value = "データ10"
Range("E6").Value = "データ11"
Range("H6").Value = "データ１２"
Range("A7").Value = "■カテゴリ２"
Range("B8").Value = "データ１３"
Range("F8").Value = "データ１４"
Range("K8").Value = "データ１５"
Range("B9").Value = "データ１６"
Range("F9").Value = "データ１７"
Range("K9").Value = "データ１８"
Range("B10").Value = "データ１９"
Range("C10").Value = "データ２０"
Range("F10").Value = "データ２１"
Range("G10").Value = "データ22"
Range("H10").Value = "データ２３"
Range("K10").Value = "データ２４"
Range("L10").Value = "データ25"
Range("B11").Value = "データ２５"
Range("C11").Value = "データ２６"
Range("F11").Value = "データ２７"
Range("G11").Value = "データ２８"
Range("K11").Value = "データ２９"
Range("L11").Value = "データ３０"
Range("B12").Value = "データ３１"
Range("C12").Value = "データ３２"
Range("F12").Value = "データ３３"
Range("G12").Value = "データ３４"
Range("K12").Value = "データ３５"
Range("A13").Value = "■カテゴリ３"
Range("B14").Value = "データ３６"
Range("E14").Value = "データ37"
Range("H14").Value = "データ３８"
Range("L14").Value = "データ３９"
Range("B15").Value = "データ４０"
Range("E15").Value = "データ４１"
Range("H15").Value = "データ４２"
Range("L15").Value = "データ４３"
Range("M15").Value = "単位"
Range("B16").Value = "データ４４"
Range("E16").Value = "データ４５"
Range("H16").Value = "データ４６"
Range("L16").Value = "データ４７"
Range("A17").Value = "■カテゴリ４"
Range("B18").Value = "データ４８"
Range("E18").Value = "データ４９"
Range("H18").Value = "データ５０"
Range("I18").Value = "データ５１"
Range("J18").Value = "データ５２"
Range("L18").Value = "データ５３"
Range("M18:N18").Value = "データ５４"
Range("B19").Value = "データ５６"
Range("E19").Value = "データ５７"
Range("H19").Value = "データ５８"
Range("B21").Value = "データ５９"
Range("D21").Value = "データ６０"
Range("A23").Value = " ■〇〇" & Chr(10) & " ■〇〇"
Range("A24:A25").Value = "注意事項"
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理
Range("M3:N3").NumberFormatLocal = "00000"
Range("L5:N5").NumberFormatLocal = "#,##0.000;[赤]-#,##0.000"
Range("R5:S5,B6:C6,E6:F6").NumberFormatLocal = "0""度""00""分""00.0""秒"""
Range("B10,L15").NumberFormatLocal = "#,##0;[赤]-#,##0"
Range("F12,H18,L18").NumberFormatLocal = "G/標準""年"""
Range("G12:H12,I18,M18").NumberFormatLocal = "G/標準""月"""
Range("B16:C16,E16:F16").NumberFormatLocal = "#,##0.0;[赤]-#,##0.0"
Range("J18,N18").NumberFormatLocal = "G/標準""日"""
Rem 塗りつぶしセルをまとめて処理
Range("A2,E2,K2,A4:A5,E4,K4,K5:N5,A6:N6").Interior.ColorIndex = 20
Range("A8:A12,E8:E11,I8:J11,E12:N12,A14:A15,D14:D15,G14,K14").Interior.ColorIndex = 20
Range("G15:L15,A16:G16,K16,A18:A19,D18,G18:N19,A21,C21:D21").Interior.ColorIndex = 20
Range("B2:D2,F2:J2,B4:D4,L4:N4,B5:C5,B8:D9,F8:H10,K8:N9,K10:K11,B11:B12").Interior.ColorIndex = 19
Range("F11,B14:C15,E14:F15,H14:J14,L14:N14,H16:J16,L16:N16,B18:C18,E18:F18,B21").Interior.ColorIndex = 19
Rem 列幅をまとめて処理
Range("A1:H25,K1:L25").ColumnWidth = 6.89
Range("I1:J25").ColumnWidth = 3
Range("M1:N25").ColumnWidth = 3.22
Range("O1:U25").ColumnWidth = 8.22
Rem 行高さをまとめて処理
Range("A1:U19,A21:U21").RowHeight = 21.8
Range("A20:U20,A22:U22").RowHeight = 6
Range("A23:U23").RowHeight = 351
Range("A24:U25").RowHeight = 9.6
MsgBox "お題の作成が完了しました。"
End Sub
（f） 2019/02/19(火) 19:47
Private Sub SoulMan()
Rem 結合状態を処理
Range("A1:Z1").Merge
Range("B3:D3").Merge
Range("F3:I3").Merge
Range("J3:P3").Merge
Range("Q3:S3").Merge
Range("T3:AA3").Merge
Range("Q4:S4").Merge
Range("T4:AA4").Merge
Range("A5:D8").Merge
Range("E5:E9").Merge
Range("F5:F9").Merge
Range("G5:X5").Merge
Range("Y5:Y9").Merge
Range("Z5:AA9").Merge
Range("G6:X6").Merge
Range("G7:P7").Merge
Range("Q7:T7").Merge
Range("U7:X7").Merge
Range("G8:H8").Merge
Range("I8:J8").Merge
Range("K8:L8").Merge
Range("M8:N8").Merge
Range("O8:P8").Merge
Range("Q8:R8").Merge
Range("S8:T8").Merge
Range("U8:V8").Merge
Range("W8:X8").Merge
Range("A9:B9").Merge
Range("A10:A21").Merge
Range("B10:B13").Merge
Range("Y10:Y21").Merge
Range("Z10:AA21").Merge
Range("B14:B19").Merge
Range("B20:B21").Merge
Range("A22:A27").Merge
Range("B22:B24").Merge
Range("Y22:Y27").Merge
Range("Z22:AA27").Merge
Range("B25:B27").Merge
Range("A28:A33").Merge
Range("B28:B29").Merge
Range("D28:D31").Merge
Range("Y28:Y33").Merge
Range("Z28:AA33").Merge
Range("B30:B31").Merge
Range("B32:B33").Merge
Range("D32:D33").Merge
Range("A34:A35").Merge
Range("Y34:Y35").Merge
Range("Z34:AA35").Merge
Range("A36:A37").Merge
Range("Y36:Y37").Merge
Range("Z36:AA37").Merge
Range("A38:A41").Merge
Range("B38:B41").Merge
Range("Y38:Y41").Merge
Range("Z38:AA41").Merge
Range("S42:X43").Merge
Range("Y42:AA43").Merge
Range("A45:AA46").Merge
Range("A48:B48").Merge
Range("C48:G48").Merge
Range("H48:K48").Merge
Range("L48:AA48").Merge
Range("A49:B49").Merge
Range("C49:G49").Merge
Range("H49:K49").Merge
Range("L49:AA49").Merge
Range("A51:AA55").Merge
Range("A56:AA56").Merge
Range("A57:AA57").Merge
Rem 数式セル以外をまとめて処理
Range("A1").Value = "タイトル"
Range("A3,E3,Q3,A5,E5:G5,Y5:Z5,G6:G8,Q7:Q8,U7:U8").Value = "項目"
Range("I8,K8,M8,O8,S8,W8,A9,C9:D9,G9:X9").Value = "項目"
Range("A10:D10,C11:D13,B14:D14,C15:D19,B20:D20,C21:D21,A22:D22,C23:D24,B25:D25").Value = "項目"
Range("C26:D27,A28:D28,C29,B30:C30,C31,B32:D32,C33,A34:D34,B35:D35").Value = "項目"
Range("A36:D36,B37:D37,A38:D38,C39:D40,S42,A48:A49,H48:H49").Value = "項目"
Range("A4").Value = "■結果"
Range("E10").Value = "結果１"
Range("F10").Value = "結果２"
Range("G10").Value = "結果３"
Range("H10").Value = "結果４"
Range("M10").Value = "結果５"
Range("N10").Value = "結果６"
Range("O10").Value = "結果７"
Range("P10").Value = "結果８"
Range("W10").Value = "結果９"
Range("X10").Value = "結果１０"
Range("Y10:Z10,W16:W41,Y22:Z22,Y28:Z28,Y34:Z34,Y36:Z36,Y38:Z38").Value = "結果７５"
Range("E11").Value = "結果１１"
Range("F11").Value = "結果１２"
Range("G11").Value = "結果１３"
Range("H11").Value = "結果１４"
Range("I11").Value = "結果１５"
Range("J11").Value = "結果１６"
Range("K11").Value = "結果１７"
Range("L11").Value = "結果１８"
Range("M11").Value = "結果１９"
Range("N11").Value = "結果２０"
Range("O11").Value = "結果２１"
Range("P11").Value = "結果２２"
Range("W11").Value = "結果２３"
Range("X11").Value = "結果２４"
Range("E12").Value = "結果２５"
Range("F12").Value = "結果２６"
Range("G12").Value = "結果２７"
Range("H12").Value = "結果２８"
Range("M12").Value = "結果２９"
Range("N12").Value = "結果３０"
Range("O12").Value = "結果３１"
Range("P12").Value = "結果３２"
Range("W12").Value = "結果３３"
Range("X12").Value = "結果３４"
Range("E13").Value = "結果３５"
Range("F13").Value = "結果３６"
Range("M13").Value = "結果３７"
Range("N13").Value = "結果３８"
Range("U13,Q34,S34,U34,Q41,S41,U41").Value = "結果３９"
Range("V13,R34,T34,V34,R41,T41,V41").Value = "結果４０"
Range("W13").Value = "結果４１"
Range("X13").Value = "結果４２"
Range("E14").Value = "結果４３"
Range("F14").Value = "結果４４"
Range("G14").Value = "結果４５"
Range("H14").Value = "結果４６"
Range("M14").Value = "結果４７"
Range("N14").Value = "結果４８"
Range("O14").Value = "結果４９"
Range("P14").Value = "結果５０"
Range("W14").Value = "結果５１"
Range("X14").Value = "結果５２"
Range("E15").Value = "結果５３"
Range("F15").Value = "結果５４"
Range("G15").Value = "結果５５"
Range("H15").Value = "結果５６"
Range("M15").Value = "結果５７"
Range("N15").Value = "結果５８"
Range("O15").Value = "結果５９"
Range("P15").Value = "結果６０"
Range("W15").Value = "結果６１"
Range("X15").Value = "結果６２"
Range("E16:E41").Value = "結果６３"
Range("F16:F41").Value = "結果６４"
Range("G16:G33,G35:G41").Value = "結果６５"
Range("H16:H33,H35:H41").Value = "結果６６"
Range("I16,I21,I23,I27:I33,I35,I37:I38,I40:I41").Value = "結果６７"
Range("J16,J21,J23,J27:J33,J35,J37:J38,J40:J41").Value = "結果６８"
Range("K16,K21,K23,K27:K33,K35,K37:K38,K40:K41").Value = "結果６９"
Range("L16,L21,L23,L27:L33,L35,L37:L38,L40:L41").Value = "結果７０"
Range("M16:M33,M35:M41").Value = "結果７１"
Range("N16:N33,N35:N41").Value = "結果７２"
Range("O16:O41").Value = "結果７３"
Range("P16:P41").Value = "結果７４"
Range("X16:X41,Y42").Value = "結果７６"
Range("A43").Value = "■所見（その他特記事項）"
Range("A45").Value = "データ６"
Range("A47").Value = "■今後の予定"
Range("C48").Value = "データ７"
Range("L48").Value = "データ８"
Range("C49").Value = "データ９"
Range("L49").Value = "データ１０"
Range("A51").Value = "■〇〇"
Range("A56:A57").Value = "注意事項"
Rem 数式セルをまとめて処理
Range("B3,F3").FormulaR1C1Local = "=情報入力シートダミー!R[-1]C"
Range("J3").FormulaR1C1Local = "=CONCATENATE(情報入力シートダミー!R[-1]C[-3],"" "",情報入力シートダミー!R[-1]C[-1])"
Range("T3").FormulaR1C1Local = "=情報入力シートダミー!R[-1]C[-8]"
Rem 標準外書式セルをまとめて処理
Rem 塗りつぶしセルをまとめて処理
Range("A3,E3,Q3:S3,A5:AA9,A10:D41,S42:X43,A48:B49,H48:K49").Interior.ColorIndex = 20
Range("E10:H10,M10:P10,W10:AA12,E11:P11,E12:H12,M12:P12,E13:F13,M13:N13,U13:AA13").Interior.ColorIndex = 19
Range("E14:H15,M14:P15,W14:AA33,E16:P16,E17:H20,M17:P20,E21:P21,E22:H22,M22:P22").Interior.ColorIndex = 19
Range("E23:P23,E24:H26,M24:P26,E27:P33,E34:F34,O34:AA34,E35:P35,W35:AA40,E36:H36").Interior.ColorIndex = 19
Range("M36:P36,E37:P38,E39:H39,M39:P39,E40:P40,E41:AA41,Y42:AA43").Interior.ColorIndex = 19
Range("I10:L10,Q10:V12,I12:L12,G13:L13,O13:T13,I14:L15,Q14:V33").Interior.ColorIndex = 48
Range("I17:L20,I22:L22,I24:L26,G34:N34,Q35:V40,I36:L36,I39:L39").Interior.ColorIndex = 48
Rem 列幅をまとめて処理
Range("A1:A58").ColumnWidth = 3.56
Range("B1:B58").ColumnWidth = 13.44
Range("C1:C58").ColumnWidth = 16.11
Range("D1:D58").ColumnWidth = 4.67
Range("E1:E58").ColumnWidth = 4.89
Range("F1:F58,Y1:Y58").ColumnWidth = 3.44
Range("G1:X58").ColumnWidth = 1.89
Range("Z1:AA58").ColumnWidth = 3.22
Rem 行高さをまとめて処理
Range("A1:AA1,A4:AA4").RowHeight = 14.3
Range("A2:AA2,A44:AA44").RowHeight = 3.8
Range("A3:AA3").RowHeight = 19.5
Range("A5:AA5").RowHeight = 10.5
Range("A6:AA7,A17:AA17,A50:AA50,A56:AA56,A58:AA58").RowHeight = 9.6
Range("A8:AA8").RowHeight = 24
Range("A9:AA9").RowHeight = 33
Range("A10:AA16,A18:AA41,A47:AA49").RowHeight = 21
Range("A42:AA43,A45:AA46").RowHeight = 18.8
Range("A51:AA55").RowHeight = 18
Range("A57:AA57").RowHeight = 21.8
MsgBox "お題の作成が完了しました。"
End Sub
（f） 2019/02/19(火) 19:48
Private Sub SoulMan() Rem 結合状態を処理
Rem 数式セル以外をまとめて処理
Range("B2").Value = "管理者１"
Range("C2").Value = "管理名１"
Range("D2").Value = "管理名２"
Range("E2").Value = "管理名３"
Range("F2").Value = "管理名４"
Range("G2").Value = "管理名５"
Range("H2").Value = "管理名６"
Range("I2").Value = "管理名７"
Range("J2").Value = "管理名８"
Range("K2").Value = "管理名９"
Range("L2").Value = "管理名１０"
Range("B3").Value = "コード"
Range("C3").Value = 81
Range("D3").Value = 82
Range("E3").Value = 83
Range("F3").Value = 84
Range("G3").Value = 85
Range("H3").Value = 86
Range("I3").Value = 87
Range("J3").Value = 88
Range("K3").Value = 89
Range("L3").Value = 90
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理
Rem 塗りつぶしセルをまとめて処理
Range("B2:B3").Interior.ColorIndex = 24
Rem 列幅をまとめて処理
Range("A1:A4").ColumnWidth = 0.94
Range("B1:B4").ColumnWidth = 6.22
Range("C1:C4,L1:L4").ColumnWidth = 13.11
Range("D1:F4,I1:K4").ColumnWidth = 14.67
Range("G1:H4,M1:M4").ColumnWidth = 16.44
Rem 行高さをまとめて処理
Range("A1:M4").RowHeight = 10.8
MsgBox "お題の作成が完了しました。"
End Sub
（f） 2019/02/19(火) 19:49
Rem 結合状態を処理
Rem 数式セル以外をまとめて処理
Range("A1").Value = 1
Range("B1").Value = 2
Range("C1").Value = 3
Range("D1").Value = 4
Range("E1").Value = 5
Range("F1").Value = 6
Range("G1").Value = 7
Range("H1").Value = 8
Range("I1").Value = 9
Range("J1").Value = 10
Range("K1").Value = 11
Range("L1").Value = 12
Range("M1").Value = 13
Range("N1").Value = 14
Range("O1").Value = 15
Range("P1").Value = 16
Range("Q1").Value = 17
Range("R1").Value = 18
Range("S1").Value = 19
Range("T1").Value = 20
Range("U1").Value = 21
Range("V1").Value = 22
Range("W1").Value = 23
Range("X1").Value = 24
Range("Y1").Value = 25
Range("Z1").Value = 26
Range("AA1").Value = 27
Range("AB1").Value = 28
Range("AC1").Value = 29
Range("AD1").Value = 30
Range("AE1").Value = 31
Range("AF1").Value = 32
Range("AG1").Value = 33
Range("AH1").Value = 34
Range("AI1").Value = 35
Range("AJ1").Value = 36
Range("AK1").Value = 37
Range("AL1").Value = 38
Range("AM1").Value = 39
Range("AN1").Value = 40
Range("AO1").Value = 41
Range("AP1").Value = 42
Range("AQ1").Value = 43
Range("AR1").Value = 44
Range("AS1").Value = 45
Range("AT1").Value = 46
Range("AU1").Value = 47
Range("AV1").Value = 48
Range("AW1").Value = 49
Range("AX1").Value = 50
Range("AY1").Value = 51
Range("AZ1").Value = 52
Range("BA1").Value = 53
Range("BB1").Value = 54
Range("BC1").Value = 55
Range("BD1").Value = 56
Range("BE1").Value = 57
Range("BF1").Value = 58
Range("BG1").Value = 59
Range("BH1").Value = 60
Range("BI1").Value = 61
Range("BJ1").Value = 62
Range("BK1").Value = 63
Range("BL1").Value = 64
Range("BM1").Value = 65
Range("BN1").Value = 66
Range("BO1").Value = 67
Range("BP1").Value = 68
Range("BQ1").Value = 69
Range("BR1").Value = 70
Range("BS1").Value = 71
Range("BT1").Value = 72
Range("BU1").Value = 73
Range("BV1").Value = 74
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理
Range("AZ3").NumberFormatLocal = "0.0"
Rem 塗りつぶしセルをまとめて処理
Range("A1:B2,D1:E1,G1:H1,J1:K1,M1:N1,P1:Q1,S1:T1,V1:W1,Y1:Z1").Interior.ColorIndex = 35
Range("AB1:AC1,AE1:AF1,AH1:AI1,AK1:AL1,AN1:AO1,AQ1:AR1,AT1:AU1,AW1:AX1,AZ1:BA1").Interior.ColorIndex = 35
Range("BC1:BD1,BF1:BG1,BI1:BJ1,BL1:BM1,BO1:BP1,BR1:BS1,BU1:BV1,BQ2:BV2").Interior.ColorIndex = 35
Range("C1,F1,I1,L1,O1,R1,U1,X1,AA1").Interior.ColorIndex = 24
Range("AD1,AG1,AJ1,AM1,AP1,AS1,AV1,AY1,BB1").Interior.ColorIndex = 24
Range("BE1,BH1,BK1,BN1,BQ1,BT1,C2:BP2").Interior.ColorIndex = 24
Rem 列幅をまとめて処理
Range("A1:A3,AS1:AT3,BC1:BC3,BS1:BS3").ColumnWidth = 8.89
Range("B1:B3,BA1:BA3,BG1:BH3").ColumnWidth = 4
Range("C1:C3").ColumnWidth = 10.89
Range("D1:D3,T1:T3,V1:V3,Y1:Y3,AK1:AL3,AR1:AR3,BO1:BQ3").ColumnWidth = 7.22
Range("E1:E3").ColumnWidth = 12.33
Range("F1:G3").ColumnWidth = 16
Range("H1:H3,BE1:BE3").ColumnWidth = 8.22
Range("I1:I3,Z1:Z3,AM1:AN3,BB1:BB3").ColumnWidth = 10.56
Range("J1:J3").ColumnWidth = 19.89
Range("K1:K3,O1:O3,Q1:Q3").ColumnWidth = 10.22
Range("L1:L3,AO1:AP3,BI1:BK3").ColumnWidth = 5.56
Range("M1:M3").ColumnWidth = 6.44
Range("N1:N3,AW1:AW3").ColumnWidth = 6.67
Range("P1:P3").ColumnWidth = 7.11
Range("R1:R3,AB1:AD3").ColumnWidth = 11.33
Range("S1:S3,AQ1:AQ3").ColumnWidth = 4.89
Range("U1:U3").ColumnWidth = 11.44
Range("W1:W3").ColumnWidth = 13.44
Range("X1:X3").ColumnWidth = 14.22
Range("AA1:AA3").ColumnWidth = 9.56
Range("AE1:AF3").ColumnWidth = 11.56
Range("AG1:AH3").ColumnWidth = 11.89
Range("AI1:AI3,BD1:BD3").ColumnWidth = 13.56
Range("AJ1:AJ3").ColumnWidth = 9
Range("AU1:AV3").ColumnWidth = 9.33
Range("AX1:AX3,BU1:BV3").ColumnWidth = 12
Range("AY1:AY3").ColumnWidth = 5.67
Range("AZ1:AZ3").ColumnWidth = 4.11
Range("BF1:BF3,BR1:BR3").ColumnWidth = 4.67
Range("BL1:BL3").ColumnWidth = 19.67
Range("BM1:BM3").ColumnWidth = 9.44
Range("BN1:BN3").ColumnWidth = 5.11
Range("BT1:BT3").ColumnWidth = 12.22
Rem 行高さをまとめて処理
Range("A1:BV1").RowHeight = 16.2
Range("A2:BV2").RowHeight = 12
Range("A3:BV3").RowHeight = 22.5
MsgBox "お題の作成が完了しました。"
End Sub
（f） 2019/02/19(火) 19:51
ややこしい転記するとしては、Ｂ列にマスタ（管理）と情報入力シートＦ２に入力された管理者名を突合し、マスタ（管理シート）３行目の管理者コードを転記させるところです（以前書いたＧ２は誤りでＦ２セルが正です）。
以上がこちらのでーたになります。
お手数ですがご確認していただけないでしょうか。
私の方もネットで調べて、ひとつづつクリアしていこうと思います。
（f） 2019/02/19(火) 19:58
（隠居じーさん） 2019/02/19(火) 20:41
＞＞★３．マスタ（管理）： ＞＞ 列範囲：Ｃ〜Ｌ列 ＞＞ ３行名：管理者コード（Ｃ〜Ｌ列で全１０パターン） ＞＞7行目〜20行目：管理者名 の 7行目〜20行目：管理者名 とは何処のことでしょうか。 Ｂ２は管理者1となっていますが 項目名、"管理者" でしょうか。 管理者名から管理者コードを検索する対象は ２行目のＣ列〜Ｌ列との理解でよいですか。 以上、正解を教えて下さい。
（隠居じーさん） 2019/02/19(火) 23:22
こんばんは ＾＾ ブロック型（フォーム型？）の情報をデーターベース、スタイルに書き換えておられるのは わかるのですが。転記元、情報入力シート（60個）、検査シート（403個）、とも、データー個数と 転記先列数の数が合いません。 情報入力シート（Ａ〜Ｄ） ＝ 74 列 検査シート（Ａ〜Ｄ） ＝ 699 列 転記元セルアドレス〜転記先列アドレス、対応表を作成しておられるのでしたら 教えていただけますか。
省略されていた 転記部分のコードでも構いません。 情報入力シート、検査シート、双方分です。 その部分はそちらで対応、と言う事であれば結構です。
おやすみなさい。。。。ｚｚｚｚｚ
（隠居じーさん） 2019/02/20(水) 00:22
おはようございます。fです。
遅くまで申し訳ございません。
まず、管理者コードについてですが、
＞＞★３．マスタ（管理）：
＞＞ 列範囲：Ｃ〜Ｌ列
＞＞ ３行名：管理者コード（Ｃ〜Ｌ列で全１０パターン）
＞＞7行目〜20行目：管理者名
上記は間違いでした申し訳ございません。
正解は以下の通りです。
★３．マスタ（管理）：
列範囲：Ｃ〜Ｌ列
２行名：管理者名 （Ｃ〜Ｌ列で全１０パターン）
３行名：管理者コード（Ｃ〜Ｌ列で全１０パターン）
が正解で、マスタ２行目の管理者名と情報入力シートF2を照合し、その下の３行目の管理者コードを
情報入力シートの転記先シートと検査シートの転記先シートのB列に転記する処理が正解でございます。
ツールが動かなかったシートは数を減らした結果を貼り付けますのでお待ちくださいませ。
また、転記部分の省略していたコードを貼り付けたいと思います。
以上、よろしくお願いします。
（f） 2019/02/20(水) 09:46
おはようございます。＾＾ ↑ 了解いたしました。
昼間は何かと所要もあり。。。。 ← 言い訳 ＾＾； 頑張りますけど (￣▽￣；) しばし御猶予を m(_ _)m
（隠居じーさん） 2019/02/20(水) 10:05
すみません、、本当にありがとうございます。
■マスタ（都道府県）←本当は1964行まであります。コードはダミーです。
Private Sub SoulMan() Rem 結合状態を処理
Rem 数式セル以外をまとめて処理
Range("A1,D1").Value = "都道府県名" & Chr(10) & "（漢字）"
Range("C1").Value = "団体コード"
Range("E1").Value = "市区町村名" & Chr(10) & "（漢字）"
Range("F1").Value = "都道府県名" & Chr(10) & "（カナ）"
Range("G1").Value = "市区町村名" & Chr(10) & "（カナ）"
Range("C2").Value = "000011"
Range("D2:D191,A3").Value = "北海道"
Range("F2:F191").Value = "ﾎｯｶｲﾄﾞｳ"
Range("C3").Value = "000012"
Range("E3").Value = "札幌市"
Range("G3").Value = "ｻｯﾎﾟﾛｼ"
Range("A4,D192:D232").Value = "青森県"
Range("C4").Value = "000013"
Range("E4").Value = "札幌市中央区"
Range("G4").Value = "さっぽろしちゅうおうく"
Range("A5,D233:D266").Value = "岩手県"
Range("C5").Value = "000014"
Range("E5").Value = "札幌市北区"
Range("G5").Value = "さっぽろしきたく"
Range("A6,D267:D307").Value = "宮城県"
Range("C6").Value = "000015"
Range("E6").Value = "札幌市東区"
Range("G6").Value = "さっぽろしひがしく"
Range("A7,D308:D333").Value = "秋田県"
Range("C7").Value = "000016"
Range("E7").Value = "札幌市白石区"
Range("G7").Value = "さっぽろししろいしく"
Range("A8,D334:D369").Value = "山形県"
Range("C8").Value = "000017"
Range("E8").Value = "札幌市豊平区"
Range("G8").Value = "さっぽろしとよひらく"
Range("A9,D370:D429").Value = "福島県"
Range("C9").Value = "000018"
Range("E9").Value = "札幌市南区"
Range("G9").Value = "さっぽろしみなみく"
Range("A10,D430:D474").Value = "茨城県"
Range("C10").Value = "000019"
Range("E10").Value = "札幌市西区"
Range("G10").Value = "さっぽろしにしく"
Range("A11,D475:D500").Value = "栃木県"
Range("C11").Value = "000020"
Range("E11").Value = "札幌市厚別区"
Range("G11").Value = "さっぽろしあつべつく"
Range("A12,D501:D536").Value = "群馬県"
Range("C12").Value = "000021"
Range("E12").Value = "札幌市手稲区"
Range("G12").Value = "さっぽろしていねく"
Range("A13,D537:D610").Value = "埼玉県"
Range("C13").Value = "000022"
Range("E13").Value = "札幌市清田区"
Range("G13").Value = "さっぽろしきよたく"
Range("A14,D611:D671").Value = "千葉県"
Range("C14").Value = "000023"
Range("E14").Value = "函館市"
Range("G14").Value = "ﾊｺﾀﾞﾃｼ"
Range("A15,D672:D734").Value = "東京都"
Range("C15").Value = "000024"
Range("E15").Value = "小樽市"
Range("G15").Value = "ｵﾀﾙｼ"
Range("A16,D735:D796").Value = "神奈川県"
Range("C16").Value = "000025"
Range("E16").Value = "旭川市"
Range("G16").Value = "ｱｻﾋｶﾜｼ"
Range("A17,D797:D835").Value = "新潟県"
Range("C17").Value = "000026"
Range("E17").Value = "室蘭市"
Range("G17").Value = "ﾑﾛﾗﾝｼ"
Range("A18,D836:D851").Value = "富山県"
Range("C18").Value = "000027"
Range("E18").Value = "釧路市"
Range("G18").Value = "ｸｼﾛｼ"
Range("A19,D852:D871").Value = "石川県"
Range("C19").Value = "000028"
Range("E19").Value = "帯広市"
Range("G19").Value = "ｵﾋﾞﾋﾛｼ"
Range("A20,D872:D889").Value = "福井県"
Range("C20").Value = "000029"
Range("E20").Value = "北見市"
Range("G20").Value = "ｷﾀﾐｼ"
Range("A21,D890:D917").Value = "山梨県"
Range("C21").Value = "000030"
Range("E21").Value = "夕張市"
Range("G21").Value = "ﾕｳﾊﾞﾘｼ"
Range("A22,D918:D995").Value = "長野県"
Range("C22").Value = "000031"
Range("E22").Value = "岩見沢市"
Range("G22").Value = "ｲﾜﾐｻﾞﾜｼ"
Range("A23,D996:D1038").Value = "岐阜県"
Range("C23").Value = "000032"
Range("E23").Value = "網走市"
Range("G23").Value = "ｱﾊﾞｼﾘｼ"
Range("A24,D1039:D1084").Value = "静岡県"
Range("C24").Value = "000033"
Range("E24").Value = "留萌市"
Range("G24").Value = "ﾙﾓｲｼ"
Range("A25,D1085:D1155").Value = "愛知県"
Range("C25").Value = "000034"
Range("E25").Value = "苫小牧市"
Range("G25").Value = "ﾄﾏｺﾏｲｼ"
Range("A26,D1156:D1185").Value = "三重県"
Range("C26").Value = "000035"
Range("E26").Value = "稚内市"
Range("G26").Value = "ﾜｯｶﾅｲｼ"
Range("A27,D1186:D1205").Value = "滋賀県"
Range("C27").Value = "000036"
Range("E27").Value = "美唄市"
Range("G27").Value = "ﾋﾞﾊﾞｲｼ"
Range("A28,D1206:D1243").Value = "京都府"
Range("C28").Value = "000037"
Range("E28").Value = "芦別市"
Range("G28").Value = "ｱｼﾍﾞﾂｼ"
Range("A29,D1244:D1318").Value = "大阪府"
Range("C29").Value = "000038"
Range("E29").Value = "江別市"
Range("G29").Value = "ｴﾍﾞﾂｼ"
Range("A30,D1319:D1369").Value = "兵庫県"
Range("C30").Value = "000039"
Range("E30").Value = "赤平市"
Range("G30").Value = "ｱｶﾋﾞﾗｼ"
Range("A31,D1370:D1409").Value = "奈良県"
Range("C31").Value = "000040"
Range("E31").Value = "紋別市"
Range("G31").Value = "ﾓﾝﾍﾞﾂｼ"
Range("A32,D1410:D1440").Value = "和歌山県"
Range("C32").Value = "000041"
Range("E32").Value = "士別市"
Range("G32").Value = "ｼﾍﾞﾂｼ"
Range("A33").Value = "鳥取県"
Range("C33").Value = "000042"
Range("E33").Value = "名寄市"
Range("G33").Value = "ﾅﾖﾛｼ"
Range("A34").Value = "島根県"
Range("C34").Value = "000043"
Range("E34").Value = "三笠市"
Range("G34").Value = "ﾐｶｻｼ"
Range("A35").Value = "岡山県"
Range("C35").Value = "000044"
Range("E35").Value = "根室市"
Range("G35").Value = "ﾈﾑﾛｼ"
Range("A36").Value = "広島県"
Range("C36").Value = "000045"
Range("E36").Value = "千歳市"
Range("G36").Value = "ﾁﾄｾｼ"
Range("A37").Value = "山口県"
Range("C37").Value = "000046"
Range("E37").Value = "滝川市"
Range("G37").Value = "ﾀｷｶﾜｼ"
Range("A38").Value = "徳島県"
Range("C38").Value = "000047"
Range("E38").Value = "砂川市"
Range("G38").Value = "ｽﾅｶﾞﾜｼ"
Range("A39").Value = "香川県"
Range("C39").Value = "000048"
Range("E39").Value = "歌志内市"
Range("G39").Value = "ｳﾀｼﾅｲｼ"
Range("A40").Value = "愛媛県"
Range("C40").Value = "000049"
Range("E40").Value = "深川市"
Range("G40").Value = "ﾌｶｶﾞﾜｼ"
Range("A41").Value = "高知県"
Range("C41").Value = "000050"
Range("E41").Value = "富良野市"
Range("G41").Value = "ﾌﾗﾉｼ"
Range("A42").Value = "福岡県"
Range("C42").Value = "000051"
Range("E42").Value = "登別市"
Range("G42").Value = "ﾉﾎﾞﾘﾍﾞﾂｼ"
Range("A43").Value = "佐賀県"
Range("C43").Value = "000052"
Range("E43").Value = "恵庭市"
Range("G43").Value = "ｴﾆﾜｼ"
Range("A44").Value = "長崎県"
Range("C44").Value = "000053"
Range("E44,E382").Value = "伊達市"
Range("G44,G382").Value = "ﾀﾞﾃｼ"
Range("A45").Value = "熊本県"
Range("C45").Value = "000054"
Range("E45").Value = "北広島市"
Range("G45").Value = "ｷﾀﾋﾛｼﾏｼ"
Range("A46").Value = "大分県"
Range("C46").Value = "000055"
Range("E46").Value = "石狩市"
Range("G46").Value = "ｲｼｶﾘｼ"
Range("A47").Value = "宮崎県"
Range("C47").Value = "000056"
Range("E47").Value = "北斗市"
Range("G47,G898").Value = "ﾎｸﾄｼ"
Range("A48").Value = "鹿児島県"
Range("C48").Value = "000057"
Range("E48").Value = "当別町"
Range("G48").Value = "ﾄｳﾍﾞﾂﾁｮｳ"
Range("A49").Value = "沖縄県"
Range("C49").Value = "000058"
Range("E49").Value = "新篠津村"
Range("G49").Value = "ｼﾝｼﾉﾂﾑﾗ"
Range("C50").Value = "000059"
Range("E50").Value = "松前町"
Range("G50").Value = "ﾏﾂﾏｴﾁｮｳ"
Range("C51").Value = "000060"
Range("E51").Value = "福島町"
Range("G51").Value = "ﾌｸｼﾏﾁｮｳ"
Range("C52").Value = "000061"
Range("E52").Value = "知内町"
Range("G52").Value = "ｼﾘｳﾁﾁｮｳ"
Range("C53").Value = "000062"
Range("E53").Value = "木古内町"
Range("G53").Value = "ｷｺﾅｲﾁｮｳ"
Range("C54").Value = "000063"
Range("E54").Value = "七飯町"
Range("G54").Value = "ﾅﾅｴﾁｮｳ"
Range("C55").Value = "000064"
Range("E55").Value = "鹿部町"
Range("G55").Value = "ｼｶﾍﾞﾁｮｳ"
Range("C56").Value = "000065"
Range("E56,E1084").Value = "森町"
Range("G56,G1084").Value = "ﾓﾘﾏﾁ"
Range("C57").Value = "000066"
Range("E57").Value = "八雲町"
Range("G57").Value = "ﾔｸﾓﾁｮｳ"
Range("C58").Value = "000067"
Range("E58").Value = "長万部町"
Range("G58").Value = "ｵｼｬﾏﾝﾍﾞﾁｮｳ"
Range("C59").Value = "000068"
Range("E59").Value = "江差町"
Range("G59,G128").Value = "ｴｻｼﾁｮｳ"
Range("C60").Value = "000069"
Range("E60").Value = "上ノ国町"
Range("G60").Value = "ｶﾐﾉｸﾆﾁｮｳ"
Range("C61").Value = "000070"
Range("E61").Value = "厚沢部町"
Range("G61").Value = "ｱｯｻﾌﾞﾁｮｳ"
Range("C62").Value = "000071"
Range("E62").Value = "乙部町"
Range("G62").Value = "ｵﾄﾍﾞﾁｮｳ"
Range("C63").Value = "000072"
Range("E63").Value = "奥尻町"
Range("G63").Value = "ｵｸｼﾘﾁｮｳ"
Range("C64").Value = "000073"
Range("E64").Value = "今金町"
Range("G64").Value = "ｲﾏｶﾈﾁｮｳ"
Range("C65").Value = "000074"
Range("E65").Value = "せたな町"
Range("G65").Value = "ｾﾀﾅﾁｮｳ"
Range("C66").Value = "000075"
Range("E66").Value = "島牧村"
Range("G66").Value = "ｼﾏﾏｷﾑﾗ"
Range("C67").Value = "000076"
Range("E67").Value = "寿都町"
Range("G67").Value = "ｽｯﾂﾁｮｳ"
Range("C68").Value = "000077"
Range("E68").Value = "黒松内町"
Range("G68").Value = "ｸﾛﾏﾂﾅｲﾁｮｳ"
Range("C69").Value = "000078"
Range("E69").Value = "蘭越町"
Range("G69").Value = "ﾗﾝｺｼﾁｮｳ"
Range("C70").Value = "000079"
Range("E70").Value = "ニセコ町"
Range("G70").Value = "ﾆｾｺﾁｮｳ"
Range("C71").Value = "000080"
Range("E71").Value = "真狩村"
Range("G71").Value = "ﾏｯｶﾘﾑﾗ"
Range("C72").Value = "000081"
Range("E72").Value = "留寿都村"
Range("G72").Value = "ﾙｽﾂﾑﾗ"
Range("C73").Value = "000082"
Range("E73").Value = "喜茂別町"
Range("G73").Value = "ｷﾓﾍﾞﾂﾁｮｳ"
Range("C74").Value = "000083"
Range("E74").Value = "京極町"
Range("G74").Value = "ｷｮｳｺﾞｸﾁｮｳ"
Range("C75").Value = "000084"
Range("E75").Value = "倶知安町"
Range("G75").Value = "ｸｯﾁｬﾝﾁｮｳ"
Range("C76").Value = "000085"
Range("E76").Value = "共和町"
Range("G76").Value = "ｷｮｳﾜﾁｮｳ"
Range("C77").Value = "000086"
Range("E77").Value = "岩内町"
Range("G77").Value = "ｲﾜﾅｲﾁｮｳ"
Range("C78").Value = "000087"
Range("E78").Value = "泊村"
Range("G78").Value = "ﾄﾏﾘﾑﾗ"
Range("C79").Value = "000088"
Range("E79").Value = "神恵内村"
Range("G79").Value = "ｶﾓｴﾅｲﾑﾗ"
Range("C80").Value = "000089"
Range("E80").Value = "積丹町"
Range("G80").Value = "ｼｬｺﾀﾝﾁｮｳ"
Range("C81").Value = "000090"
Range("E81").Value = "古平町"
Range("G81").Value = "ﾌﾙﾋﾞﾗﾁｮｳ"
Range("C82").Value = "000091"
Range("E82").Value = "仁木町"
Range("G82").Value = "ﾆｷﾁｮｳ"
Range("C83").Value = "000092"
Range("E83").Value = "余市町"
Range("G83").Value = "ﾖｲﾁﾁｮｳ"
Range("C84").Value = "000093"
Range("E84").Value = "赤井川村"
Range("G84").Value = "ｱｶｲｶﾞﾜﾑﾗ"
Range("C85").Value = "000094"
Range("E85").Value = "南幌町"
Range("G85").Value = "ﾅﾝﾎﾟﾛﾁｮｳ"
Range("C86").Value = "000095"
Range("E86").Value = "奈井江町"
Range("G86").Value = "ﾅｲｴﾁｮｳ"
Range("C87").Value = "000096"
Range("E87").Value = "上砂川町"
Range("G87").Value = "ｶﾐｽﾅｶﾞﾜﾁｮｳ"
Range("C88").Value = "000097"
Range("E88").Value = "由仁町"
Range("G88").Value = "ﾕﾆﾁｮｳ"
Range("C89").Value = "000098"
Range("E89").Value = "長沼町"
Range("G89").Value = "ﾅｶﾞﾇﾏﾁｮｳ"
Range("C90").Value = "000099"
Range("E90").Value = "栗山町"
Range("G90").Value = "ｸﾘﾔﾏﾁｮｳ"
Range("C91").Value = "000100"
Range("E91").Value = "月形町"
Range("G91").Value = "ﾂｷｶﾞﾀﾁｮｳ"
Range("C92").Value = "000101"
Range("E92").Value = "浦臼町"
Range("G92").Value = "ｳﾗｳｽﾁｮｳ"
Range("C93").Value = "000102"
Range("E93").Value = "新十津川町"
Range("G93").Value = "ｼﾝﾄﾂｶﾜﾁｮｳ"
Range("C94").Value = "000103"
Range("E94").Value = "妹背牛町"
Range("G94").Value = "ﾓｾｳｼﾁｮｳ"
Range("C95").Value = "000104"
Range("E95").Value = "秩父別町"
Range("G95").Value = "ﾁｯﾌﾟﾍﾞﾂﾁｮｳ"
Range("C96").Value = "000105"
Range("E96").Value = "雨竜町"
Range("G96").Value = "ｳﾘｭｳﾁｮｳ"
Range("C97").Value = "000106"
Range("E97").Value = "北竜町"
Range("G97").Value = "ﾎｸﾘｭｳﾁｮｳ"
Range("C98").Value = "000107"
Range("E98").Value = "沼田町"
Range("G98").Value = "ﾇﾏﾀﾁｮｳ"
Range("C99").Value = "000108"
Range("E99").Value = "鷹栖町"
Range("G99").Value = "ﾀｶｽﾁｮｳ"
Range("C100").Value = "000109"
Range("E100").Value = "東神楽町"
Range("G100").Value = "ﾋｶﾞｼｶｸﾞﾗﾁｮｳ"
Range("C101").Value = "000110"
Range("E101").Value = "当麻町"
Range("G101").Value = "ﾄｳﾏﾁｮｳ"
Range("C102").Value = "000111"
Range("E102").Value = "比布町"
Range("G102").Value = "ﾋﾟｯﾌﾟﾁｮｳ"
Range("C103").Value = "000112"
Range("E103").Value = "愛別町"
Range("G103").Value = "ｱｲﾍﾞﾂﾁｮｳ"
Range("C104").Value = "000113"
Range("E104").Value = "上川町"
Range("G104,G1364").Value = "ｶﾐｶﾜﾁｮｳ"
Range("C105").Value = "000114"
Range("E105").Value = "東川町"
Range("G105").Value = "ﾋｶﾞｼｶﾜﾁｮｳ"
Range("C106").Value = "000115"
Range("E106").Value = "美瑛町"
Range("G106").Value = "ﾋﾞｴｲﾁｮｳ"
Range("C107").Value = "000116"
Range("E107").Value = "上富良野町"
Range("G107").Value = "ｶﾐﾌﾗﾉﾁｮｳ"
Range("C108").Value = "000117"
Range("E108").Value = "中富良野町"
Range("G108").Value = "ﾅｶﾌﾗﾉﾁｮｳ"
Range("C109").Value = "000118"
Range("E109").Value = "南富良野町"
Range("G109").Value = "ﾐﾅﾐﾌﾗﾉﾁｮｳ"
Range("C110").Value = "000119"
Range("E110").Value = "占冠村"
Range("G110").Value = "ｼﾑｶｯﾌﾟﾑﾗ"
Range("C111").Value = "000120"
Range("E111").Value = "和寒町"
Range("G111").Value = "ﾜｯｻﾑﾁｮｳ"
Range("C112").Value = "000121"
Range("E112").Value = "剣淵町"
Range("G112").Value = "ｹﾝﾌﾞﾁﾁｮｳ"
Range("C113").Value = "000122"
Range("E113").Value = "下川町"
Range("G113").Value = "ｼﾓｶﾜﾁｮｳ"
Range("C114").Value = "000123"
Range("E114").Value = "美深町"
Range("G114").Value = "ﾋﾞﾌｶﾁｮｳ"
Range("C115").Value = "000124"
Range("E115").Value = "音威子府村"
Range("G115").Value = "ｵﾄｲﾈｯﾌﾟﾑﾗ"
Range("C116").Value = "000125"
Range("E116").Value = "中川町"
Range("G116").Value = "ﾅｶｶﾞﾜﾁｮｳ"
Range("C117").Value = "000126"
Range("E117").Value = "幌加内町"
Range("G117").Value = "ﾎﾛｶﾅｲﾁｮｳ"
Range("C118").Value = "000127"
Range("E118").Value = "増毛町"
Range("G118").Value = "ﾏｼｹﾁｮｳ"
Range("C119").Value = "000128"
Range("E119").Value = "小平町"
Range("G119").Value = "ｵﾋﾞﾗﾁｮｳ"
Range("C120").Value = "000129"
Range("E120").Value = "苫前町"
Range("G120").Value = "ﾄﾏﾏｴﾁｮｳ"
Range("C121").Value = "000130"
Range("E121").Value = "羽幌町"
Range("G121").Value = "ﾊﾎﾞﾛﾁｮｳ"
Range("C122").Value = "000131"
Range("E122").Value = "初山別村"
Range("G122").Value = "ｼｮｻﾝﾍﾞﾂﾑﾗ"
Range("C123").Value = "000132"
Range("E123").Value = "遠別町"
Range("G123").Value = "ｴﾝﾍﾞﾂﾁｮｳ"
Range("C124").Value = "000133"
Range("E124").Value = "天塩町"
Range("G124").Value = "ﾃｼｵﾁｮｳ"
Range("C125").Value = "000134"
Range("E125").Value = "猿払村"
Range("G125").Value = "ｻﾙﾌﾂﾑﾗ"
Range("C126").Value = "000135"
Range("E126").Value = "浜頓別町"
Range("G126").Value = "ﾊﾏﾄﾝﾍﾞﾂﾁｮｳ"
Range("C127").Value = "000136"
Range("E127").Value = "中頓別町"
Range("G127").Value = "ﾅｶﾄﾝﾍﾞﾂﾁｮｳ"
Range("C128").Value = "000137"
Range("E128").Value = "枝幸町"
Range("C129").Value = "000138"
Range("E129").Value = "豊富町"
Range("G129").Value = "ﾄﾖﾄﾐﾁｮｳ"
Range("C130").Value = "000139"
Range("E130").Value = "礼文町"
Range("G130").Value = "ﾚﾌﾞﾝﾁｮｳ"
Range("C131").Value = "000140"
Range("E131").Value = "利尻町"
Range("G131").Value = "ﾘｼﾘﾁｮｳ"
Range("C132").Value = "000141"
Range("E132").Value = "利尻富士町"
Range("G132").Value = "ﾘｼﾘﾌｼﾞﾁｮｳ"
Range("C133").Value = "000142"
Range("E133").Value = "幌延町"
Range("G133").Value = "ﾎﾛﾉﾍﾞﾁｮｳ"
Range("C134").Value = "000143"
Range("E134").Value = "美幌町"
Range("G134").Value = "ﾋﾞﾎﾛﾁｮｳ"
Range("C135").Value = "000144"
Range("E135").Value = "津別町"
Range("G135").Value = "ﾂﾍﾞﾂﾁｮｳ"
Range("C136").Value = "000145"
Range("E136").Value = "斜里町"
Range("G136").Value = "ｼｬﾘﾁｮｳ"
Range("C137").Value = "000146"
Range("E137").Value = "清里町"
Range("G137").Value = "ｷﾖｻﾄﾁｮｳ"
Range("C138").Value = "000147"
Range("E138").Value = "小清水町"
Range("G138").Value = "ｺｼﾐｽﾞﾁｮｳ"
Range("C139").Value = "000148"
Range("E139").Value = "訓子府町"
Range("G139").Value = "ｸﾝﾈｯﾌﾟﾁｮｳ"
Range("C140").Value = "000149"
Range("E140").Value = "置戸町"
Range("G140").Value = "ｵｹﾄﾁｮｳ"
Range("C141").Value = "000150"
Range("E141").Value = "佐呂間町"
Range("G141").Value = "ｻﾛﾏﾁｮｳ"
Range("C142").Value = "000151"
Range("E142").Value = "遠軽町"
Range("G142").Value = "ｴﾝｶﾞﾙﾁｮｳ"
Range("C143").Value = "000152"
Range("E143").Value = "湧別町"
Range("G143").Value = "ﾕｳﾍﾞﾂﾁｮｳ"
Range("C144").Value = "000153"
Range("E144").Value = "滝上町"
Range("G144").Value = "ﾀｷﾉｳｴﾁｮｳ"
Range("C145").Value = "000154"
Range("E145").Value = "興部町"
Range("G145").Value = "ｵｺｯﾍﾟﾁｮｳ"
Range("C146").Value = "000155"
Range("E146").Value = "西興部村"
Range("G146").Value = "ﾆｼｵｺｯﾍﾟﾑﾗ"
Range("C147").Value = "000156"
Range("E147").Value = "雄武町"
Range("G147").Value = "ｵｳﾑﾁｮｳ"
Range("C148").Value = "000157"
Range("E148").Value = "大空町"
Range("G148").Value = "ｵｵｿﾞﾗﾁｮｳ"
Range("C149").Value = "000158"
Range("E149").Value = "豊浦町"
Range("G149").Value = "ﾄﾖｳﾗﾁｮｳ"
Range("C150").Value = "000159"
Range("E150").Value = "壮瞥町"
Range("G150").Value = "ｿｳﾍﾞﾂﾁｮｳ"
Range("C151").Value = "000160"
Range("E151").Value = "白老町"
Range("G151").Value = "ｼﾗｵｲﾁｮｳ"
Range("C152").Value = "000161"
Range("E152").Value = "厚真町"
Range("G152").Value = "ｱﾂﾏﾁｮｳ"
Range("C153").Value = "000162"
Range("E153").Value = "洞爺湖町"
Range("G153").Value = "ﾄｳﾔｺﾁｮｳ"
Range("C154").Value = "000163"
Range("E154").Value = "安平町"
Range("G154").Value = "ｱﾋﾞﾗﾁｮｳ"
Range("C155").Value = "000164"
Range("E155").Value = "むかわ町"
Range("G155").Value = "ﾑｶﾜﾁｮｳ"
Range("C156").Value = "000165"
Range("E156,E1428").Value = "日高町"
Range("G156,G1428").Value = "ﾋﾀﾞｶﾁｮｳ"
Range("C157").Value = "000166"
Range("E157").Value = "平取町"
Range("G157").Value = "ﾋﾞﾗﾄﾘﾁｮｳ"
Range("C158").Value = "000167"
Range("E158").Value = "新冠町"
Range("G158").Value = "ﾆｲｶｯﾌﾟﾁｮｳ"
Range("C159").Value = "000168"
Range("E159").Value = "浦河町"
Range("G159").Value = "ｳﾗｶﾜﾁｮｳ"
Range("C160").Value = "000169"
Range("E160").Value = "様似町"
Range("G160").Value = "ｻﾏﾆﾁｮｳ"
Range("C161").Value = "000170"
Range("E161").Value = "えりも町"
Range("G161").Value = "ｴﾘﾓﾁｮｳ"
Range("C162").Value = "000171"
Range("E162").Value = "新ひだか町"
Range("G162").Value = "ｼﾝﾋﾀﾞｶﾁｮｳ"
Range("C163").Value = "000172"
Range("E163").Value = "音更町"
Range("G163").Value = "ｵﾄﾌｹﾁｮｳ"
Range("C164").Value = "000173"
Range("E164").Value = "士幌町"
Range("G164").Value = "ｼﾎﾛﾁｮｳ"
Range("C165").Value = "000174"
Range("E165").Value = "上士幌町"
Range("G165").Value = "ｶﾐｼﾎﾛﾁｮｳ"
Range("C166").Value = "000175"
Range("E166").Value = "鹿追町"
Range("G166").Value = "ｼｶｵｲﾁｮｳ"
Range("C167").Value = "000176"
Range("E167").Value = "新得町"
Range("G167").Value = "ｼﾝﾄｸﾁｮｳ"
Range("C168").Value = "000177"
Range("E168,E1079").Value = "清水町"
Range("G168,G1079").Value = "ｼﾐｽﾞﾁｮｳ"
Range("C169").Value = "000178"
Range("E169").Value = "芽室町"
Range("G169").Value = "ﾒﾑﾛﾁｮｳ"
Range("C170").Value = "000179"
Range("E170").Value = "中札内村"
Range("G170").Value = "ﾅｶｻﾂﾅｲﾑﾗ"
Range("C171").Value = "000180"
Range("E171").Value = "更別村"
Range("G171").Value = "ｻﾗﾍﾞﾂﾑﾗ"
Range("C172").Value = "000181"
Range("E172").Value = "大樹町"
Range("G172,G1181").Value = "ﾀｲｷﾁｮｳ"
Range("C173").Value = "000182"
Range("E173").Value = "広尾町"
Range("G173").Value = "ﾋﾛｵﾁｮｳ"
Range("C174").Value = "000183"
Range("E174").Value = "幕別町"
Range("G174").Value = "ﾏｸﾍﾞﾂﾁｮｳ"
Range("C175").Value = "000184"
Range("E175,E883,E982,E1028").Value = "池田町"
Range("G175,G883,G1028").Value = "ｲｹﾀﾞﾁｮｳ"
Range("C176").Value = "000185"
Range("E176").Value = "豊頃町"
Range("G176").Value = "ﾄﾖｺﾛﾁｮｳ"
Range("C177").Value = "000186"
Range("E177").Value = "本別町"
Range("G177").Value = "ﾎﾝﾍﾞﾂﾁｮｳ"
Range("C178").Value = "000187"
Range("E178").Value = "足寄町"
Range("G178").Value = "ｱｼｮﾛﾁｮｳ"
Range("C179").Value = "000188"
Range("E179").Value = "陸別町"
Range("G179").Value = "ﾘｸﾍﾞﾂﾁｮｳ"
Range("C180").Value = "000189"
Range("E180").Value = "浦幌町"
Range("G180").Value = "ｳﾗﾎﾛﾁｮｳ"
Range("C181").Value = "000190"
Range("E181").Value = "釧路町"
Range("G181").Value = "ｸｼﾛﾁｮｳ"
Range("C182").Value = "000191"
Range("E182").Value = "厚岸町"
Range("G182").Value = "ｱｯｹｼﾁｮｳ"
Range("C183").Value = "000192"
Range("E183").Value = "浜中町"
Range("G183").Value = "ﾊﾏﾅｶﾁｮｳ"
Range("C184").Value = "000193"
Range("E184").Value = "標茶町"
Range("G184").Value = "ｼﾍﾞﾁｬﾁｮｳ"
Range("C185").Value = "000194"
Range("E185").Value = "弟子屈町"
Range("G185").Value = "ﾃｼｶｶﾞﾁｮｳ"
Range("C186").Value = "000195"
Range("E186").Value = "鶴居村"
Range("G186").Value = "ﾂﾙｲﾑﾗ"
Range("C187").Value = "000196"
Range("E187").Value = "白糠町"
Range("G187").Value = "ｼﾗﾇｶﾁｮｳ"
Range("C188").Value = "000197"
Range("E188").Value = "別海町"
Range("G188").Value = "ﾍﾞﾂｶｲﾁｮｳ"
Range("C189").Value = "000198"
Range("E189").Value = "中標津町"
Range("G189").Value = "ﾅｶｼﾍﾞﾂﾁｮｳ"
Range("C190").Value = "000199"
Range("E190").Value = "標津町"
Range("G190").Value = "ｼﾍﾞﾂﾁｮｳ"
Range("C191").Value = "000200"
Range("E191").Value = "羅臼町"
Range("G191").Value = "ﾗｳｽﾁｮｳ"
Range("C192").Value = "000201"
Range("F192:F232").Value = "ｱｵﾓﾘｹﾝ"
Range("C193").Value = "000202"
Range("E193").Value = "青森市"
Range("G193").Value = "ｱｵﾓﾘｼ"
Range("C194").Value = "000203"
Range("E194").Value = "弘前市"
Range("G194").Value = "ﾋﾛｻｷｼ"
Range("C195").Value = "000204"
Range("E195").Value = "八戸市"
Range("G195").Value = "ﾊﾁﾉﾍｼ"
Range("C196").Value = "000205"
Range("E196").Value = "黒石市"
Range("G196").Value = "ｸﾛｲｼｼ"
Range("C197").Value = "000206"
Range("E197").Value = "五所川原市"
Range("G197").Value = "ｺﾞｼｮｶﾞﾜﾗｼ"
Range("C198").Value = "000207"
Range("E198").Value = "十和田市"
Range("G198").Value = "ﾄﾜﾀﾞｼ"
Range("C199").Value = "000208"
Range("E199").Value = "三沢市"
Range("G199").Value = "ﾐｻﾜｼ"
Range("C200").Value = "000209"
Range("E200").Value = "むつ市"
Range("G200").Value = "ﾑﾂｼ"
Range("C201").Value = "000210"
Range("E201").Value = "つがる市"
Range("G201").Value = "ﾂｶﾞﾙｼ"
Range("C202").Value = "000211"
Range("E202").Value = "平川市"
Range("G202").Value = "ﾋﾗｶﾜｼ"
Range("C203").Value = "000212"
Range("E203").Value = "平内町"
Range("G203").Value = "ﾋﾗﾅｲﾏﾁ"
Range("C204").Value = "000213"
Range("E204").Value = "今別町"
Range("G204").Value = "ｲﾏﾍﾞﾂﾏﾁ"
Range("C205").Value = "000214"
Range("E205").Value = "蓬田村"
Range("G205").Value = "ﾖﾓｷﾞﾀﾑﾗ"
Range("C206").Value = "000215"
Range("E206").Value = "外ヶ浜町"
Range("G206").Value = "ｿﾄｶﾞﾊﾏﾏﾁ"
Range("C207").Value = "000216"
Range("E207").Value = "鰺ヶ沢町"
Range("G207").Value = "ｱｼﾞｶﾞｻﾜﾏﾁ"
Range("C208").Value = "000217"
Range("E208").Value = "深浦町"
Range("G208").Value = "ﾌｶｳﾗﾏﾁ"
Range("C209").Value = "000218"
Range("E209").Value = "西目屋村"
Range("G209").Value = "ﾆｼﾒﾔﾑﾗ"
Range("C210").Value = "000219"
Range("E210").Value = "藤崎町"
Range("G210").Value = "ﾌｼﾞｻｷﾏﾁ"
Range("C211").Value = "000220"
Range("E211").Value = "大鰐町"
Range("G211").Value = "ｵｵﾜﾆﾏﾁ"
Range("C212").Value = "000221"
Range("E212").Value = "田舎館村"
Range("G212").Value = "ｲﾅｶﾀﾞﾃﾑﾗ"
Range("C213").Value = "000222"
Range("E213").Value = "板柳町"
Range("G213").Value = "ｲﾀﾔﾅｷﾞﾏﾁ"
Range("C214").Value = "000223"
Range("E214").Value = "鶴田町"
Range("G214").Value = "ﾂﾙﾀﾏﾁ"
Range("C215").Value = "000224"
Range("E215").Value = "中泊町"
Range("G215").Value = "ﾅｶﾄﾞﾏﾘﾏﾁ"
Range("C216").Value = "000225"
Range("E216").Value = "野辺地町"
Range("G216").Value = "ﾉﾍｼﾞﾏﾁ"
Range("C217").Value = "000226"
Range("E217").Value = "七戸町"
Range("G217").Value = "ｼﾁﾉﾍﾏﾁ"
Range("C218").Value = "000227"
Range("E218").Value = "六戸町"
Range("G218").Value = "ﾛｸﾉﾍﾏﾁ"
Range("C219").Value = "000228"
Range("E219").Value = "横浜町"
Range("G219").Value = "ﾖｺﾊﾏﾏﾁ"
Range("C220").Value = "000229"
Range("E220").Value = "東北町"
Range("G220").Value = "ﾄｳﾎｸﾏﾁ"
Range("C221").Value = "000230"
Range("E221").Value = "六ヶ所村"
Range("G221").Value = "ﾛｯｶｼｮﾑﾗ"
Range("C222").Value = "000231"
Range("E222").Value = "おいらせ町"
Range("G222").Value = "ｵｲﾗｾﾁｮｳ"
Range("C223").Value = "000232"
Range("E223").Value = "大間町"
Range("G223").Value = "ｵｵﾏﾏﾁ"
Range("C224").Value = "000233"
Range("E224").Value = "東通村"
Range("G224").Value = "ﾋｶﾞｼﾄﾞｵﾘﾑﾗ"
Range("C225").Value = "000234"
Range("E225").Value = "風間浦村"
Range("G225").Value = "ｶｻﾞﾏｳﾗﾑﾗ"
Range("C226").Value = "000235"
Range("E226").Value = "佐井村"
Range("G226").Value = "ｻｲﾑﾗ"
Range("C227").Value = "000236"
Range("E227").Value = "三戸町"
Range("G227").Value = "ｻﾝﾉﾍﾏﾁ"
Range("C228").Value = "000237"
Range("E228").Value = "五戸町"
Range("G228").Value = "ｺﾞﾉﾍﾏﾁ"
Range("C229").Value = "000238"
Range("E229").Value = "田子町"
Range("G229").Value = "ﾀｯｺﾏﾁ"
Range("C230").Value = "000239"
Range("E230,E907").Value = "南部町"
Range("G230,G907").Value = "ﾅﾝﾌﾞﾁｮｳ"
Range("C231").Value = "000240"
Range("E231").Value = "階上町"
Range("G231").Value = "ﾊｼｶﾐﾁｮｳ"
Range("C232").Value = "000241"
Range("E232").Value = "新郷村"
Range("G232").Value = "ｼﾝｺﾞｳﾑﾗ"
Range("C233").Value = "000242"
Range("F233:F266").Value = "ｲﾜﾃｹﾝ"
Range("C234").Value = "000243"
Range("E234").Value = "盛岡市"
Range("G234").Value = "ﾓﾘｵｶｼ"
Range("C235").Value = "000244"
Range("E235").Value = "宮古市"
Range("G235").Value = "ﾐﾔｺｼ"
Range("C236").Value = "000245"
Range("E236").Value = "大船渡市"
Range("G236").Value = "ｵｵﾌﾅﾄｼ"
Range("C237").Value = "000246"
Range("E237").Value = "花巻市"
Range("G237").Value = "ﾊﾅﾏｷｼ"
Range("C238").Value = "000247"
Range("E238").Value = "北上市"
Range("G238").Value = "ｷﾀｶﾐｼ"
Range("C239").Value = "000248"
Range("E239").Value = "久慈市"
Range("G239").Value = "ｸｼﾞｼ"
Range("C240").Value = "000249"
Range("E240").Value = "遠野市"
Range("G240").Value = "ﾄｵﾉｼ"
Range("C241").Value = "000250"
Range("E241").Value = "一関市"
Range("G241").Value = "ｲﾁﾉｾｷｼ"
Range("C242").Value = "000251"
Range("E242").Value = "陸前高田市"
Range("G242").Value = "ﾘｸｾﾞﾝﾀｶﾀｼ"
Range("C243").Value = "000252"
Range("E243").Value = "釜石市"
Range("G243").Value = "ｶﾏｲｼｼ"
Range("C244").Value = "000253"
Range("E244").Value = "二戸市"
Range("G244").Value = "ﾆﾉﾍｼ"
Range("C245").Value = "000254"
Range("E245").Value = "八幡平市"
Range("G245").Value = "ﾊﾁﾏﾝﾀｲｼ"
Range("C246").Value = "000255"
Range("E246").Value = "奥州市"
Range("G246").Value = "ｵｳｼｭｳｼ"
Range("C247").Value = "000256"
Range("E247").Value = "滝沢市"
Range("G247").Value = "ﾀｷｻﾞﾜｼ"
Range("C248").Value = "000257"
Range("E248").Value = "雫石町"
Range("G248").Value = "ｼｽﾞｸｲｼﾁｮｳ"
Range("C249").Value = "000258"
Range("E249").Value = "葛巻町"
Range("G249").Value = "ｸｽﾞﾏｷﾏﾁ"
Range("C250").Value = "000259"
Range("E250").Value = "岩手町"
Range("G250").Value = "ｲﾜﾃﾏﾁ"
Range("C251").Value = "000260"
Range("E251").Value = "紫波町"
Range("G251").Value = "ｼﾜﾁｮｳ"
Range("C252").Value = "000261"
Range("E252").Value = "矢巾町"
Range("G252").Value = "ﾔﾊﾊﾞﾁｮｳ"
Range("C253").Value = "000262"
Range("E253").Value = "西和賀町"
Range("G253").Value = "ﾆｼﾜｶﾞﾏﾁ"
Range("C254").Value = "000263"
Range("E254").Value = "金ケ崎町"
Range("G254").Value = "ｶﾈｶﾞｻｷﾁｮｳ"
Range("C255").Value = "000264"
Range("E255").Value = "平泉町"
Range("G255").Value = "ﾋﾗｲｽﾞﾐﾁｮｳ"
Range("C256").Value = "000265"
Range("E256").Value = "住田町"
Range("G256").Value = "ｽﾐﾀﾁｮｳ"
Range("C257").Value = "000266"
Range("E257").Value = "大槌町"
Range("G257").Value = "ｵｵﾂﾁﾁｮｳ"
Range("C258").Value = "000267"
Range("E258").Value = "山田町"
Range("G258").Value = "ﾔﾏﾀﾞﾏﾁ"
Range("C259").Value = "000268"
Range("E259").Value = "岩泉町"
Range("G259").Value = "ｲﾜｲｽﾞﾐﾁｮｳ"
Range("C260").Value = "000269"
Range("E260").Value = "田野畑村"
Range("G260").Value = "ﾀﾉﾊﾀﾑﾗ"
Range("C261").Value = "000270"
Range("E261").Value = "普代村"
Range("G261").Value = "ﾌﾀﾞｲﾑﾗ"
Range("C262").Value = "000271"
Range("E262").Value = "軽米町"
Range("G262").Value = "ｶﾙﾏｲﾏﾁ"
Range("C263").Value = "000272"
Range("E263").Value = "野田村"
Range("G263").Value = "ﾉﾀﾞﾑﾗ"
Range("C264").Value = "000273"
Range("E264").Value = "九戸村"
Range("G264").Value = "ｸﾉﾍﾑﾗ"
Range("C265").Value = "000274"
Range("E265").Value = "洋野町"
Range("G265").Value = "ﾋﾛﾉﾁｮｳ"
Range("C266").Value = "000275"
Range("E266").Value = "一戸町"
Range("G266").Value = "ｲﾁﾉﾍﾏﾁ"
Range("C267").Value = "000276"
Range("F267:F307").Value = "ﾐﾔｷﾞｹﾝ"
Range("C268").Value = "000277"
Range("E268").Value = "仙台市"
Range("G268").Value = "ｾﾝﾀﾞｲｼ"
Range("C269").Value = "000278"
Range("E269").Value = "仙台市青葉区"
Range("G269").Value = "せんだいしあおばく"
Range("C270").Value = "000279"
Range("E270").Value = "仙台市宮城野区"
Range("G270").Value = "せんだいしみやぎのく"
Range("C271").Value = "000280"
Range("E271").Value = "仙台市若林区"
Range("G271").Value = "せんだいしわかばやしく"
Range("C272").Value = "000281"
Range("E272").Value = "仙台市太白区"
Range("G272").Value = "せんだいしたいはくく"
Range("C273").Value = "000282"
Range("E273").Value = "仙台市泉区"
Range("G273").Value = "せんだいしいずみく"
Range("C274").Value = "000283"
Range("E274").Value = "石巻市"
Range("G274").Value = "ｲｼﾉﾏｷｼ"
Range("C275").Value = "000284"
Range("E275").Value = "塩竈市"
Range("G275").Value = "ｼｵｶﾞﾏｼ"
Range("C276").Value = "000285"
Range("E276").Value = "気仙沼市"
Range("G276").Value = "ｹｾﾝﾇﾏｼ"
Range("C277").Value = "000286"
Range("E277").Value = "白石市"
Range("G277").Value = "ｼﾛｲｼｼ"
Range("C278").Value = "000287"
Range("E278").Value = "名取市"
Range("G278").Value = "ﾅﾄﾘｼ"
Range("C279").Value = "000288"
Range("E279").Value = "角田市"
Range("G279").Value = "ｶｸﾀﾞｼ"
Range("C280").Value = "000289"
Range("E280").Value = "多賀城市"
Range("G280").Value = "ﾀｶﾞｼﾞｮｳｼ"
Range("C281").Value = "000290"
Range("E281").Value = "岩沼市"
Range("G281").Value = "ｲﾜﾇﾏｼ"
Range("C282").Value = "000291"
Range("E282").Value = "登米市"
Range("G282").Value = "ﾄﾒｼ"
Range("C283").Value = "000292"
Range("E283").Value = "栗原市"
Range("G283").Value = "ｸﾘﾊﾗｼ"
Range("C284").Value = "000293"
Range("E284").Value = "東松島市"
Range("G284").Value = "ﾋｶﾞｼﾏﾂｼﾏｼ"
Range("C285").Value = "000294"
Range("E285").Value = "大崎市"
Range("G285").Value = "ｵｵｻｷｼ"
Range("C286").Value = "000295"
Range("E286").Value = "富谷市"
Range("G286").Value = "ﾄﾐﾔｼ"
Range("C287").Value = "000296"
Range("E287").Value = "蔵王町"
Range("G287").Value = "ｻﾞｵｳﾏﾁ"
Range("C288").Value = "000297"
Range("E288").Value = "七ヶ宿町"
Range("G288").Value = "ｼﾁｶｼｭｸﾏﾁ"
Range("C289").Value = "000298"
Range("E289").Value = "大河原町"
Range("G289").Value = "ｵｵｶﾞﾜﾗﾏﾁ"
Range("C290").Value = "000299"
Range("E290").Value = "村田町"
Range("G290").Value = "ﾑﾗﾀﾏﾁ"
Range("C291").Value = "000300"
Range("E291").Value = "柴田町"
Range("G291").Value = "ｼﾊﾞﾀﾏﾁ"
Range("C292").Value = "000301"
Range("E292").Value = "川崎町"
Range("G292").Value = "ｶﾜｻｷﾏﾁ"
Range("C293").Value = "000302"
Range("E293").Value = "丸森町"
Range("G293").Value = "ﾏﾙﾓﾘﾏﾁ"
Range("C294").Value = "000303"
Range("E294").Value = "亘理町"
Range("G294").Value = "ﾜﾀﾘﾁｮｳ"
Range("C295").Value = "000304"
Range("E295").Value = "山元町"
Range("G295").Value = "ﾔﾏﾓﾄﾁｮｳ"
Range("C296").Value = "000305"
Range("E296").Value = "松島町"
Range("G296").Value = "ﾏﾂｼﾏﾏﾁ"
Range("C297").Value = "000306"
Range("E297").Value = "七ヶ浜町"
Range("G297").Value = "ｼﾁｶﾞﾊﾏﾏﾁ"
Range("C298").Value = "000307"
Range("E298").Value = "利府町"
Range("G298").Value = "ﾘﾌﾁｮｳ"
Range("C299").Value = "000308"
Range("E299").Value = "大和町"
Range("G299").Value = "ﾀｲﾜﾁｮｳ"
Range("C300").Value = "000309"
Range("E300").Value = "大郷町"
Range("G300").Value = "ｵｵｻﾄﾁｮｳ"
Range("C301").Value = "000310"
Range("E301").Value = "大衡村"
Range("G301").Value = "ｵｵﾋﾗﾑﾗ"
Range("C302").Value = "000311"
Range("E302").Value = "色麻町"
Range("G302").Value = "ｼｶﾏﾁｮｳ"
Range("C303").Value = "000312"
Range("E303").Value = "加美町"
Range("G303").Value = "ｶﾐﾏﾁ"
Range("C304").Value = "000313"
Range("E304").Value = "涌谷町"
Range("G304").Value = "ﾜｸﾔﾁｮｳ"
Range("C305").Value = "000314"
Range("E305,E604").Value = "美里町"
Range("G305,G604").Value = "ﾐｻﾄﾏﾁ"
Range("C306").Value = "000315"
Range("E306").Value = "女川町"
Range("G306").Value = "ｵﾅｶﾞﾜﾁｮｳ"
Range("C307").Value = "000316"
Range("E307").Value = "南三陸町"
Range("G307").Value = "ﾐﾅﾐｻﾝﾘｸﾁｮｳ"
Range("C308").Value = "000317"
Range("F308:F333").Value = "ｱｷﾀｹﾝ"
Range("C309").Value = "000318"
Range("E309").Value = "秋田市"
Range("G309").Value = "ｱｷﾀｼ"
Range("C310").Value = "000319"
Range("E310").Value = "能代市"
Range("G310").Value = "ﾉｼﾛｼ"
Range("C311").Value = "000320"
Range("E311").Value = "横手市"
Range("G311").Value = "ﾖｺﾃｼ"
Range("C312").Value = "000321"
Range("E312").Value = "大館市"
Range("G312").Value = "ｵｵﾀﾞﾃｼ"
Range("C313").Value = "000322"
Range("E313").Value = "男鹿市"
Range("G313").Value = "ｵｶﾞｼ"
Range("C314").Value = "000323"
Range("E314").Value = "湯沢市"
Range("G314").Value = "ﾕｻﾞﾜｼ"
Range("C315").Value = "000324"
Range("E315").Value = "鹿角市"
Range("G315").Value = "ｶﾂﾞﾉｼ"
Range("C316").Value = "000325"
Range("E316").Value = "由利本荘市"
Range("G316").Value = "ﾕﾘﾎﾝｼﾞｮｳｼ"
Range("C317").Value = "000326"
Range("E317").Value = "潟上市"
Range("G317").Value = "ｶﾀｶﾞﾐｼ"
Range("C318").Value = "000327"
Range("E318").Value = "大仙市"
Range("G318").Value = "ﾀﾞｲｾﾝｼ"
Range("C319").Value = "000328"
Range("E319").Value = "北秋田市"
Range("G319").Value = "ｷﾀｱｷﾀｼ"
Range("C320").Value = "000329"
Range("E320").Value = "にかほ市"
Range("G320").Value = "ﾆｶﾎｼ"
Range("C321").Value = "000330"
Range("E321").Value = "仙北市"
Range("G321").Value = "ｾﾝﾎﾞｸｼ"
Range("C322").Value = "000331"
Range("E322").Value = "小坂町"
Range("G322").Value = "ｺｻｶﾏﾁ"
Range("C323").Value = "000332"
Range("E323").Value = "上小阿仁村"
Range("G323").Value = "ｶﾐｺｱﾆﾑﾗ"
Range("C324").Value = "000333"
Range("E324").Value = "藤里町"
Range("G324").Value = "ﾌｼﾞｻﾄﾏﾁ"
Range("C325").Value = "000334"
Range("E325").Value = "三種町"
Range("G325").Value = "ﾐﾀﾈﾁｮｳ"
Range("C326").Value = "000335"
Range("E326").Value = "八峰町"
Range("G326").Value = "ﾊｯﾎﾟｳﾁｮｳ"
Range("C327").Value = "000336"
Range("E327").Value = "五城目町"
Range("G327").Value = "ｺﾞｼﾞｮｳﾒﾏﾁ"
Range("C328").Value = "000337"
Range("E328").Value = "八郎潟町"
Range("G328").Value = "ﾊﾁﾛｳｶﾞﾀﾏﾁ"
Range("C329").Value = "000338"
Range("E329").Value = "井川町"
Range("G329").Value = "ｲｶﾜﾏﾁ"
Range("C330").Value = "000339"
Range("E330").Value = "大潟村"
Range("G330").Value = "ｵｵｶﾞﾀﾑﾗ"
Range("C331").Value = "000340"
Range("E331").Value = "美郷町"
Range("G331").Value = "ﾐｻﾄﾁｮｳ"
Range("C332").Value = "000341"
Range("E332").Value = "羽後町"
Range("G332").Value = "ｳｺﾞﾏﾁ"
Range("C333").Value = "000342"
Range("E333").Value = "東成瀬村"
Range("G333").Value = "ﾋｶﾞｼﾅﾙｾﾑﾗ"
Range("C334").Value = "000343"
Range("F334:F369").Value = "ﾔﾏｶﾞﾀｹﾝ"
Range("C335").Value = "000344"
Range("E335").Value = "山形市"
Range("G335,G1011").Value = "ﾔﾏｶﾞﾀｼ"
Range("C336").Value = "000345"
Range("E336").Value = "米沢市"
Range("G336").Value = "ﾖﾈｻﾞﾜｼ"
Range("C337").Value = "000346"
Range("E337").Value = "鶴岡市"
Range("G337").Value = "ﾂﾙｵｶｼ"
Range("C338").Value = "000347"
Range("E338").Value = "酒田市"
Range("G338").Value = "ｻｶﾀｼ"
Range("C339").Value = "000348"
Range("E339").Value = "新庄市"
Range("G339").Value = "ｼﾝｼﾞｮｳｼ"
Range("C340").Value = "000349"
Range("E340").Value = "寒河江市"
Range("G340").Value = "ｻｶﾞｴｼ"
Range("C341").Value = "000350"
Range("E341").Value = "上山市"
Range("G341").Value = "ｶﾐﾉﾔﾏｼ"
Range("C342").Value = "000351"
Range("E342").Value = "村山市"
Range("G342").Value = "ﾑﾗﾔﾏｼ"
Range("C343").Value = "000352"
Range("E343").Value = "長井市"
Range("G343").Value = "ﾅｶﾞｲｼ"
Range("C344").Value = "000353"
Range("E344").Value = "天童市"
Range("G344").Value = "ﾃﾝﾄﾞｳｼ"
Range("C345").Value = "000354"
Range("E345").Value = "東根市"
Range("G345").Value = "ﾋｶﾞｼﾈｼ"
Range("C346").Value = "000355"
Range("E346").Value = "尾花沢市"
Range("G346").Value = "ｵﾊﾞﾅｻﾞﾜｼ"
Range("C347").Value = "000356"
Range("E347").Value = "南陽市"
Range("G347").Value = "ﾅﾝﾖｳｼ"
Range("C348").Value = "000357"
Range("E348").Value = "山辺町"
Range("G348").Value = "ﾔﾏﾉﾍﾞﾏﾁ"
Range("C349").Value = "000358"
Range("E349").Value = "中山町"
Range("G349").Value = "ﾅｶﾔﾏﾏﾁ"
Range("C350").Value = "000359"
Range("E350").Value = "河北町"
Range("G350").Value = "ｶﾎｸﾁｮｳ"
Range("C351").Value = "000360"
Range("E351").Value = "西川町"
Range("G351").Value = "ﾆｼｶﾜﾏﾁ"
Range("C352").Value = "000361"
Range("E352,E851,E1174").Value = "朝日町"
Range("G352,G851").Value = "ｱｻﾋﾏﾁ"
Range("C353").Value = "000362"
Range("E353").Value = "大江町"
Range("G353").Value = "ｵｵｴﾏﾁ"
Range("C354").Value = "000363"
Range("E354").Value = "大石田町"
Range("G354").Value = "ｵｵｲｼﾀﾞﾏﾁ"
Range("C355").Value = "000364"
Range("E355,E402").Value = "金山町"
Range("G355,G402").Value = "ｶﾈﾔﾏﾏﾁ"
Range("C356").Value = "000365"
Range("E356").Value = "最上町"
Range("G356").Value = "ﾓｶﾞﾐﾏﾁ"
Range("C357").Value = "000366"
Range("E357").Value = "舟形町"
Range("G357").Value = "ﾌﾅｶﾞﾀﾏﾁ"
Range("C358").Value = "000367"
Range("E358").Value = "真室川町"
Range("G358").Value = "ﾏﾑﾛｶﾞﾜﾏﾁ"
Range("C359").Value = "000368"
Range("E359").Value = "大蔵村"
Range("G359").Value = "ｵｵｸﾗﾑﾗ"
Range("C360").Value = "000369"
Range("E360").Value = "鮭川村"
Range("G360").Value = "ｻｹｶﾞﾜﾑﾗ"
Range("C361").Value = "000370"
Range("E361").Value = "戸沢村"
Range("G361").Value = "ﾄｻﾞﾜﾑﾗ"
Range("C362").Value = "000371"
Range("E362").Value = "高畠町"
Range("G362").Value = "ﾀｶﾊﾀﾏﾁ"
Range("C363").Value = "000372"
Range("E363,E1388").Value = "川西町"
Range("G363").Value = "ｶﾜﾆｼﾏﾁ"
Range("C364").Value = "000373"
Range("E364").Value = "小国町"
Range("G364").Value = "ｵｸﾞﾆﾏﾁ"
Range("C365").Value = "000374"
Range("E365").Value = "白鷹町"
Range("G365").Value = "ｼﾗﾀｶﾏﾁ"
Range("C366").Value = "000375"
Range("E366").Value = "飯豊町"
Range("G366").Value = "ｲｲﾃﾞﾏﾁ"
Range("C367").Value = "000376"
Range("E367").Value = "三川町"
Range("G367").Value = "ﾐｶﾜﾏﾁ"
Range("C368").Value = "000377"
Range("E368").Value = "庄内町"
Range("G368").Value = "ｼﾖｳﾅｲﾏﾁ"
Range("C369").Value = "000378"
Range("E369").Value = "遊佐町"
Range("G369").Value = "ﾕｻﾞﾏﾁ"
Range("C370").Value = "000379"
Range("F370:F429").Value = "ﾌｸｼﾏｹﾝ"
Range("C371").Value = "000380"
Range("E371").Value = "福島市"
Range("G371").Value = "ﾌｸｼﾏｼ"
Range("C372").Value = "000381"
Range("E372").Value = "会津若松市"
Range("G372").Value = "ｱｲﾂﾞﾜｶﾏﾂｼ"
Range("C373").Value = "000382"
Range("E373").Value = "郡山市"
Range("G373").Value = "ｺｵﾘﾔﾏｼ"
Range("C374").Value = "000383"
Range("E374").Value = "いわき市"
Range("G374").Value = "ｲﾜｷｼ"
Range("C375").Value = "000384"
Range("E375").Value = "白河市"
Range("G375").Value = "ｼﾗｶﾜｼ"
Range("C376").Value = "000385"
Range("E376").Value = "須賀川市"
Range("G376").Value = "ｽｶｶﾞﾜｼ"
Range("C377").Value = "000386"
Range("E377").Value = "喜多方市"
Range("G377").Value = "ｷﾀｶﾀｼ"
Range("C378").Value = "000387"
Range("E378").Value = "相馬市"
Range("G378").Value = "ｿｳﾏｼ"
Range("C379").Value = "000388"
Range("E379").Value = "二本松市"
Range("G379").Value = "ﾆﾎﾝﾏﾂｼ"
Range("C380").Value = "000389"
Range("E380").Value = "田村市"
Range("G380").Value = "ﾀﾑﾗｼ"
Range("C381").Value = "000390"
Range("E381").Value = "南相馬市"
Range("G381").Value = "ﾐﾅﾐｿｳﾏｼ"
Range("C382").Value = "000391"
Range("C383").Value = "000392"
Range("E383").Value = "本宮市"
Range("G383").Value = "ﾓﾄﾐﾔｼ"
Range("C384").Value = "000393"
Range("E384").Value = "桑折町"
Range("G384").Value = "ｺｵﾘﾏﾁ"
Range("C385").Value = "000394"
Range("E385").Value = "国見町"
Range("G385").Value = "ｸﾆﾐﾏﾁ"
Range("C386").Value = "000395"
Range("E386").Value = "川俣町"
Range("G386").Value = "ｶﾜﾏﾀﾏﾁ"
Range("C387").Value = "000396"
Range("E387").Value = "大玉村"
Range("G387").Value = "ｵｵﾀﾏﾑﾗ"
Range("C388").Value = "000397"
Range("E388").Value = "鏡石町"
Range("G388").Value = "ｶｶﾞﾐｲｼﾏﾁ"
Range("C389").Value = "000398"
Range("E389").Value = "天栄村"
Range("G389").Value = "ﾃﾝｴｲﾑﾗ"
Range("C390").Value = "000399"
Range("E390").Value = "下郷町"
Range("G390").Value = "ｼﾓｺﾞｳﾏﾁ"
Range("C391").Value = "000400"
Range("E391").Value = "檜枝岐村"
Range("G391").Value = "ﾋﾉｴﾏﾀﾑﾗ"
Range("C392").Value = "000401"
Range("E392").Value = "只見町"
Range("G392").Value = "ﾀﾀﾞﾐﾏﾁ"
Range("C393").Value = "000402"
Range("E393").Value = "南会津町"
Range("G393").Value = "ﾐﾅﾐｱｲﾂﾞﾏﾁ"
Range("C394").Value = "000403"
Range("E394").Value = "北塩原村"
Range("G394").Value = "ｷﾀｼｵﾊﾞﾗﾑﾗ"
Range("C395").Value = "000404"
Range("E395").Value = "西会津町"
Range("G395").Value = "ﾆｼｱｲﾂﾞﾏﾁ"
Range("C396").Value = "000405"
Range("E396").Value = "磐梯町"
Range("G396").Value = "ﾊﾞﾝﾀﾞｲﾏﾁ"
Range("C397").Value = "000406"
Range("E397").Value = "猪苗代町"
Range("G397").Value = "ｲﾅﾜｼﾛﾏﾁ"
Range("C398").Value = "000407"
Range("E398").Value = "会津坂下町"
Range("G398").Value = "ｱｲﾂﾞﾊﾞﾝｹﾞﾏﾁ"
Range("C399").Value = "000408"
Range("E399").Value = "湯川村"
Range("G399").Value = "ﾕｶﾞﾜﾑﾗ"
Range("C400").Value = "000409"
Range("E400").Value = "柳津町"
Range("G400").Value = "ﾔﾅｲﾂﾞﾏﾁ"
Range("C401").Value = "000410"
Range("E401").Value = "三島町"
Range("G401").Value = "ﾐｼﾏﾏﾁ"
Range("C402").Value = "000411"
Range("C403").Value = "000412"
Range("E403,E529").Value = "昭和村"
Range("G403,G529").Value = "ｼｮｳﾜﾑﾗ"
Range("C404").Value = "000413"
Range("E404").Value = "会津美里町"
Range("G404").Value = "ｱｲﾂﾞﾐｻﾄﾏﾁ"
Range("C405").Value = "000414"
Range("E405").Value = "西郷村"
Range("G405").Value = "ﾆｼｺﾞｳﾑﾗ"
Range("C406").Value = "000415"
Range("E406").Value = "泉崎村"
Range("G406").Value = "ｲｽﾞﾐｻﾞｷﾑﾗ"
Range("C407").Value = "000416"
Range("E407").Value = "中島村"
Range("G407").Value = "ﾅｶｼﾞﾏﾑﾗ"
Range("C408").Value = "000417"
Range("E408").Value = "矢吹町"
Range("G408").Value = "ﾔﾌﾞｷﾏﾁ"
Range("C409").Value = "000418"
Range("E409").Value = "棚倉町"
Range("G409").Value = "ﾀﾅｸﾞﾗﾏﾁ"
Range("C410").Value = "000419"
Range("E410").Value = "矢祭町"
Range("G410").Value = "ﾔﾏﾂﾘﾏﾁ"
Range("C411").Value = "000420"
Range("E411").Value = "塙町"
Range("G411").Value = "ﾊﾅﾜﾏﾁ"
Range("C412").Value = "000421"
Range("E412").Value = "鮫川村"
Range("G412").Value = "ｻﾒｶﾞﾜﾑﾗ"
Range("C413").Value = "000422"
Range("E413").Value = "石川町"
Range("G413").Value = "ｲｼｶﾜﾏﾁ"
Range("C414").Value = "000423"
Range("E414").Value = "玉川村"
Range("G414").Value = "ﾀﾏｶﾜﾑﾗ"
Range("C415").Value = "000424"
Range("E415").Value = "平田村"
Range("G415").Value = "ﾋﾗﾀﾑﾗ"
Range("C416").Value = "000425"
Range("E416").Value = "浅川町"
Range("G416").Value = "ｱｻｶﾜﾏﾁ"
Range("C417").Value = "000426"
Range("E417").Value = "古殿町"
Range("G417").Value = "ﾌﾙﾄﾞﾉﾏﾁ"
Range("C418").Value = "000427"
Range("E418").Value = "三春町"
Range("G418").Value = "ﾐﾊﾙﾏﾁ"
Range("C419").Value = "000428"
Range("E419").Value = "小野町"
Range("G419").Value = "ｵﾉﾏﾁ"
Range("C420").Value = "000429"
Range("E420").Value = "広野町"
Range("G420").Value = "ﾋﾛﾉﾏﾁ"
Range("C421").Value = "000430"
Range("E421").Value = "楢葉町"
Range("G421").Value = "ﾅﾗﾊﾏﾁ"
Range("C422").Value = "000431"
Range("E422").Value = "富岡町"
Range("G422").Value = "ﾄﾐｵｶﾏﾁ"
Range("C423").Value = "000432"
Range("E423").Value = "川内村"
Range("G423").Value = "ｶﾜｳﾁﾑﾗ"
Range("C424").Value = "000433"
Range("E424").Value = "大熊町"
Range("G424").Value = "ｵｵｸﾏﾏﾁ"
Range("C425").Value = "000434"
Range("E425").Value = "双葉町"
Range("G425").Value = "ﾌﾀﾊﾞﾏﾁ"
Range("C426").Value = "000435"
Range("E426").Value = "浪江町"
Range("G426").Value = "ﾅﾐｴﾏﾁ"
Range("C427").Value = "000436"
Range("E427").Value = "葛尾村"
Range("G427").Value = "ｶﾂﾗｵﾑﾗ"
Range("C428").Value = "000437"
Range("E428").Value = "新地町"
Range("G428").Value = "ｼﾝﾁﾏﾁ"
Range("C429").Value = "000438"
Range("E429").Value = "飯舘村"
Range("G429").Value = "ｲｲﾀﾃﾑﾗ"
Range("C430").Value = "000439"
Range("F430:F474").Value = "ｲﾊﾞﾗｷｹﾝ"
Range("C431").Value = "000440"
Range("E431").Value = "水戸市"
Range("G431").Value = "ﾐﾄｼ"
Range("C432").Value = "000441"
Range("E432").Value = "日立市"
Range("G432").Value = "ﾋﾀﾁｼ"
Range("C433").Value = "000442"
Range("E433").Value = "土浦市"
Range("G433").Value = "ﾂﾁｳﾗｼ"
Range("C434").Value = "000443"
Range("E434").Value = "古河市"
Range("G434").Value = "ｺｶﾞｼ"
Range("C435").Value = "000444"
Range("E435").Value = "石岡市"
Range("G435").Value = "ｲｼｵｶｼ"
Range("C436").Value = "000445"
Range("E436").Value = "結城市"
Range("G436").Value = "ﾕｳｷｼ"
Range("C437").Value = "000446"
Range("E437").Value = "龍ケ崎市"
Range("G437").Value = "ﾘｭｳｶﾞｻｷｼ"
Range("C438").Value = "000447"
Range("E438").Value = "下妻市"
Range("G438").Value = "ｼﾓﾂﾏｼ"
Range("C439").Value = "000448"
Range("E439").Value = "常総市"
Range("G439").Value = "ｼﾞｮｳｿｳｼ"
Range("C440").Value = "000449"
Range("E440").Value = "常陸太田市"
Range("G440").Value = "ﾋﾀﾁｵｵﾀｼ"
Range("C441").Value = "000450"
Range("E441").Value = "高萩市"
Range("G441").Value = "ﾀｶﾊｷﾞｼ"
Range("C442").Value = "000451"
Range("E442").Value = "北茨城市"
Range("G442").Value = "ｷﾀｲﾊﾞﾗｷｼ"
Range("C443").Value = "000452"
Range("E443").Value = "笠間市"
Range("G443").Value = "ｶｻﾏｼ"
Range("C444").Value = "000453"
Range("E444").Value = "取手市"
Range("G444").Value = "ﾄﾘﾃﾞｼ"
Range("C445").Value = "000454"
Range("E445").Value = "牛久市"
Range("G445").Value = "ｳｼｸｼ"
Range("C446").Value = "000455"
Range("E446").Value = "つくば市"
Range("G446").Value = "ﾂｸﾊﾞｼ"
Range("C447").Value = "000456"
Range("E447").Value = "ひたちなか市"
Range("G447").Value = "ﾋﾀﾁﾅｶｼ"
Range("C448").Value = "000457"
Range("E448").Value = "鹿嶋市"
Range("G448").Value = "ｶｼﾏｼ"
Range("C449").Value = "000458"
Range("E449").Value = "潮来市"
Range("G449").Value = "ｲﾀｺｼ"
Range("C450").Value = "000459"
Range("E450").Value = "守谷市"
Range("G450").Value = "ﾓﾘﾔｼ"
Range("C451").Value = "000460"
Range("E451").Value = "常陸大宮市"
Range("G451").Value = "ﾋﾀﾁｵｵﾐﾔｼ"
Range("C452").Value = "000461"
Range("E452").Value = "那珂市"
Range("G452").Value = "ﾅｶｼ"
Range("C453").Value = "000462"
Range("E453").Value = "筑西市"
Range("G453").Value = "ﾁｸｾｲｼ"
Range("C454").Value = "000463"
Range("E454").Value = "坂東市"
Range("G454").Value = "ﾊﾞﾝﾄﾞｳｼ"
Range("C455").Value = "000464"
Range("E455").Value = "稲敷市"
Range("G455").Value = "ｲﾅｼｷｼ"
Range("C456").Value = "000465"
Range("E456").Value = "かすみがうら市"
Range("G456").Value = "ｶｽﾐｶﾞｳﾗｼ"
Range("C457").Value = "000466"
Range("E457").Value = "桜川市"
Range("G457").Value = "ｻｸﾗｶﾞﾜｼ"
Range("C458").Value = "000467"
Range("E458").Value = "神栖市"
Range("G458").Value = "ｶﾐｽｼ"
Range("C459").Value = "000468"
Range("E459").Value = "行方市"
Range("G459").Value = "ﾅﾒｶﾞﾀｼ"
Range("C460").Value = "000469"
Range("E460").Value = "鉾田市"
Range("G460").Value = "ﾎｺﾀｼ"
Range("C461").Value = "000470"
Range("E461").Value = "つくばみらい市"
Range("G461").Value = "ﾂｸﾊﾞﾐﾗｲｼ"
Range("C462").Value = "000471"
Range("E462").Value = "小美玉市"
Range("G462").Value = "ｵﾐﾀﾏｼ"
Range("C463").Value = "000472"
Range("E463").Value = "茨城町"
Range("G463").Value = "ｲﾊﾞﾗｷﾏﾁ"
Range("C464").Value = "000473"
Range("E464").Value = "大洗町"
Range("G464").Value = "ｵｵｱﾗｲﾏﾁ"
Range("C465").Value = "000474"
Range("E465").Value = "城里町"
Range("G465").Value = "ｼﾛｻﾄﾏﾁ"
Range("C466").Value = "000475"
Range("E466").Value = "東海村"
Range("G466").Value = "ﾄｳｶｲﾑﾗ"
Range("C467").Value = "000476"
Range("E467").Value = "大子町"
Range("G467").Value = "ﾀﾞｲｺﾞﾏﾁ"
Range("C468").Value = "000477"
Range("E468").Value = "美浦村"
Range("G468").Value = "ﾐﾎﾑﾗ"
Range("C469").Value = "000478"
Range("E469").Value = "阿見町"
Range("G469").Value = "ｱﾐﾏﾁ"
Range("C470").Value = "000479"
Range("E470").Value = "河内町"
Range("G470").Value = "ｶﾜﾁﾏﾁ"
Range("C471").Value = "000480"
Range("E471").Value = "八千代町"
Range("G471").Value = "ﾔﾁﾖﾏﾁ"
Range("C472").Value = "000481"
Range("E472").Value = "五霞町"
Range("G472").Value = "ｺﾞｶﾏﾁ"
Range("C473").Value = "000482"
Range("E473").Value = "境町"
Range("G473").Value = "ｻｶｲﾏﾁ"
Range("C474").Value = "000483"
Range("E474").Value = "利根町"
Range("G474").Value = "ﾄﾈﾏﾁ"
Range("C475").Value = "000484"
Range("F475:F500").Value = "ﾄﾁｷﾞｹﾝ"
Range("C476").Value = "000485"
Range("E476").Value = "宇都宮市"
Range("G476").Value = "ｳﾂﾉﾐﾔｼ"
Range("C477").Value = "000486"
Range("E477").Value = "足利市"
Range("G477").Value = "ｱｼｶｶﾞｼ"
Range("C478").Value = "000487"
Range("E478").Value = "栃木市"
Range("G478").Value = "ﾄﾁｷﾞｼ"
Range("C479").Value = "000488"
Range("E479").Value = "佐野市"
Range("G479").Value = "ｻﾉｼ"
Range("C480").Value = "000489"
Range("E480").Value = "鹿沼市"
Range("G480").Value = "ｶﾇﾏｼ"
Range("C481").Value = "000490"
Range("E481").Value = "日光市"
Range("G481").Value = "ﾆｯｺｳｼ"
Range("C482").Value = "000491"
Range("E482").Value = "小山市"
Range("G482").Value = "ｵﾔﾏｼ"
Range("C483").Value = "000492"
Range("E483").Value = "真岡市"
Range("G483").Value = "ﾓｵｶｼ"
Range("C484").Value = "000493"
Range("E484").Value = "大田原市"
Range("G484").Value = "ｵｵﾀﾜﾗｼ"
Range("C485").Value = "000494"
Range("E485").Value = "矢板市"
Range("G485").Value = "ﾔｲﾀｼ"
Range("C486").Value = "000495"
Range("E486").Value = "那須塩原市"
Range("G486").Value = "ﾅｽｼｵﾊﾞﾗｼ"
Range("C487").Value = "000496"
Range("E487").Value = "さくら市"
Range("G487,G628").Value = "ｻｸﾗｼ"
Range("C488").Value = "000497"
Range("E488").Value = "那須烏山市"
Range("G488").Value = "ﾅｽｶﾗｽﾔﾏｼ"
Range("C489").Value = "000498"
Range("E489").Value = "下野市"
Range("G489").Value = "ｼﾓﾂｹｼ"
Range("C490").Value = "000499"
Range("E490").Value = "上三川町"
Range("G490").Value = "ｶﾐﾉｶﾜﾏﾁ"
Range("C491").Value = "000500"
Range("E491").Value = "益子町"
Range("G491").Value = "ﾏｼｺﾏﾁ"
Range("C492").Value = "000501"
Range("E492").Value = "茂木町"
Range("G492").Value = "ﾓﾃｷﾞﾏﾁ"
Range("C493").Value = "000502"
Range("E493").Value = "市貝町"
Range("G493").Value = "ｲﾁｶｲﾏﾁ"
Range("C494").Value = "000503"
Range("E494").Value = "芳賀町"
Range("G494").Value = "ﾊｶﾞﾏﾁ"
Range("C495").Value = "000504"
Range("E495").Value = "壬生町"
Range("G495").Value = "ﾐﾌﾞﾏﾁ"
Range("C496").Value = "000505"
Range("E496").Value = "野木町"
Range("G496").Value = "ﾉｷﾞﾏﾁ"
Range("C497").Value = "000506"
Range("E497").Value = "塩谷町"
Range("G497").Value = "ｼｵﾔﾏﾁ"
Range("C498").Value = "000507"
Range("E498").Value = "高根沢町"
Range("G498").Value = "ﾀｶﾈｻﾞﾜﾏﾁ"
Range("C499").Value = "000508"
Range("E499").Value = "那須町"
Range("G499").Value = "ﾅｽﾏﾁ"
Range("C500").Value = "000509"
Range("E500").Value = "那珂川町"
Range("G500").Value = "ﾅｶｶﾞﾜﾏﾁ"
Range("C501").Value = "000510"
Range("F501:F536").Value = "ｸﾞﾝﾏｹﾝ"
Range("C502").Value = "000511"
Range("E502").Value = "前橋市"
Range("G502").Value = "ﾏｴﾊﾞｼｼ"
Range("C503").Value = "000512"
Range("E503").Value = "高崎市"
Range("G503").Value = "ﾀｶｻｷｼ"
Range("C504").Value = "000513"
Range("E504").Value = "桐生市"
Range("G504").Value = "ｷﾘｭｳｼ"
Range("C505").Value = "000514"
Range("E505").Value = "伊勢崎市"
Range("G505").Value = "ｲｾｻｷｼ"
Range("C506").Value = "000515"
Range("E506").Value = "太田市"
Range("G506").Value = "ｵｵﾀｼ"
Range("C507").Value = "000516"
Range("E507").Value = "沼田市"
Range("G507").Value = "ﾇﾏﾀｼ"
Range("C508").Value = "000517"
Range("E508").Value = "館林市"
Range("G508").Value = "ﾀﾃﾊﾞﾔｼｼ"
Range("C509").Value = "000518"
Range("E509").Value = "渋川市"
Range("G509").Value = "ｼﾌﾞｶﾜｼ"
Range("C510").Value = "000519"
Range("E510").Value = "藤岡市"
Range("G510").Value = "ﾌｼﾞｵｶｼ"
Range("C511").Value = "000520"
Range("E511").Value = "富岡市"
Range("G511").Value = "ﾄﾐｵｶｼ"
Range("C512").Value = "000521"
Range("E512").Value = "安中市"
Range("G512").Value = "ｱﾝﾅｶｼ"
Range("C513").Value = "000522"
Range("E513").Value = "みどり市"
Range("G513").Value = "ﾐﾄﾞﾘｼ"
Range("C514").Value = "000523"
Range("E514").Value = "榛東村"
Range("G514").Value = "ｼﾝﾄｳﾑﾗ"
Range("C515").Value = "000524"
Range("E515").Value = "吉岡町"
Range("G515").Value = "ﾖｼｵｶﾏﾁ"
Range("C516").Value = "000525"
Range("E516").Value = "上野村"
Range("G516").Value = "ｳｴﾉﾑﾗ"
Range("C517").Value = "000526"
Range("E517").Value = "神流町"
Range("G517").Value = "ｶﾝﾅﾏﾁ"
Range("C518").Value = "000527"
Range("E518").Value = "下仁田町"
Range("G518").Value = "ｼﾓﾆﾀﾏﾁ"
Range("C519").Value = "000528"
Range("E519,E940").Value = "南牧村"
Range("G519").Value = "ﾅﾝﾓｸﾑﾗ"
Range("C520").Value = "000529"
Range("E520").Value = "甘楽町"
Range("G520").Value = "ｶﾝﾗﾏﾁ"
Range("C521").Value = "000530"
Range("E521").Value = "中之条町"
Range("G521").Value = "ﾅｶﾉｼﾞﾖｳﾏﾁ"
Range("C522").Value = "000531"
Range("E522").Value = "長野原町"
Range("G522").Value = "ﾅｶﾞﾉﾊﾗﾏﾁ"
Range("C523").Value = "000532"
Range("E523").Value = "嬬恋村"
Range("G523").Value = "ﾂﾏｺﾞｲﾑﾗ"
Range("C524").Value = "000533"
Range("E524").Value = "草津町"
Range("G524").Value = "ｸｻﾂﾏﾁ"
Range("C525").Value = "000534"
Range("E525,E988").Value = "高山村"
Range("G525,G988").Value = "ﾀｶﾔﾏﾑﾗ"
Range("C526").Value = "000535"
Range("E526").Value = "東吾妻町"
Range("G526").Value = "ﾋｶﾞｼｱｶﾞﾂﾏﾏﾁ"
Range("C527").Value = "000536"
Range("E527").Value = "片品村"
Range("G527").Value = "ｶﾀｼﾅﾑﾗ"
Range("C528").Value = "000537"
Range("E528").Value = "川場村"
Range("G528").Value = "ｶﾜﾊﾞﾑﾗ"
Range("C529").Value = "000538"
Range("C530").Value = "000539"
Range("E530").Value = "みなかみ町"
Range("G530").Value = "ﾐﾅｶﾐﾏﾁ"
Range("C531").Value = "000540"
Range("E531").Value = "玉村町"
Range("G531").Value = "ﾀﾏﾑﾗﾏﾁ"
Range("C532").Value = "000541"
Range("E532").Value = "板倉町"
Range("G532").Value = "ｲﾀｸﾗﾏﾁ"
Range("C533").Value = "000542"
Range("E533,E1177").Value = "明和町"
Range("G533").Value = "ﾒｲﾜﾏﾁ"
Range("C534").Value = "000543"
Range("E534").Value = "千代田町"
Range("G534").Value = "ﾁﾖﾀﾞﾏﾁ"
Range("C535").Value = "000544"
Range("E535").Value = "大泉町"
Range("G535").Value = "ｵｵｲｽﾞﾐﾏﾁ"
Range("C536").Value = "000545"
Range("E536").Value = "邑楽町"
Range("G536").Value = "ｵｳﾗﾏﾁ"
Range("C537").Value = "000546"
Range("F537:F610").Value = "ｻｲﾀﾏｹﾝ"
Range("C538").Value = "000547"
Range("E538").Value = "さいたま市"
Range("G538").Value = "ｻｲﾀﾏｼ"
Range("C539").Value = "000548"
Range("E539").Value = "さいたま市西区"
Range("G539").Value = "さいたましにしく"
Range("C540").Value = "000549"
Range("E540").Value = "さいたま市北区"
Range("G540").Value = "さいたましきたく"
Range("C541").Value = "000550"
Range("E541").Value = "さいたま市大宮区"
Range("G541").Value = "さいたましおおみやく"
Range("C542").Value = "000551"
Range("E542").Value = "さいたま市見沼区"
Range("G542").Value = "さいたましみぬまく"
Range("C543").Value = "000552"
Range("E543").Value = "さいたま市中央区"
Range("G543").Value = "さいたましちゅうおうく"
Range("C544").Value = "000553"
Range("E544").Value = "さいたま市桜区"
Range("G544").Value = "さいたましさくらく"
Range("C545").Value = "000554"
Range("E545").Value = "さいたま市浦和区"
Range("G545").Value = "さいたましうらわく"
Range("C546").Value = "000555"
Range("E546").Value = "さいたま市南区"
Range("G546").Value = "さいたましみなみく"
Range("C547").Value = "000556"
Range("E547").Value = "さいたま市緑区"
Range("G547").Value = "さいたましみどりく"
Range("C548").Value = "000557"
Range("E548").Value = "さいたま市岩槻区"
Range("G548").Value = "さいたましいわつきく"
Range("C549").Value = "000558"
Range("E549").Value = "川越市"
Range("G549").Value = "ｶﾜｺﾞｴｼ"
Range("C550").Value = "000559"
Range("E550").Value = "熊谷市"
Range("G550").Value = "ｸﾏｶﾞﾔｼ"
Range("C551").Value = "000560"
Range("E551").Value = "川口市"
Range("G551").Value = "ｶﾜｸﾞﾁｼ"
Range("C552").Value = "000561"
Range("E552").Value = "行田市"
Range("G552").Value = "ｷﾞﾖｳﾀﾞｼ"
Range("C553").Value = "000562"
Range("E553").Value = "秩父市"
Range("G553").Value = "ﾁﾁﾌﾞｼ"
Range("C554").Value = "000563"
Range("E554").Value = "所沢市"
Range("G554").Value = "ﾄｺﾛｻﾞﾜｼ"
Range("C555").Value = "000564"
Range("E555").Value = "飯能市"
Range("G555").Value = "ﾊﾝﾉｳｼ"
Range("C556").Value = "000565"
Range("E556").Value = "加須市"
Range("G556").Value = "ｶｿﾞｼ"
Range("C557").Value = "000566"
Range("E557").Value = "本庄市"
Range("G557").Value = "ﾎﾝｼﾞﾖｳｼ"
Range("C558").Value = "000567"
Range("E558").Value = "東松山市"
Range("G558").Value = "ﾋｶﾞｼﾏﾂﾔﾏｼ"
Range("C559").Value = "000568"
Range("E559").Value = "春日部市"
Range("G559").Value = "ｶｽｶﾍﾞｼ"
Range("C560").Value = "000569"
Range("E560").Value = "狭山市"
Range("G560").Value = "ｻﾔﾏｼ"
Range("C561").Value = "000570"
Range("E561").Value = "羽生市"
Range("G561").Value = "ﾊﾆﾕｳｼ"
Range("C562").Value = "000571"
Range("E562").Value = "鴻巣市"
Range("G562").Value = "ｺｳﾉｽｼ"
Range("C563").Value = "000572"
Range("E563").Value = "深谷市"
Range("G563").Value = "ﾌｶﾔｼ"
Range("C564").Value = "000573"
Range("E564").Value = "上尾市"
Range("G564").Value = "ｱｹﾞｵｼ"
Range("C565").Value = "000574"
Range("E565").Value = "草加市"
Range("G565").Value = "ｿｳｶｼ"
Range("C566").Value = "000575"
Range("E566").Value = "越谷市"
Range("G566").Value = "ｺｼｶﾞﾔｼ"
Range("C567").Value = "000576"
Range("E567").Value = "蕨市"
Range("G567").Value = "ﾜﾗﾋﾞｼ"
Range("C568").Value = "000577"
Range("E568").Value = "戸田市"
Range("G568").Value = "ﾄﾀﾞｼ"
Range("C569").Value = "000578"
Range("E569").Value = "入間市"
Range("G569").Value = "ｲﾙﾏｼ"
Range("C570").Value = "000579"
Range("E570").Value = "朝霞市"
Range("G570").Value = "ｱｻｶｼ"
Range("C571").Value = "000580"
Range("E571").Value = "志木市"
Range("G571").Value = "ｼｷｼ"
Range("C572").Value = "000581"
Range("E572").Value = "和光市"
Range("G572").Value = "ﾜｺｳｼ"
Range("C573").Value = "000582"
Range("E573").Value = "新座市"
Range("G573").Value = "ﾆｲｻﾞｼ"
Range("C574").Value = "000583"
Range("E574").Value = "桶川市"
Range("G574").Value = "ｵｹｶﾞﾜｼ"
Range("C575").Value = "000584"
Range("E575").Value = "久喜市"
Range("G575").Value = "ｸｷｼ"
Range("C576").Value = "000585"
Range("E576").Value = "北本市"
Range("G576").Value = "ｷﾀﾓﾄｼ"
Range("C577").Value = "000586"
Range("E577").Value = "八潮市"
Range("G577").Value = "ﾔｼｵｼ"
Range("C578").Value = "000587"
Range("E578").Value = "富士見市"
Range("G578").Value = "ﾌｼﾞﾐｼ"
Range("C579").Value = "000588"
Range("E579").Value = "三郷市"
Range("G579").Value = "ﾐｻﾄｼ"
Range("C580").Value = "000589"
Range("E580").Value = "蓮田市"
Range("G580").Value = "ﾊｽﾀﾞｼ"
Range("C581").Value = "000590"
Range("E581").Value = "坂戸市"
Range("G581").Value = "ｻｶﾄﾞｼ"
Range("C582").Value = "000591"
Range("E582").Value = "幸手市"
Range("G582").Value = "ｻｯﾃｼ"
Range("C583").Value = "000592"
Range("E583").Value = "鶴ヶ島市"
Range("G583").Value = "ﾂﾙｶﾞｼﾏｼ"
Range("C584").Value = "000593"
Range("E584").Value = "日高市"
Range("G584").Value = "ﾋﾀﾞｶｼ"
Range("C585").Value = "000594"
Range("E585").Value = "吉川市"
Range("G585").Value = "ﾖｼｶﾜｼ"
Range("C586").Value = "000595"
Range("E586").Value = "ふじみ野市"
Range("G586").Value = "ﾌｼﾞﾐﾉｼ"
Range("C587").Value = "000596"
Range("E587").Value = "白岡市"
Range("G587").Value = "ｼﾗｵｶｼ"
Range("C588").Value = "000597"
Range("E588").Value = "伊奈町"
Range("G588").Value = "ｲﾅﾏﾁ"
Range("C589").Value = "000598"
Range("E589").Value = "三芳町"
Range("G589").Value = "ﾐﾖｼﾏﾁ"
Range("C590").Value = "000599"
Range("E590").Value = "毛呂山町"
Range("G590").Value = "ﾓﾛﾔﾏﾏﾁ"
Range("C591").Value = "000600"
Range("E591").Value = "越生町"
Range("G591").Value = "ｵｺﾞｾﾏﾁ"
Range("C592").Value = "000601"
Range("E592").Value = "滑川町"
Range("G592").Value = "ﾅﾒｶﾞﾜﾏﾁ"
Range("C593").Value = "000602"
Range("E593").Value = "嵐山町"
Range("G593").Value = "ﾗﾝｻﾞﾝﾏﾁ"
Range("C594").Value = "000603"
Range("E594").Value = "小川町"
Range("G594").Value = "ｵｶﾞﾜﾏﾁ"
Range("C595").Value = "000604"
Range("E595").Value = "川島町"
Range("G595").Value = "ｶﾜｼﾞﾏﾏﾁ"
Range("C596").Value = "000605"
Range("E596").Value = "吉見町"
Range("G596").Value = "ﾖｼﾐﾏﾁ"
Range("C597").Value = "000606"
Range("E597").Value = "鳩山町"
Range("G597").Value = "ﾊﾄﾔﾏﾏﾁ"
Range("C598").Value = "000607"
Range("E598").Value = "ときがわ町"
Range("G598").Value = "ﾄｷｶﾞﾜﾏﾁ"
Range("C599").Value = "000608"
Range("E599").Value = "横瀬町"
Range("G599").Value = "ﾖｺｾﾞﾏﾁ"
Range("C600").Value = "000609"
Range("E600").Value = "皆野町"
Range("G600").Value = "ﾐﾅﾉﾏﾁ"
Range("C601").Value = "000610"
Range("E601").Value = "長瀞町"
Range("G601").Value = "ﾅｶﾞﾄﾛﾏﾁ"
Range("C602").Value = "000611"
Range("E602").Value = "小鹿野町"
Range("G602").Value = "ｵｶﾞﾉﾏﾁ"
Range("C603").Value = "000612"
Range("E603").Value = "東秩父村"
Range("G603").Value = "ﾋｶﾞｼﾁﾁﾌﾞﾑﾗ"
Range("C604").Value = "000613"
Range("C605").Value = "000614"
Range("E605").Value = "神川町"
Range("G605").Value = "ｶﾐｶﾜﾏﾁ"
Range("C606").Value = "000615"
Range("E606").Value = "上里町"
Range("G606").Value = "ｶﾐｻﾄﾏﾁ"
Range("C607").Value = "000616"
Range("E607").Value = "寄居町"
Range("G607").Value = "ﾖﾘｲﾏﾁ"
Range("C608").Value = "000617"
Range("E608").Value = "宮代町"
Range("G608").Value = "ﾐﾔｼﾛﾏﾁ"
Range("C609").Value = "000618"
Range("E609").Value = "杉戸町"
Range("G609").Value = "ｽｷﾞﾄﾏﾁ"
Range("C610").Value = "000619"
Range("E610").Value = "松伏町"
Range("G610").Value = "ﾏﾂﾌﾞｼﾏﾁ"
Range("C611").Value = "000620"
Range("F611:F671").Value = "ﾁﾊﾞｹﾝ"
Range("C612").Value = "000621"
Range("E612").Value = "千葉市"
Range("G612").Value = "ﾁﾊﾞｼ"
Range("C613").Value = "000622"
Range("E613").Value = "千葉市中央区"
Range("G613").Value = "ちばしちゅうおうく"
Range("C614").Value = "000623"
Range("E614").Value = "千葉市花見川区"
Range("G614").Value = "ちばしはなみがわく"
Range("C615").Value = "000624"
Range("E615").Value = "千葉市稲毛区"
Range("G615").Value = "ちばしいなげく"
Range("C616").Value = "000625"
Range("E616").Value = "千葉市若葉区"
Range("G616").Value = "ちばしわかばく"
Range("C617").Value = "000626"
Range("E617").Value = "千葉市緑区"
Range("G617").Value = "ちばしみどりく"
Range("C618").Value = "000627"
Range("E618").Value = "千葉市美浜区"
Range("G618").Value = "ちばしみはまく"
Range("C619").Value = "000628"
Range("E619").Value = "銚子市"
Range("G619").Value = "ﾁｮｳｼｼ"
Range("C620").Value = "000629"
Range("E620").Value = "市川市"
Range("G620").Value = "ｲﾁｶﾜｼ"
Range("C621").Value = "000630"
Range("E621").Value = "船橋市"
Range("G621").Value = "ﾌﾅﾊﾞｼｼ"
Range("C622").Value = "000631"
Range("E622").Value = "館山市"
Range("G622").Value = "ﾀﾃﾔﾏｼ"
Range("C623").Value = "000632"
Range("E623").Value = "木更津市"
Range("G623").Value = "ｷｻﾗﾂﾞｼ"
Range("C624").Value = "000633"
Range("E624").Value = "松戸市"
Range("G624").Value = "ﾏﾂﾄﾞｼ"
Range("C625").Value = "000634"
Range("E625").Value = "野田市"
Range("G625").Value = "ﾉﾀﾞｼ"
Range("C626").Value = "000635"
Range("E626").Value = "茂原市"
Range("G626").Value = "ﾓﾊﾞﾗｼ"
Range("C627").Value = "000636"
Range("E627").Value = "成田市"
Range("G627").Value = "ﾅﾘﾀｼ"
Range("C628").Value = "000637"
Range("E628").Value = "佐倉市"
Range("C629").Value = "000638"
Range("E629").Value = "東金市"
Range("G629").Value = "ﾄｳｶﾞﾈｼ"
Range("C630").Value = "000639"
Range("E630").Value = "旭市"
Range("G630").Value = "ｱｻﾋｼ"
Range("C631").Value = "000640"
Range("E631").Value = "習志野市"
Range("G631").Value = "ﾅﾗｼﾉｼ"
Range("C632").Value = "000641"
Range("E632").Value = "柏市"
Range("G632").Value = "ｶｼﾜｼ"
Range("C633").Value = "000642"
Range("E633").Value = "勝浦市"
Range("G633").Value = "ｶﾂｳﾗｼ"
Range("C634").Value = "000643"
Range("E634").Value = "市原市"
Range("G634").Value = "ｲﾁﾊﾗｼ"
Range("C635").Value = "000644"
Range("E635").Value = "流山市"
Range("G635").Value = "ﾅｶﾞﾚﾔﾏｼ"
Range("C636").Value = "000645"
Range("E636").Value = "八千代市"
Range("G636").Value = "ﾔﾁﾖｼ"
Range("C637").Value = "000646"
Range("E637").Value = "我孫子市"
Range("G637").Value = "ｱﾋﾞｺｼ"
Range("C638").Value = "000647"
Range("E638").Value = "鴨川市"
Range("G638").Value = "ｶﾓｶﾞﾜｼ"
Range("C639").Value = "000648"
Range("E639").Value = "鎌ケ谷市"
Range("G639").Value = "ｶﾏｶﾞﾔｼ"
Range("C640").Value = "000649"
Range("E640").Value = "君津市"
Range("G640").Value = "ｷﾐﾂｼ"
Range("C641").Value = "000650"
Range("E641").Value = "富津市"
Range("G641").Value = "ﾌｯﾂｼ"
Range("C642").Value = "000651"
Range("E642").Value = "浦安市"
Range("G642").Value = "ｳﾗﾔｽｼ"
Range("C643").Value = "000652"
Range("E643").Value = "四街道市"
Range("G643").Value = "ﾖﾂｶｲﾄﾞｳｼ"
Range("C644").Value = "000653"
Range("E644").Value = "袖ケ浦市"
Range("G644").Value = "ｿﾃﾞｶﾞｳﾗｼ"
Range("C645").Value = "000654"
Range("E645").Value = "八街市"
Range("G645").Value = "ﾔﾁﾏﾀｼ"
Range("C646").Value = "000655"
Range("E646").Value = "印西市"
Range("G646").Value = "ｲﾝｻﾞｲｼ"
Range("C647").Value = "000656"
Range("E647").Value = "白井市"
Range("G647").Value = "ｼﾛｲｼ"
Range("C648").Value = "000657"
Range("E648").Value = "富里市"
Range("G648").Value = "ﾄﾐｻﾄｼ"
Range("C649").Value = "000658"
Range("E649").Value = "南房総市"
Range("G649").Value = "ﾐﾅﾐﾎﾞｳｿｳｼ"
Range("C650").Value = "000659"
Range("E650").Value = "匝瑳市"
Range("G650").Value = "ｿｳｻｼ"
Range("C651").Value = "000660"
Range("E651").Value = "香取市"
Range("G651").Value = "ｶﾄﾘｼ"
Range("C652").Value = "000661"
Range("E652").Value = "山武市"
Range("G652").Value = "ｻﾝﾑｼ"
Range("C653").Value = "000662"
Range("E653").Value = "いすみ市"
Range("G653").Value = "ｲｽﾐｼ"
Range("C654").Value = "000663"
Range("E654").Value = "大網白里市"
Range("G654").Value = "ｵｵｱﾐｼﾗｻﾄｼ"
Range("C655").Value = "000664"
Range("E655").Value = "酒々井町"
Range("G655").Value = "ｼｽｲﾏﾁ"
Range("C656").Value = "000665"
Range("E656").Value = "栄町"
Range("G656").Value = "ｻｶｴﾏﾁ"
Range("C657").Value = "000666"
Range("E657").Value = "神崎町"
Range("G657").Value = "ｺｳｻﾞｷﾏﾁ"
Range("C658").Value = "000667"
Range("E658").Value = "多古町"
Range("G658").Value = "ﾀｺﾏﾁ"
Range("C659").Value = "000668"
Range("E659").Value = "東庄町"
Range("G659").Value = "ﾄｳﾉｼｮｳﾏﾁ"
Range("C660").Value = "000669"
Range("E660").Value = "九十九里町"
Range("G660").Value = "ｸｼﾞﾕｳｸﾘﾏﾁ"
Range("C661").Value = "000670"
Range("E661").Value = "芝山町"
Range("G661").Value = "ｼﾊﾞﾔﾏﾏﾁ"
Range("C662").Value = "000671"
Range("E662").Value = "横芝光町"
Range("G662").Value = "ﾖｺｼﾊﾞﾋｶﾘﾏﾁ"
Range("C663").Value = "000672"
Range("E663").Value = "一宮町"
Range("G663").Value = "ｲﾁﾉﾐﾔﾏﾁ"
Range("C664").Value = "000673"
Range("E664").Value = "睦沢町"
Range("G664").Value = "ﾑﾂｻﾞﾜﾏﾁ"
Range("C665").Value = "000674"
Range("E665").Value = "長生村"
Range("G665").Value = "ﾁｮｳｾｲﾑﾗ"
Range("C666").Value = "000675"
Range("E666").Value = "白子町"
Range("G666").Value = "ｼﾗｺﾏﾁ"
Range("C667").Value = "000676"
Range("E667").Value = "長柄町"
Range("G667").Value = "ﾅｶﾞﾗﾏﾁ"
Range("C668").Value = "000677"
Range("E668").Value = "長南町"
Range("G668").Value = "ﾁｮｳﾅﾝﾏﾁ"
Range("C669").Value = "000678"
Range("E669").Value = "大多喜町"
Range("G669").Value = "ｵｵﾀｷﾏﾁ"
Range("C670").Value = "000679"
Range("E670").Value = "御宿町"
Range("G670").Value = "ｵﾝｼﾞﾕｸﾏﾁ"
Range("C671").Value = "000680"
Range("E671").Value = "鋸南町"
Range("G671").Value = "ｷﾖﾅﾝﾏﾁ"
Range("C672").Value = "000681"
Range("F672:F734").Value = "ﾄｳｷｮｳﾄ"
Range("C673").Value = "000682"
Range("E673").Value = "千代田区"
Range("G673").Value = "ﾁﾖﾀﾞｸ"
Range("C674").Value = "000683"
Range("E674").Value = "中央区"
Range("G674").Value = "ﾁｭｳｵｳｸ"
Range("C675").Value = "000684"
Range("E675").Value = "港区"
Range("G675").Value = "ﾐﾅﾄｸ"
Range("C676").Value = "000685"
Range("E676").Value = "新宿区"
Range("G676").Value = "ｼﾝｼﾞｭｸｸ"
Range("C677").Value = "000686"
Range("E677").Value = "文京区"
Range("G677").Value = "ﾌﾞﾝｷｮｳｸ"
Range("C678").Value = "000687"
Range("E678").Value = "台東区"
Range("G678").Value = "ﾀｲﾄｳｸ"
Range("C679").Value = "000688"
Range("E679").Value = "墨田区"
Range("G679").Value = "ｽﾐﾀﾞｸ"
Range("C680").Value = "000689"
Range("E680").Value = "江東区"
Range("G680").Value = "ｺｳﾄｳｸ"
Range("C681").Value = "000690"
Range("E681").Value = "品川区"
Range("G681").Value = "ｼﾅｶﾞﾜｸ"
Range("C682").Value = "000691"
Range("E682").Value = "目黒区"
Range("G682").Value = "ﾒｸﾞﾛｸ"
Range("C683").Value = "000692"
Range("E683").Value = "大田区"
Range("G683").Value = "ｵｵﾀｸ"
Range("C684").Value = "000693"
Range("E684").Value = "世田谷区"
Range("G684").Value = "ｾﾀｶﾞﾔｸ"
Range("C685").Value = "000694"
Range("E685").Value = "渋谷区"
Range("G685").Value = "ｼﾌﾞﾔｸ"
Range("C686").Value = "000695"
Range("E686").Value = "中野区"
Range("G686").Value = "ﾅｶﾉｸ"
Range("C687").Value = "000696"
Range("E687").Value = "杉並区"
Range("G687").Value = "ｽｷﾞﾅﾐｸ"
Range("C688").Value = "000697"
Range("E688").Value = "豊島区"
Range("G688").Value = "ﾄｼﾏｸ"
Range("C689").Value = "000698"
Range("E689").Value = "北区"
Range("G689").Value = "ｷﾀｸ"
Range("C690").Value = "000699"
Range("E690").Value = "荒川区"
Range("G690").Value = "ｱﾗｶﾜｸ"
Range("C691").Value = "000700"
Range("E691").Value = "板橋区"
Range("G691").Value = "ｲﾀﾊﾞｼｸ"
Range("C692").Value = "000701"
Range("E692").Value = "練馬区"
Range("G692").Value = "ﾈﾘﾏｸ"
Range("C693").Value = "000702"
Range("E693").Value = "足立区"
Range("G693").Value = "ｱﾀﾞﾁｸ"
Range("C694").Value = "000703"
Range("E694").Value = "葛飾区"
Range("G694").Value = "ｶﾂｼｶｸ"
Range("C695").Value = "000704"
Range("E695").Value = "江戸川区"
Range("G695").Value = "ｴﾄﾞｶﾞﾜｸ"
Range("C696").Value = "000705"
Range("E696").Value = "八王子市"
Range("G696").Value = "ﾊﾁｵｳｼﾞｼ"
Range("C697").Value = "000706"
Range("E697").Value = "立川市"
Range("G697").Value = "ﾀﾁｶﾜｼ"
Range("C698").Value = "000707"
Range("E698").Value = "武蔵野市"
Range("G698").Value = "ﾑｻｼﾉｼ"
Range("C699").Value = "000708"
Range("E699").Value = "三鷹市"
Range("G699").Value = "ﾐﾀｶｼ"
Range("C700").Value = "000709"
Range("E700").Value = "青梅市"
Range("G700").Value = "ｵｳﾒｼ"
Range("C701").Value = "000710"
Range("E701").Value = "府中市"
Range("G701").Value = "ﾌﾁｭｳｼ"
Range("C702").Value = "000711"
Range("E702").Value = "昭島市"
Range("G702").Value = "ｱｷｼﾏｼ"
Range("C703").Value = "000712"
Range("E703").Value = "調布市"
Range("G703").Value = "ﾁｮｳﾌｼ"
Range("C704").Value = "000713"
Range("E704").Value = "町田市"
Range("G704").Value = "ﾏﾁﾀﾞｼ"
Range("C705").Value = "000714"
Range("E705").Value = "小金井市"
Range("G705").Value = "ｺｶﾞﾈｲｼ"
Range("C706").Value = "000715"
Range("E706").Value = "小平市"
Range("G706").Value = "ｺﾀﾞｲﾗｼ"
Range("C707").Value = "000716"
Range("E707").Value = "日野市"
Range("G707").Value = "ﾋﾉｼ"
Range("C708").Value = "000717"
Range("E708").Value = "東村山市"
Range("G708").Value = "ﾋｶﾞｼﾑﾗﾔﾏｼ"
Range("C709").Value = "000718"
Range("E709").Value = "国分寺市"
Range("G709").Value = "ｺｸﾌﾞﾝｼﾞｼ"
Range("C710").Value = "000719"
Range("E710").Value = "国立市"
Range("G710").Value = "ｸﾆﾀﾁｼ"
Range("C711").Value = "000720"
Range("E711").Value = "福生市"
Range("G711").Value = "ﾌｯｻｼ"
Range("C712").Value = "000721"
Range("E712").Value = "狛江市"
Range("G712").Value = "ｺﾏｴｼ"
Range("C713").Value = "000722"
Range("E713").Value = "東大和市"
Range("G713").Value = "ﾋｶﾞｼﾔﾏﾄｼ"
Range("C714").Value = "000723"
Range("E714").Value = "清瀬市"
Range("G714").Value = "ｷﾖｾｼ"
Range("C715").Value = "000724"
Range("E715").Value = "東久留米市"
Range("G715").Value = "ﾋｶﾞｼｸﾙﾒｼ"
Range("C716").Value = "000725"
Range("E716").Value = "武蔵村山市"
Range("G716").Value = "ﾑｻｼﾑﾗﾔﾏｼ"
Range("C717").Value = "000726"
Range("E717").Value = "多摩市"
Range("G717").Value = "ﾀﾏｼ"
Range("C718").Value = "000727"
Range("E718").Value = "稲城市"
Range("G718").Value = "ｲﾅｷﾞｼ"
Range("C719").Value = "000728"
Range("E719").Value = "羽村市"
Range("G719").Value = "ﾊﾑﾗｼ"
Range("C720").Value = "000729"
Range("E720").Value = "あきる野市"
Range("G720").Value = "ｱｷﾙﾉｼ"
Range("C721").Value = "000730"
Range("E721").Value = "西東京市"
Range("G721").Value = "ﾆｼﾄｳｷｮｳｼ"
Range("C722").Value = "000731"
Range("E722").Value = "瑞穂町"
Range("G722").Value = "ﾐｽﾞﾎﾏﾁ"
Range("C723").Value = "000732"
Range("E723").Value = "日の出町"
Range("G723").Value = "ﾋﾉﾃﾞﾏﾁ"
Range("C724").Value = "000733"
Range("E724").Value = "檜原村"
Range("G724").Value = "ﾋﾉﾊﾗﾑﾗ"
Range("C725").Value = "000734"
Range("E725").Value = "奥多摩町"
Range("G725").Value = "ｵｸﾀﾏﾏﾁ"
Range("C726").Value = "000735"
Range("E726").Value = "大島町"
Range("G726").Value = "ｵｵｼﾏﾏﾁ"
Range("C727").Value = "000736"
Range("E727").Value = "利島村"
Range("G727").Value = "ﾄｼﾏﾑﾗ"
Range("C728").Value = "000737"
Range("E728").Value = "新島村"
Range("G728").Value = "ﾆｲｼﾞﾏﾑﾗ"
Range("C729").Value = "000738"
Range("E729").Value = "神津島村"
Range("G729").Value = "ｺｳﾂﾞｼﾏﾑﾗ"
Range("C730").Value = "000739"
Range("E730").Value = "三宅村"
Range("G730").Value = "ﾐﾔｹﾑﾗ"
Range("C731").Value = "000740"
Range("E731").Value = "御蔵島村"
Range("G731").Value = "ﾐｸﾗｼﾞﾏﾑﾗ"
Range("C732").Value = "000741"
Range("E732").Value = "八丈町"
Range("G732").Value = "ﾊﾁｼﾞｮｳﾏﾁ"
Range("C733").Value = "000742"
Range("E733").Value = "青ヶ島村"
Range("G733").Value = "ｱｵｶﾞｼﾏﾑﾗ"
Range("C734").Value = "000743"
Range("E734").Value = "小笠原村"
Range("G734").Value = "ｵｶﾞｻﾜﾗﾑﾗ"
Range("C735").Value = "000744"
Range("F735:F796").Value = "ｶﾅｶﾞﾜｹﾝ"
Range("C736").Value = "000745"
Range("E736").Value = "横浜市"
Range("G736").Value = "ﾖｺﾊﾏｼ"
Range("C737").Value = "000746"
Range("E737").Value = "横浜市鶴見区"
Range("G737").Value = "よこはましつるみく"
Range("C738").Value = "000747"
Range("E738").Value = "横浜市神奈川区"
Range("G738").Value = "よこはましかながわく"
Range("C739").Value = "000748"
Range("E739").Value = "横浜市西区"
Range("G739").Value = "よこはましにしく"
Range("C740").Value = "000749"
Range("E740").Value = "横浜市中区"
Range("G740").Value = "よこはましなかく"
Range("C741").Value = "000750"
Range("E741").Value = "横浜市南区"
Range("G741").Value = "よこはましみなみく"
Range("C742").Value = "000751"
Range("E742").Value = "横浜市保土ケ谷区"
Range("G742").Value = "よこはましほどがやく"
Range("C743").Value = "000752"
Range("E743").Value = "横浜市磯子区"
Range("G743").Value = "よこはましいそごく"
Range("C744").Value = "000753"
Range("E744").Value = "横浜市金沢区"
Range("G744").Value = "よこはましかなざわく"
Range("C745").Value = "000754"
Range("E745").Value = "横浜市港北区"
Range("G745").Value = "よこはましこうほくく"
Range("C746").Value = "000755"
Range("E746").Value = "横浜市戸塚区"
Range("G746").Value = "よこはましとつかく"
Range("C747").Value = "000756"
Range("E747").Value = "横浜市港南区"
Range("G747").Value = "よこはましこうなんく"
Range("C748").Value = "000757"
Range("E748").Value = "横浜市旭区"
Range("G748").Value = "よこはましあさひく"
Range("C749").Value = "000758"
Range("E749").Value = "横浜市緑区"
Range("G749").Value = "よこはましみどりく"
Range("C750").Value = "000759"
Range("E750").Value = "横浜市瀬谷区"
Range("G750").Value = "よこはましせやく"
Range("C751").Value = "000760"
Range("E751").Value = "横浜市栄区"
Range("G751").Value = "よこはましさかえく"
Range("C752").Value = "000761"
Range("E752").Value = "横浜市泉区"
Range("G752").Value = "よこはましいずみく"
Range("C753").Value = "000762"
Range("E753").Value = "横浜市青葉区"
Range("G753").Value = "よこはましあおばく"
Range("C754").Value = "000763"
Range("E754").Value = "横浜市都筑区"
Range("G754").Value = "よこはましつづきく"
Range("C755").Value = "000764"
Range("E755").Value = "川崎市"
Range("G755").Value = "ｶﾜｻｷｼ"
Range("C756").Value = "000765"
Range("E756").Value = "川崎市川崎区"
Range("G756").Value = "かわさきしかわさきく"
Range("C757").Value = "000766"
Range("E757").Value = "川崎市幸区"
Range("G757").Value = "かわさきしさいわいく"
Range("C758").Value = "000767"
Range("E758").Value = "川崎市中原区"
Range("G758").Value = "かわさきしなかはらく"
Range("C759").Value = "000768"
Range("E759").Value = "川崎市高津区"
Range("G759").Value = "かわさきしたかつく"
Range("C760").Value = "000769"
Range("E760").Value = "川崎市多摩区"
Range("G760").Value = "かわさきしたまく"
Range("C761").Value = "000770"
Range("E761").Value = "川崎市宮前区"
Range("G761").Value = "かわさきしみやまえく"
Range("C762").Value = "000771"
Range("E762").Value = "川崎市麻生区"
Range("G762").Value = "かわさきしあさおく"
Range("C763").Value = "000772"
Range("E763").Value = "相模原市"
Range("G763").Value = "ｻｶﾞﾐﾊﾗｼ"
Range("C764").Value = "000773"
Range("E764").Value = "相模原市緑区"
Range("G764").Value = "さがみはらしみどりく"
Range("C765").Value = "000774"
Range("E765").Value = "相模原市中央区"
Range("G765").Value = "さがみはらしちゅうおうく"
Range("C766").Value = "000775"
Range("E766").Value = "相模原市南区"
Range("G766").Value = "さがみはらしみなみく"
Range("C767").Value = "000776"
Range("E767").Value = "横須賀市"
Range("G767").Value = "ﾖｺｽｶｼ"
Range("C768").Value = "000777"
Range("E768").Value = "平塚市"
Range("G768").Value = "ﾋﾗﾂｶｼ"
Range("C769").Value = "000778"
Range("E769").Value = "鎌倉市"
Range("G769").Value = "ｶﾏｸﾗｼ"
Range("C770").Value = "000779"
Range("E770").Value = "藤沢市"
Range("G770").Value = "ﾌｼﾞｻﾜｼ"
Range("C771").Value = "000780"
Range("E771").Value = "小田原市"
Range("G771").Value = "ｵﾀﾞﾜﾗｼ"
Range("C772").Value = "000781"
Range("E772").Value = "茅ヶ崎市"
Range("G772").Value = "ﾁｶﾞｻｷｼ"
Range("C773").Value = "000782"
Range("E773").Value = "逗子市"
Range("G773").Value = "ｽﾞｼｼ"
Range("C774").Value = "000783"
Range("E774").Value = "三浦市"
Range("G774").Value = "ﾐｳﾗｼ"
Range("C775").Value = "000784"
Range("E775").Value = "秦野市"
Range("G775").Value = "ﾊﾀﾞﾉｼ"
Range("C776").Value = "000785"
Range("E776").Value = "厚木市"
Range("G776").Value = "ｱﾂｷﾞｼ"
Range("C777").Value = "000786"
Range("E777").Value = "大和市"
Range("G777").Value = "ﾔﾏﾄｼ"
Range("C778").Value = "000787"
Range("E778").Value = "伊勢原市"
Range("G778").Value = "ｲｾﾊﾗｼ"
Range("C779").Value = "000788"
Range("E779").Value = "海老名市"
Range("G779").Value = "ｴﾋﾞﾅｼ"
Range("C780").Value = "000789"
Range("E780").Value = "座間市"
Range("G780").Value = "ｻﾞﾏｼ"
Range("C781").Value = "000790"
Range("E781").Value = "南足柄市"
Range("G781").Value = "ﾐﾅﾐｱｼｶﾞﾗｼ"
Range("C782").Value = "000791"
Range("E782").Value = "綾瀬市"
Range("G782").Value = "ｱﾔｾｼ"
Range("C783").Value = "000792"
Range("E783").Value = "葉山町"
Range("G783").Value = "ﾊﾔﾏﾏﾁ"
Range("C784").Value = "000793"
Range("E784").Value = "寒川町"
Range("G784").Value = "ｻﾑｶﾜﾏﾁ"
Range("C785").Value = "000794"
Range("E785").Value = "大磯町"
Range("G785").Value = "ｵｵｲｿﾏﾁ"
Range("C786").Value = "000795"
Range("E786").Value = "二宮町"
Range("G786").Value = "ﾆﾉﾐﾔﾏﾁ"
Range("C787").Value = "000796"
Range("E787").Value = "中井町"
Range("G787").Value = "ﾅｶｲﾏﾁ"
Range("C788").Value = "000797"
Range("E788").Value = "大井町"
Range("G788").Value = "ｵｵｲﾏﾁ"
Range("C789").Value = "000798"
Range("E789").Value = "松田町"
Range("G789").Value = "ﾏﾂﾀﾞﾏﾁ"
Range("C790").Value = "000799"
Range("E790").Value = "山北町"
Range("G790").Value = "ﾔﾏｷﾀﾏﾁ"
Range("C791").Value = "000800"
Range("E791").Value = "開成町"
Range("G791").Value = "ｶｲｾｲﾏﾁ"
Range("C792").Value = "000801"
Range("E792").Value = "箱根町"
Range("G792").Value = "ﾊｺﾈﾏﾁ"
Range("C793").Value = "000802"
Range("E793").Value = "真鶴町"
Range("G793").Value = "ﾏﾅﾂﾙﾏﾁ"
Range("C794").Value = "000803"
Range("E794").Value = "湯河原町"
Range("G794").Value = "ﾕｶﾞﾜﾗﾏﾁ"
Range("C795").Value = "000804"
Range("E795").Value = "愛川町"
Range("G795").Value = "ｱｲｶﾜﾏﾁ"
Range("C796").Value = "000805"
Range("E796").Value = "清川村"
Range("G796").Value = "ｷﾖｶﾜﾑﾗ"
Range("C797").Value = "000806"
Range("F797:F835").Value = "ﾆｲｶﾞﾀｹﾝ"
Range("C798").Value = "000807"
Range("E798").Value = "新潟市"
Range("G798").Value = "ﾆｲｶﾞﾀｼ"
Range("C799").Value = "000808"
Range("E799").Value = "新潟市北区"
Range("G799").Value = "にいがたしきたく"
Range("C800").Value = "000809"
Range("E800").Value = "新潟市東区"
Range("G800").Value = "にいがたしひがしく"
Range("C801").Value = "000810"
Range("E801").Value = "新潟市中央区"
Range("G801").Value = "にいがたしちゅうおうく"
Range("C802").Value = "000811"
Range("E802").Value = "新潟市江南区"
Range("G802").Value = "にいがたしこうなんく"
Range("C803").Value = "000812"
Range("E803").Value = "新潟市秋葉区"
Range("G803").Value = "にいがたしあきはく"
Range("C804").Value = "000813"
Range("E804").Value = "新潟市南区"
Range("G804").Value = "にいがたしみなみく"
Range("C805").Value = "000814"
Range("E805").Value = "新潟市西区"
Range("G805").Value = "にいがたしにしく"
Range("C806").Value = "000815"
Range("E806").Value = "新潟市西蒲区"
Range("G806").Value = "にいがたしにしかんく"
Range("C807").Value = "000816"
Range("E807").Value = "長岡市"
Range("G807").Value = "ﾅｶﾞｵｶｼ"
Range("C808").Value = "000817"
Range("E808").Value = "三条市"
Range("G808").Value = "ｻﾝｼﾞｮｳｼ"
Range("C809").Value = "000818"
Range("E809").Value = "柏崎市"
Range("G809").Value = "ｶｼﾜｻﾞｷｼ"
Range("C810").Value = "000819"
Range("E810").Value = "新発田市"
Range("G810").Value = "ｼﾊﾞﾀｼ"
Range("C811").Value = "000820"
Range("E811").Value = "小千谷市"
Range("G811").Value = "ｵﾁﾞﾔｼ"
Range("C812").Value = "000821"
Range("E812").Value = "加茂市"
Range("G812").Value = "ｶﾓｼ"
Range("C813").Value = "000822"
Range("E813").Value = "十日町市"
Range("G813").Value = "ﾄｵｶﾏﾁｼ"
Range("C814").Value = "000823"
Range("E814").Value = "見附市"
Range("G814").Value = "ﾐﾂｹｼ"
Range("C815").Value = "000824"
Range("E815").Value = "村上市"
Range("G815").Value = "ﾑﾗｶﾐｼ"
Range("C816").Value = "000825"
Range("E816").Value = "燕市"
Range("G816").Value = "ﾂﾊﾞﾒｼ"
Range("C817").Value = "000826"
Range("E817").Value = "糸魚川市"
Range("G817").Value = "ｲﾄｲｶﾞﾜｼ"
Range("C818").Value = "000827"
Range("E818").Value = "妙高市"
Range("G818").Value = "ﾐｮｳｺｳｼ"
Range("C819").Value = "000828"
Range("E819").Value = "五泉市"
Range("G819").Value = "ｺﾞｾﾝｼ"
Range("C820").Value = "000829"
Range("E820").Value = "上越市"
Range("G820").Value = "ｼﾞｮｳｴﾂｼ"
Range("C821").Value = "000830"
Range("E821").Value = "阿賀野市"
Range("G821").Value = "ｱｶﾞﾉｼ"
Range("C822").Value = "000831"
Range("E822").Value = "佐渡市"
Range("G822").Value = "ｻﾄﾞｼ"
Range("C823").Value = "000832"
Range("E823").Value = "魚沼市"
Range("G823").Value = "ｳｵﾇﾏｼ"
Range("C824").Value = "000833"
Range("E824").Value = "南魚沼市"
Range("G824").Value = "ﾐﾅﾐｳｵﾇﾏｼ"
Range("C825").Value = "000834"
Range("E825").Value = "胎内市"
Range("G825").Value = "ﾀｲﾅｲｼ"
Range("C826").Value = "000835"
Range("E826").Value = "聖籠町"
Range("G826").Value = "ｾｲﾛｳﾏﾁ"
Range("C827").Value = "000836"
Range("E827").Value = "弥彦村"
Range("G827").Value = "ﾔﾋｺﾑﾗ"
Range("C828").Value = "000837"
Range("E828").Value = "田上町"
Range("G828").Value = "ﾀｶﾞﾐﾏﾁ"
Range("C829").Value = "000838"
Range("E829").Value = "阿賀町"
Range("G829").Value = "ｱｶﾞﾏﾁ"
Range("C830").Value = "000839"
Range("E830").Value = "出雲崎町"
Range("G830").Value = "ｲｽﾞﾓｻﾞｷﾏﾁ"
Range("C831").Value = "000840"
Range("E831").Value = "湯沢町"
Range("G831").Value = "ﾕｻﾞﾜﾏﾁ"
Range("C832").Value = "000841"
Range("E832").Value = "津南町"
Range("G832").Value = "ﾂﾅﾝﾏﾁ"
Range("C833").Value = "000842"
Range("E833").Value = "刈羽村"
Range("G833").Value = "ｶﾘﾜﾑﾗ"
Range("C834").Value = "000843"
Range("E834").Value = "関川村"
Range("G834").Value = "ｾｷｶﾜﾑﾗ"
Range("C835").Value = "000844"
Range("E835").Value = "粟島浦村"
Range("G835").Value = "ｱﾜｼﾏｳﾗﾑﾗ"
Range("C836").Value = "000845"
Range("F836:F851").Value = "ﾄﾔﾏｹﾝ"
Range("C837").Value = "000846"
Range("E837").Value = "富山市"
Range("G837").Value = "ﾄﾔﾏｼ"
Range("C838").Value = "000847"
Range("E838").Value = "高岡市"
Range("G838").Value = "ﾀｶｵｶｼ"
Range("C839").Value = "000848"
Range("E839").Value = "魚津市"
Range("G839").Value = "ｳｵﾂﾞｼ"
Range("C840").Value = "000849"
Range("E840").Value = "氷見市"
Range("G840").Value = "ﾋﾐｼ"
Range("C841").Value = "000850"
Range("E841").Value = "滑川市"
Range("G841").Value = "ﾅﾒﾘｶﾜｼ"
Range("C842").Value = "000851"
Range("E842").Value = "黒部市"
Range("G842").Value = "ｸﾛﾍﾞｼ"
Range("C843").Value = "000852"
Range("E843").Value = "砺波市"
Range("G843").Value = "ﾄﾅﾐｼ"
Range("C844").Value = "000853"
Range("E844").Value = "小矢部市"
Range("G844").Value = "ｵﾔﾍﾞｼ"
Range("C845").Value = "000854"
Range("E845").Value = "南砺市"
Range("G845").Value = "ﾅﾝﾄｼ"
Range("C846").Value = "000855"
Range("E846").Value = "射水市"
Range("G846").Value = "ｲﾐｽﾞｼ"
Range("C847").Value = "000856"
Range("E847").Value = "舟橋村"
Range("G847").Value = "ﾌﾅﾊｼﾑﾗ"
Range("C848").Value = "000857"
Range("E848").Value = "上市町"
Range("G848").Value = "ｶﾐｲﾁﾏﾁ"
Range("C849").Value = "000858"
Range("E849").Value = "立山町"
Range("G849").Value = "ﾀﾃﾔﾏﾏﾁ"
Range("C850").Value = "000859"
Range("E850").Value = "入善町"
Range("G850").Value = "ﾆｭｳｾﾞﾝﾏﾁ"
Range("C851").Value = "000860"
Range("C852").Value = "000861"
Range("F852:F871").Value = "ｲｼｶﾜｹﾝ"
Range("C853").Value = "000862"
Range("E853").Value = "金沢市"
Range("G853").Value = "ｶﾅｻﾞﾜｼ"
Range("C854").Value = "000863"
Range("E854").Value = "七尾市"
Range("G854").Value = "ﾅﾅｵｼ"
Range("C855").Value = "000864"
Range("E855").Value = "小松市"
Range("G855").Value = "ｺﾏﾂｼ"
Range("C856").Value = "000865"
Range("E856").Value = "輪島市"
Range("G856").Value = "ﾜｼﾞﾏｼ"
Range("C857").Value = "000866"
Range("E857").Value = "珠洲市"
Range("G857").Value = "ｽｽﾞｼ"
Range("C858").Value = "000867"
Range("E858").Value = "加賀市"
Range("G858").Value = "ｶｶﾞｼ"
Range("C859").Value = "000868"
Range("E859").Value = "羽咋市"
Range("G859").Value = "ﾊｸｲｼ"
Range("C860").Value = "000869"
Range("E860").Value = "かほく市"
Range("G860").Value = "ｶﾎｸｼ"
Range("C861").Value = "000870"
Range("E861").Value = "白山市"
Range("G861").Value = "ﾊｸｻﾝｼ"
Range("C862").Value = "000871"
Range("E862").Value = "能美市"
Range("G862").Value = "ﾉﾐｼ"
Range("C863").Value = "000872"
Range("E863").Value = "野々市市"
Range("G863").Value = "ﾉﾉｲﾁｼ"
Range("C864").Value = "000873"
Range("E864").Value = "川北町"
Range("G864").Value = "ｶﾜｷﾀﾏﾁ"
Range("C865").Value = "000874"
Range("E865").Value = "津幡町"
Range("G865").Value = "ﾂﾊﾞﾀﾏﾁ"
Range("C866").Value = "000875"
Range("E866").Value = "内灘町"
Range("G866").Value = "ｳﾁﾅﾀﾞﾏﾁ"
Range("C867").Value = "000876"
Range("E867").Value = "志賀町"
Range("G867").Value = "ｼｶﾏﾁ"
Range("C868").Value = "000877"
Range("E868").Value = "宝達志水町"
Range("G868").Value = "ﾎｳﾀﾞﾂｼﾐｽﾞﾁｮｳ"
Range("C869").Value = "000878"
Range("E869").Value = "中能登町"
Range("G869").Value = "ﾅｶﾉﾄﾏﾁ"
Range("C870").Value = "000879"
Range("E870").Value = "穴水町"
Range("G870").Value = "ｱﾅﾐｽﾞﾏﾁ"
Range("C871").Value = "000880"
Range("E871").Value = "能登町"
Range("G871").Value = "ﾉﾄﾁｮｳ"
Range("C872").Value = "000881"
Range("F872:F889").Value = "ﾌｸｲｹﾝ"
Range("C873").Value = "000882"
Range("E873").Value = "福井市"
Range("G873").Value = "ﾌｸｲｼ"
Range("C874").Value = "000883"
Range("E874").Value = "敦賀市"
Range("G874").Value = "ﾂﾙｶﾞｼ"
Range("C875").Value = "000884"
Range("E875").Value = "小浜市"
Range("G875").Value = "ｵﾊﾞﾏｼ"
Range("C876").Value = "000885"
Range("E876").Value = "大野市"
Range("G876").Value = "ｵｵﾉｼ"
Range("C877").Value = "000886"
Range("E877").Value = "勝山市"
Range("G877").Value = "ｶﾂﾔﾏｼ"
Range("C878").Value = "000887"
Range("E878").Value = "鯖江市"
Range("G878").Value = "ｻﾊﾞｴｼ"
Range("C879").Value = "000888"
Range("E879").Value = "あわら市"
Range("G879").Value = "ｱﾜﾗｼ"
Range("C880").Value = "000889"
Range("E880").Value = "越前市"
Range("G880").Value = "ｴﾁｾﾞﾝｼ"
Range("C881").Value = "000890"
Range("E881").Value = "坂井市"
Range("G881,G1270").Value = "ｻｶｲｼ"
Range("C882").Value = "000891"
Range("E882").Value = "永平寺町"
Range("G882").Value = "ｴｲﾍｲｼﾞﾁｮｳ"
Range("C883").Value = "000892"
Range("C884").Value = "000893"
Range("E884").Value = "南越前町"
Range("G884").Value = "ﾐﾅﾐｴﾁｾﾞﾝﾁｮｳ"
Range("C885").Value = "000894"
Range("E885").Value = "越前町"
Range("G885").Value = "ｴﾁｾﾞﾝﾁｮｳ"
Range("C886").Value = "000895"
Range("E886,E1150,E1427").Value = "美浜町"
Range("G886,G1150,G1184,G1427").Value = "ﾐﾊﾏﾁｮｳ"
Range("C887").Value = "000896"
Range("E887").Value = "高浜町"
Range("G887").Value = "ﾀｶﾊﾏﾁｮｳ"
Range("C888").Value = "000897"
Range("E888").Value = "おおい町"
Range("G888").Value = "ｵｵｲﾁｮｳ"
Range("C889").Value = "000898"
Range("E889").Value = "若狭町"
Range("G889").Value = "ﾜｶｻﾁｮｳ"
Range("C890").Value = "000899"
Range("F890:F917").Value = "ﾔﾏﾅｼｹﾝ"
Range("C891").Value = "000900"
Range("E891").Value = "甲府市"
Range("G891").Value = "ｺｳﾌｼ"
Range("C892").Value = "000901"
Range("E892").Value = "富士吉田市"
Range("G892").Value = "ﾌｼﾞﾖｼﾀﾞｼ"
Range("C893").Value = "000902"
Range("E893").Value = "都留市"
Range("G893").Value = "ﾂﾙｼ"
Range("C894").Value = "000903"
Range("E894").Value = "山梨市"
Range("G894").Value = "ﾔﾏﾅｼｼ"
Range("C895").Value = "000904"
Range("E895").Value = "大月市"
Range("G895").Value = "ｵｵﾂｷｼ"
Range("C896").Value = "000905"
Range("E896").Value = "韮崎市"
Range("G896").Value = "ﾆﾗｻｷｼ"
Range("C897").Value = "000906"
Range("E897").Value = "南アルプス市"
Range("G897").Value = "ﾐﾅﾐｱﾙﾌﾟｽｼ"
Range("C898").Value = "000907"
Range("E898").Value = "北杜市"
Range("C899").Value = "000908"
Range("E899").Value = "甲斐市"
Range("G899").Value = "ｶｲｼ"
Range("C900").Value = "000909"
Range("E900").Value = "笛吹市"
Range("G900").Value = "ﾌｴﾌｷｼ"
Range("C901").Value = "000910"
Range("E901").Value = "上野原市"
Range("G901").Value = "ｳｴﾉﾊﾗｼ"
Range("C902").Value = "000911"
Range("E902").Value = "甲州市"
Range("G902").Value = "ｺｳｼｭｳｼ"
Range("C903").Value = "000912"
Range("E903").Value = "中央市"
Range("G903").Value = "ﾁｭｳｵｳｼ"
Range("C904").Value = "000913"
Range("E904").Value = "市川三郷町"
Range("G904").Value = "ｲﾁｶﾜﾐｻﾄﾁｮｳ"
Range("C905").Value = "000914"
Range("E905").Value = "早川町"
Range("G905").Value = "ﾊﾔｶﾜﾁｮｳ"
Range("C906").Value = "000915"
Range("E906").Value = "身延町"
Range("G906").Value = "ﾐﾉﾌﾞﾁｮｳ"
Range("C907").Value = "000916"
Range("C908").Value = "000917"
Range("E908").Value = "富士川町"
Range("G908").Value = "ﾌｼﾞｶﾜﾁｮｳ"
Range("C909").Value = "000918"
Range("E909").Value = "昭和町"
Range("G909").Value = "ｼｮｳﾜﾁｮｳ"
Range("C910").Value = "000919"
Range("E910").Value = "道志村"
Range("G910").Value = "ﾄﾞｳｼﾑﾗ"
Range("C911").Value = "000920"
Range("E911").Value = "西桂町"
Range("G911").Value = "ﾆｼｶﾂﾗﾁｮｳ"
Range("C912").Value = "000921"
Range("E912").Value = "忍野村"
Range("G912").Value = "ｵｼﾉﾑﾗ"
Range("C913").Value = "000922"
Range("E913").Value = "山中湖村"
Range("G913").Value = "ﾔﾏﾅｶｺﾑﾗ"
Range("C914").Value = "000923"
Range("E914").Value = "鳴沢村"
Range("G914").Value = "ﾅﾙｻﾜﾑﾗ"
Range("C915").Value = "000924"
Range("E915").Value = "富士河口湖町"
Range("G915").Value = "ﾌｼﾞｶﾜｸﾞﾁｺﾏﾁ"
Range("C916").Value = "000925"
Range("E916").Value = "小菅村"
Range("G916").Value = "ｺｽｹﾞﾑﾗ"
Range("C917").Value = "000926"
Range("E917").Value = "丹波山村"
Range("G917").Value = "ﾀﾊﾞﾔﾏﾑﾗ"
Range("C918").Value = "000927"
Range("F918:F995").Value = "ﾅｶﾞﾉｹﾝ"
Range("C919").Value = "000928"
Range("E919").Value = "長野市"
Range("G919").Value = "ﾅｶﾞﾉｼ"
Range("C920").Value = "000929"
Range("E920").Value = "松本市"
Range("G920").Value = "ﾏﾂﾓﾄｼ"
Range("C921").Value = "000930"
Range("E921").Value = "上田市"
Range("G921").Value = "ｳｴﾀﾞｼ"
Range("C922").Value = "000931"
Range("E922").Value = "岡谷市"
Range("G922").Value = "ｵｶﾔｼ"
Range("C923").Value = "000932"
Range("E923").Value = "飯田市"
Range("G923").Value = "ｲｲﾀﾞｼ"
Range("C924").Value = "000933"
Range("E924").Value = "諏訪市"
Range("G924").Value = "ｽﾜｼ"
Range("C925").Value = "000934"
Range("E925").Value = "須坂市"
Range("G925").Value = "ｽｻﾞｶｼ"
Range("C926").Value = "000935"
Range("E926").Value = "小諸市"
Range("G926").Value = "ｺﾓﾛｼ"
Range("C927").Value = "000936"
Range("E927").Value = "伊那市"
Range("G927").Value = "ｲﾅｼ"
Range("C928").Value = "000937"
Range("E928").Value = "駒ヶ根市"
Range("G928").Value = "ｺﾏｶﾞﾈｼ"
Range("C929").Value = "000938"
Range("E929").Value = "中野市"
Range("G929").Value = "ﾅｶﾉｼ"
Range("C930").Value = "000939"
Range("E930").Value = "大町市"
Range("G930").Value = "ｵｵﾏﾁｼ"
Range("C931").Value = "000940"
Range("E931").Value = "飯山市"
Range("G931").Value = "ｲｲﾔﾏｼ"
Range("C932").Value = "000941"
Range("E932").Value = "茅野市"
Range("G932").Value = "ﾁﾉｼ"
Range("C933").Value = "000942"
Range("E933").Value = "塩尻市"
Range("G933").Value = "ｼｵｼﾞﾘｼ"
Range("C934").Value = "000943"
Range("E934").Value = "佐久市"
Range("G934").Value = "ｻｸｼ"
Range("C935").Value = "000944"
Range("E935").Value = "千曲市"
Range("G935").Value = "ﾁｸﾏｼ"
Range("C936").Value = "000945"
Range("E936").Value = "東御市"
Range("G936").Value = "ﾄｳﾐｼ"
Range("C937").Value = "000946"
Range("E937").Value = "安曇野市"
Range("G937").Value = "ｱﾂﾞﾐﾉｼ"
Range("C938").Value = "000947"
Range("E938").Value = "小海町"
Range("G938").Value = "ｺｳﾐﾏﾁ"
Range("C939").Value = "000948"
Range("E939,E1408").Value = "川上村"
Range("G939,G1408").Value = "ｶﾜｶﾐﾑﾗ"
Range("C940").Value = "000949"
Range("G940").Value = "ﾐﾅﾐﾏｷﾑﾗ"
Range("C941").Value = "000950"
Range("E941").Value = "南相木村"
Range("G941").Value = "ﾐﾅﾐｱｲｷﾑﾗ"
Range("C942").Value = "000951"
Range("E942").Value = "北相木村"
Range("G942").Value = "ｷﾀｱｲｷﾑﾗ"
Range("C943").Value = "000952"
Range("E943").Value = "佐久穂町"
Range("G943").Value = "ｻｸﾎﾏﾁ"
Range("C944").Value = "000953"
Range("E944").Value = "軽井沢町"
Range("G944").Value = "ｶﾙｲｻﾞﾜﾏﾁ"
Range("C945").Value = "000954"
Range("E945").Value = "御代田町"
Range("G945").Value = "ﾐﾖﾀﾏﾁ"
Range("C946").Value = "000955"
Range("E946").Value = "立科町"
Range("G946").Value = "ﾀﾃｼﾅﾏﾁ"
Range("C947").Value = "000956"
Range("E947").Value = "青木村"
Range("G947").Value = "ｱｵｷﾑﾗ"
Range("C948").Value = "000957"
Range("E948").Value = "長和町"
Range("G948").Value = "ﾅｶﾞﾜﾏﾁ"
Range("C949").Value = "000958"
Range("E949").Value = "下諏訪町"
Range("G949").Value = "ｼﾓｽﾜﾏﾁ"
Range("C950").Value = "000959"
Range("E950").Value = "富士見町"
Range("G950").Value = "ﾌｼﾞﾐﾏﾁ"
Range("C951").Value = "000960"
Range("E951").Value = "原村"
Range("G951").Value = "ﾊﾗﾑﾗ"
Range("C952").Value = "000961"
Range("E952").Value = "辰野町"
Range("G952").Value = "ﾀﾂﾉﾏﾁ"
Range("C953").Value = "000962"
Range("E953").Value = "箕輪町"
Range("G953").Value = "ﾐﾉﾜﾏﾁ"
Range("C954").Value = "000963"
Range("E954").Value = "飯島町"
Range("G954").Value = "ｲｲｼﾞﾏﾏﾁ"
Range("C955").Value = "000964"
Range("E955").Value = "南箕輪村"
Range("G955").Value = "ﾐﾅﾐﾐﾉﾜﾑﾗ"
Range("C956").Value = "000965"
Range("E956").Value = "中川村"
Range("G956").Value = "ﾅｶｶﾞﾜﾑﾗ"
Range("C957").Value = "000966"
Range("E957").Value = "宮田村"
Range("G957").Value = "ﾐﾔﾀﾞﾑﾗ"
Range("C958").Value = "000967"
Range("E958").Value = "松川町"
Range("G958").Value = "ﾏﾂｶﾜﾏﾁ"
Range("C959").Value = "000968"
Range("E959").Value = "高森町"
Range("G959").Value = "ﾀｶﾓﾘﾏﾁ"
Range("C960").Value = "000969"
Range("E960").Value = "阿南町"
Range("G960").Value = "ｱﾅﾝﾁｮｳ"
Range("C961").Value = "000970"
Range("E961").Value = "阿智村"
Range("G961").Value = "ｱﾁﾑﾗ"
Range("C962").Value = "000971"
Range("E962").Value = "平谷村"
Range("G962").Value = "ﾋﾗﾔﾑﾗ"
Range("C963").Value = "000972"
Range("E963").Value = "根羽村"
Range("G963").Value = "ﾈﾊﾞﾑﾗ"
Range("C964").Value = "000973"
Range("E964").Value = "下條村"
Range("G964").Value = "ｼﾓｼﾞｮｳﾑﾗ"
Range("C965").Value = "000974"
Range("E965").Value = "売木村"
Range("G965").Value = "ｳﾙｷﾞﾑﾗ"
Range("C966").Value = "000975"
Range("E966").Value = "天龍村"
Range("G966").Value = "ﾃﾝﾘｭｳﾑﾗ"
Range("C967").Value = "000976"
Range("E967").Value = "泰阜村"
Range("G967").Value = "ﾔｽｵｶﾑﾗ"
Range("C968").Value = "000977"
Range("E968").Value = "喬木村"
Range("G968").Value = "ﾀｶｷﾞﾑﾗ"
Range("C969").Value = "000978"
Range("E969").Value = "豊丘村"
Range("G969").Value = "ﾄﾖｵｶﾑﾗ"
Range("C970").Value = "000979"
Range("E970").Value = "大鹿村"
Range("G970").Value = "ｵｵｼｶﾑﾗ"
Range("C971").Value = "000980"
Range("E971").Value = "上松町"
Range("G971").Value = "ｱｹﾞﾏﾂﾏﾁ"
Range("C972").Value = "000981"
Range("E972").Value = "南木曽町"
Range("G972").Value = "ﾅｷﾞｿﾏﾁ"
Range("C973").Value = "000982"
Range("E973").Value = "木祖村"
Range("G973").Value = "ｷｿﾑﾗ"
Range("C974").Value = "000983"
Range("E974").Value = "王滝村"
Range("G974").Value = "ｵｳﾀｷﾑﾗ"
Range("C975").Value = "000984"
Range("E975").Value = "大桑村"
Range("G975").Value = "ｵｵｸﾜﾑﾗ"
Range("C976").Value = "000985"
Range("E976").Value = "木曽町"
Range("G976").Value = "ｷｿﾏﾁ"
Range("C977").Value = "000986"
Range("E977").Value = "麻績村"
Range("G977").Value = "ｵﾐﾑﾗ"
Range("C978").Value = "000987"
Range("E978").Value = "生坂村"
Range("G978").Value = "ｲｸｻｶﾑﾗ"
Range("C979").Value = "000988"
Range("E979").Value = "山形村"
Range("G979").Value = "ﾔﾏｶﾞﾀﾑﾗ"
Range("C980").Value = "000989"
Range("E980").Value = "朝日村"
Range("G980").Value = "ｱｻﾋﾑﾗ"
Range("C981").Value = "000990"
Range("E981").Value = "筑北村"
Range("G981").Value = "ﾁｸﾎｸﾑﾗ"
Range("C982").Value = "000991"
Range("G982").Value = "ｲｹﾀﾞﾏﾁ"
Range("C983").Value = "000992"
Range("E983").Value = "松川村"
Range("G983").Value = "ﾏﾂｶﾜﾑﾗ"
Range("C984").Value = "000993"
Range("E984").Value = "白馬村"
Range("G984").Value = "ﾊｸﾊﾞﾑﾗ"
Range("C985").Value = "000994"
Range("E985").Value = "小谷村"
Range("G985").Value = "ｵﾀﾘﾑﾗ"
Range("C986").Value = "000995"
Range("E986").Value = "坂城町"
Range("G986").Value = "ｻｶｷﾏﾁ"
Range("C987").Value = "000996"
Range("E987").Value = "小布施町"
Range("G987").Value = "ｵﾌﾞｾﾏﾁ"
Range("C988").Value = "000997"
Range("C989").Value = "000998"
Range("E989").Value = "山ノ内町"
Range("G989").Value = "ﾔﾏﾉｳﾁﾏﾁ"
Range("C990").Value = "000999"
Range("E990").Value = "木島平村"
Range("G990").Value = "ｷｼﾞﾏﾀﾞｲﾗﾑﾗ"
Range("C991").Value = "001000"
Range("E991").Value = "野沢温泉村"
Range("G991").Value = "ﾉｻﾞﾜｵﾝｾﾝﾑﾗ"
Range("C992").Value = "001001"
Range("E992").Value = "信濃町"
Range("G992").Value = "ｼﾅﾉﾏﾁ"
Range("C993").Value = "001002"
Range("E993").Value = "小川村"
Range("G993").Value = "ｵｶﾞﾜﾑﾗ"
Range("C994").Value = "001003"
Range("E994").Value = "飯綱町"
Range("G994").Value = "ｲｲﾂﾞﾅﾏﾁ"
Range("C995").Value = "001004"
Range("E995").Value = "栄村"
Range("G995").Value = "ｻｶｴﾑﾗ"
Range("C996").Value = "001005"
Range("F996:F1038").Value = "ｷﾞﾌｹﾝ"
Range("C997").Value = "001006"
Range("E997").Value = "岐阜市"
Range("G997").Value = "ｷﾞﾌｼ"
Range("C998").Value = "001007"
Range("E998").Value = "大垣市"
Range("G998").Value = "ｵｵｶﾞｷｼ"
Range("C999").Value = "001008"
Range("E999").Value = "高山市"
Range("G999").Value = "ﾀｶﾔﾏｼ"
Range("C1000").Value = "001009"
Range("E1000").Value = "多治見市"
Range("G1000").Value = "ﾀｼﾞﾐｼ"
Range("C1001").Value = "001010"
Range("E1001").Value = "関市"
Range("G1001").Value = "ｾｷｼ"
Range("C1002").Value = "001011"
Range("E1002").Value = "中津川市"
Range("G1002").Value = "ﾅｶﾂｶﾞﾜｼ"
Range("C1003").Value = "001012"
Range("E1003").Value = "美濃市"
Range("G1003").Value = "ﾐﾉｼ"
Range("C1004").Value = "001013"
Range("E1004").Value = "瑞浪市"
Range("G1004").Value = "ﾐｽﾞﾅﾐｼ"
Range("C1005").Value = "001014"
Range("E1005").Value = "羽島市"
Range("G1005").Value = "ﾊｼﾏｼ"
Range("C1006").Value = "001015"
Range("E1006").Value = "恵那市"
Range("G1006").Value = "ｴﾅｼ"
Range("C1007").Value = "001016"
Range("E1007").Value = "美濃加茂市"
Range("G1007").Value = "ﾐﾉｶﾓｼ"
Range("C1008").Value = "001017"
Range("E1008").Value = "土岐市"
Range("G1008").Value = "ﾄｷｼ"
Range("C1009").Value = "001018"
Range("E1009").Value = "各務原市"
Range("G1009").Value = "ｶｶﾐｶﾞﾊﾗｼ"
Range("C1010").Value = "001019"
Range("E1010").Value = "可児市"
Range("G1010").Value = "ｶﾆｼ"
Range("C1011").Value = "001020"
Range("E1011").Value = "山県市"
Range("C1012").Value = "001021"
Range("E1012").Value = "瑞穂市"
Range("G1012").Value = "ﾐｽﾞﾎｼ"
Range("C1013").Value = "001022"
Range("E1013").Value = "飛騨市"
Range("G1013").Value = "ﾋﾀﾞｼ"
Range("C1014").Value = "001023"
Range("E1014").Value = "本巣市"
Range("G1014").Value = "ﾓﾄｽｼ"
Range("C1015").Value = "001024"
Range("E1015").Value = "郡上市"
Range("G1015").Value = "ｸﾞｼﾞｮｳｼ"
Range("C1016").Value = "001025"
Range("E1016").Value = "下呂市"
Range("G1016").Value = "ｹﾞﾛｼ"
Range("C1017").Value = "001026"
Range("E1017").Value = "海津市"
Range("G1017").Value = "ｶｲﾂﾞｼ"
Range("C1018").Value = "001027"
Range("E1018").Value = "岐南町"
Range("G1018").Value = "ｷﾞﾅﾝﾁｮｳ"
Range("C1019").Value = "001028"
Range("E1019").Value = "笠松町"
Range("G1019").Value = "ｶｻﾏﾂﾁｮｳ"
Range("C1020").Value = "001029"
Range("E1020").Value = "養老町"
Range("G1020").Value = "ﾖｳﾛｳﾁｮｳ"
Range("C1021").Value = "001030"
Range("E1021").Value = "垂井町"
Range("G1021").Value = "ﾀﾙｲﾁｮｳ"
Range("C1022").Value = "001031"
Range("E1022").Value = "関ケ原町"
Range("G1022").Value = "ｾｷｶﾞﾊﾗﾁｮｳ"
Range("C1023").Value = "001032"
Range("E1023").Value = "神戸町"
Range("G1023").Value = "ｺﾞｳﾄﾞﾁｮｳ"
Range("C1024").Value = "001033"
Range("E1024").Value = "輪之内町"
Range("G1024").Value = "ﾜﾉｳﾁﾁｮｳ"
Range("C1025").Value = "001034"
Range("E1025").Value = "安八町"
Range("G1025").Value = "ｱﾝﾊﾟﾁﾁｮｳ"
Range("C1026").Value = "001035"
Range("E1026").Value = "揖斐川町"
Range("G1026").Value = "ｲﾋﾞｶﾞﾜﾁｮｳ"
Range("C1027").Value = "001036"
Range("E1027").Value = "大野町"
Range("G1027").Value = "ｵｵﾉﾁｮｳ"
Range("C1028").Value = "001037"
Range("C1029").Value = "001038"
Range("E1029").Value = "北方町"
Range("G1029").Value = "ｷﾀｶﾞﾀﾁｮｳ"
Range("C1030").Value = "001039"
Range("E1030").Value = "坂祝町"
Range("G1030").Value = "ｻｶﾎｷﾞﾁｮｳ"
Range("C1031").Value = "001040"
Range("E1031").Value = "富加町"
Range("G1031").Value = "ﾄﾐｶﾁｮｳ"
Range("C1032").Value = "001041"
Range("E1032").Value = "川辺町"
Range("G1032").Value = "ｶﾜﾍﾞﾁｮｳ"
Range("C1033").Value = "001042"
Range("E1033").Value = "七宗町"
Range("G1033").Value = "ﾋﾁｿｳﾁｮｳ"
Range("C1034").Value = "001043"
Range("E1034").Value = "八百津町"
Range("G1034").Value = "ﾔｵﾂﾁｮｳ"
Range("C1035").Value = "001044"
Range("E1035").Value = "白川町"
Range("G1035").Value = "ｼﾗｶﾜﾁｮｳ"
Range("C1036").Value = "001045"
Range("E1036").Value = "東白川村"
Range("G1036").Value = "ﾋｶﾞｼｼﾗｶﾜﾑﾗ"
Range("C1037").Value = "001046"
Range("E1037").Value = "御嵩町"
Range("G1037").Value = "ﾐﾀｹﾁｮｳ"
Range("C1038").Value = "001047"
Range("E1038").Value = "白川村"
Range("G1038").Value = "ｼﾗｶﾜﾑﾗ"
Range("C1039").Value = "001048"
Range("F1039:F1084").Value = "ｼｽﾞｵｶｹﾝ"
Range("C1040").Value = "001049"
Range("E1040").Value = "静岡市"
Range("G1040").Value = "ｼｽﾞｵｶｼ"
Range("C1041").Value = "001050"
Range("E1041").Value = "静岡市葵区"
Range("G1041").Value = "しずおかしあおいく"
Range("C1042").Value = "001051"
Range("E1042").Value = "静岡市駿河区"
Range("G1042").Value = "しずおかしするがく"
Range("C1043").Value = "001052"
Range("E1043").Value = "静岡市清水区"
Range("G1043").Value = "しずおかししみずく"
Range("C1044").Value = "001053"
Range("E1044").Value = "浜松市"
Range("G1044").Value = "ﾊﾏﾏﾂｼ"
Range("C1045").Value = "001054"
Range("E1045").Value = "浜松市中区"
Range("G1045").Value = "はままつしなかく"
Range("C1046").Value = "001055"
Range("E1046").Value = "浜松市東区"
Range("G1046").Value = "はままつしひがしく"
Range("C1047").Value = "001056"
Range("E1047").Value = "浜松市西区"
Range("G1047").Value = "はままつしにしく"
Range("C1048").Value = "001057"
Range("E1048").Value = "浜松市南区"
Range("G1048").Value = "はままつしみなみく"
Range("C1049").Value = "001058"
Range("E1049").Value = "浜松市北区"
Range("G1049").Value = "はままつしきたく"
Range("C1050").Value = "001059"
Range("E1050").Value = "浜松市浜北区"
Range("G1050").Value = "はままつしはまきたく"
Range("C1051").Value = "001060"
Range("E1051").Value = "浜松市天竜区"
Range("G1051").Value = "はままつしてんりゅうく"
Range("C1052").Value = "001061"
Range("E1052").Value = "沼津市"
Range("G1052").Value = "ﾇﾏﾂﾞｼ"
Range("C1053").Value = "001062"
Range("E1053").Value = "熱海市"
Range("G1053").Value = "ｱﾀﾐｼ"
Range("C1054").Value = "001063"
Range("E1054").Value = "三島市"
Range("G1054").Value = "ﾐｼﾏｼ"
Range("C1055").Value = "001064"
Range("E1055").Value = "富士宮市"
Range("G1055").Value = "ﾌｼﾞﾉﾐﾔｼ"
Range("C1056").Value = "001065"
Range("E1056").Value = "伊東市"
Range("G1056").Value = "ｲﾄｳｼ"
Range("C1057").Value = "001066"
Range("E1057").Value = "島田市"
Range("G1057").Value = "ｼﾏﾀﾞｼ"
Range("C1058").Value = "001067"
Range("E1058").Value = "富士市"
Range("G1058").Value = "ﾌｼﾞｼ"
Range("C1059").Value = "001068"
Range("E1059").Value = "磐田市"
Range("G1059").Value = "ｲﾜﾀｼ"
Range("C1060").Value = "001069"
Range("E1060").Value = "焼津市"
Range("G1060").Value = "ﾔｲﾂﾞｼ"
Range("C1061").Value = "001070"
Range("E1061").Value = "掛川市"
Range("G1061").Value = "ｶｹｶﾞﾜｼ"
Range("C1062").Value = "001071"
Range("E1062").Value = "藤枝市"
Range("G1062").Value = "ﾌｼﾞｴﾀﾞｼ"
Range("C1063").Value = "001072"
Range("E1063").Value = "御殿場市"
Range("G1063").Value = "ｺﾞﾃﾝﾊﾞｼ"
Range("C1064").Value = "001073"
Range("E1064").Value = "袋井市"
Range("G1064").Value = "ﾌｸﾛｲｼ"
Range("C1065").Value = "001074"
Range("E1065").Value = "下田市"
Range("G1065").Value = "ｼﾓﾀﾞｼ"
Range("C1066").Value = "001075"
Range("E1066").Value = "裾野市"
Range("G1066").Value = "ｽｿﾉｼ"
Range("C1067").Value = "001076"
Range("E1067").Value = "湖西市"
Range("G1067").Value = "ｺｻｲｼ"
Range("C1068").Value = "001077"
Range("E1068").Value = "伊豆市"
Range("G1068").Value = "ｲｽﾞｼ"
Range("C1069").Value = "001078"
Range("E1069").Value = "御前崎市"
Range("G1069").Value = "ｵﾏｴｻﾞｷｼ"
Range("C1070").Value = "001079"
Range("E1070").Value = "菊川市"
Range("G1070").Value = "ｷｸｶﾞﾜｼ"
Range("C1071").Value = "001080"
Range("E1071").Value = "伊豆の国市"
Range("G1071").Value = "ｲｽﾞﾉｸﾆｼ"
Range("C1072").Value = "001081"
Range("E1072").Value = "牧之原市"
Range("G1072").Value = "ﾏｷﾉﾊﾗｼ"
Range("C1073").Value = "001082"
Range("E1073").Value = "東伊豆町"
Range("G1073").Value = "ﾋｶﾞｼｲｽﾞﾁｮｳ"
Range("C1074").Value = "001083"
Range("E1074").Value = "河津町"
Range("G1074").Value = "ｶﾜﾂﾞﾁｮｳ"
Range("C1075").Value = "001084"
Range("E1075").Value = "南伊豆町"
Range("G1075").Value = "ﾐﾅﾐｲｽﾞﾁｮｳ"
Range("C1076").Value = "001085"
Range("E1076").Value = "松崎町"
Range("G1076").Value = "ﾏﾂｻﾞｷﾁｮｳ"
Range("C1077").Value = "001086"
Range("E1077").Value = "西伊豆町"
Range("G1077").Value = "ﾆｼｲｽﾞﾁｮｳ"
Range("C1078").Value = "001087"
Range("E1078").Value = "函南町"
Range("G1078").Value = "ｶﾝﾅﾐﾁｮｳ"
Range("C1079").Value = "001088"
Range("C1080").Value = "001089"
Range("E1080").Value = "長泉町"
Range("G1080").Value = "ﾅｶﾞｲｽﾞﾐﾁｮｳ"
Range("C1081").Value = "001090"
Range("E1081").Value = "小山町"
Range("G1081").Value = "ｵﾔﾏﾁｮｳ"
Range("C1082").Value = "001091"
Range("E1082").Value = "吉田町"
Range("G1082").Value = "ﾖｼﾀﾞﾁｮｳ"
Range("C1083").Value = "001092"
Range("E1083").Value = "川根本町"
Range("G1083").Value = "ｶﾜﾈﾎﾝﾁｮｳ"
Range("C1084").Value = "001093"
Range("C1085").Value = "001094"
Range("F1085:F1155").Value = "ｱｲﾁｹﾝ"
Range("C1086").Value = "001095"
Range("E1086").Value = "名古屋市"
Range("G1086").Value = "ﾅｺﾞﾔｼ"
Range("C1087").Value = "001096"
Range("E1087").Value = "名古屋市千種区"
Range("G1087").Value = "なごやしちくさく"
Range("C1088").Value = "001097"
Range("E1088").Value = "名古屋市東区"
Range("G1088").Value = "なごやしひがしく"
Range("C1089").Value = "001098"
Range("E1089").Value = "名古屋市北区"
Range("G1089").Value = "なごやしきたく"
Range("C1090").Value = "001099"
Range("E1090").Value = "名古屋市西区"
Range("G1090").Value = "なごやしにしく"
Range("C1091").Value = "001100"
Range("E1091").Value = "名古屋市中村区"
Range("G1091").Value = "なごやしなかむらく"
Range("C1092").Value = "001101"
Range("E1092").Value = "名古屋市中区"
Range("G1092").Value = "なごやしなかく"
Range("C1093").Value = "001102"
Range("E1093").Value = "名古屋市昭和区"
Range("G1093").Value = "なごやししょうわく"
Range("C1094").Value = "001103"
Range("E1094").Value = "名古屋市瑞穂区"
Range("G1094").Value = "なごやしみずほく"
Range("C1095").Value = "001104"
Range("E1095").Value = "名古屋市熱田区"
Range("G1095").Value = "なごやしあつたく"
Range("C1096").Value = "001105"
Range("E1096").Value = "名古屋市中川区"
Range("G1096").Value = "なごやしなかがわく"
Range("C1097").Value = "001106"
Range("E1097").Value = "名古屋市港区"
Range("G1097").Value = "なごやしみなとく"
Range("C1098").Value = "001107"
Range("E1098").Value = "名古屋市南区"
Range("G1098").Value = "なごやしみなみく"
Range("C1099").Value = "001108"
Range("E1099").Value = "名古屋市守山区"
Range("G1099").Value = "なごやしもりやまく"
Range("C1100").Value = "001109"
Range("E1100").Value = "名古屋市緑区"
Range("G1100").Value = "なごやしみどりく"
Range("C1101").Value = "001110"
Range("E1101").Value = "名古屋市名東区"
Range("G1101").Value = "なごやしめいとうく"
Range("C1102").Value = "001111"
Range("E1102").Value = "名古屋市天白区"
Range("G1102").Value = "なごやしてんぱくく"
Range("C1103").Value = "001112"
Range("E1103").Value = "豊橋市"
Range("G1103").Value = "ﾄﾖﾊｼｼ"
Range("C1104").Value = "001113"
Range("E1104").Value = "岡崎市"
Range("G1104").Value = "ｵｶｻﾞｷｼ"
Range("C1105").Value = "001114"
Range("E1105").Value = "一宮市"
Range("G1105").Value = "ｲﾁﾉﾐﾔｼ"
Range("C1106").Value = "001115"
Range("E1106").Value = "瀬戸市"
Range("G1106").Value = "ｾﾄｼ"
Range("C1107").Value = "001116"
Range("E1107").Value = "半田市"
Range("G1107").Value = "ﾊﾝﾀﾞｼ"
Range("C1108").Value = "001117"
Range("E1108").Value = "春日井市"
Range("G1108").Value = "ｶｽｶﾞｲｼ"
Range("C1109").Value = "001118"
Range("E1109").Value = "豊川市"
Range("G1109").Value = "ﾄﾖｶﾜｼ"
Range("C1110").Value = "001119"
Range("E1110").Value = "津島市"
Range("G1110").Value = "ﾂｼﾏｼ"
Range("C1111").Value = "001120"
Range("E1111").Value = "碧南市"
Range("G1111").Value = "ﾍｷﾅﾝｼ"
Range("C1112").Value = "001121"
Range("E1112").Value = "刈谷市"
Range("G1112").Value = "ｶﾘﾔｼ"
Range("C1113").Value = "001122"
Range("E1113").Value = "豊田市"
Range("G1113").Value = "ﾄﾖﾀｼ"
Range("C1114").Value = "001123"
Range("E1114").Value = "安城市"
Range("G1114").Value = "ｱﾝｼﾞｮｳｼ"
Range("C1115").Value = "001124"
Range("E1115").Value = "西尾市"
Range("G1115").Value = "ﾆｼｵｼ"
Range("C1116").Value = "001125"
Range("E1116").Value = "蒲郡市"
Range("G1116").Value = "ｶﾞﾏｺﾞｵﾘｼ"
Range("C1117").Value = "001126"
Range("E1117").Value = "犬山市"
Range("G1117").Value = "ｲﾇﾔﾏｼ"
Range("C1118").Value = "001127"
Range("E1118").Value = "常滑市"
Range("G1118").Value = "ﾄｺﾅﾒｼ"
Range("C1119").Value = "001128"
Range("E1119").Value = "江南市"
Range("G1119").Value = "ｺｳﾅﾝｼ"
Range("C1120").Value = "001129"
Range("E1120").Value = "小牧市"
Range("G1120").Value = "ｺﾏｷｼ"
Range("C1121").Value = "001130"
Range("E1121").Value = "稲沢市"
Range("G1121").Value = "ｲﾅｻﾞﾜｼ"
Range("C1122").Value = "001131"
Range("E1122").Value = "新城市"
Range("G1122").Value = "ｼﾝｼﾛｼ"
Range("C1123").Value = "001132"
Range("E1123").Value = "東海市"
Range("G1123").Value = "ﾄｳｶｲｼ"
Range("C1124").Value = "001133"
Range("E1124").Value = "大府市"
Range("G1124").Value = "ｵｵﾌﾞｼ"
Range("C1125").Value = "001134"
Range("E1125").Value = "知多市"
Range("G1125").Value = "ﾁﾀｼ"
Range("C1126").Value = "001135"
Range("E1126").Value = "知立市"
Range("G1126").Value = "ﾁﾘｭｳｼ"
Range("C1127").Value = "001136"
Range("E1127").Value = "尾張旭市"
Range("G1127").Value = "ｵﾜﾘｱｻﾋｼ"
Range("C1128").Value = "001137"
Range("E1128").Value = "高浜市"
Range("G1128").Value = "ﾀｶﾊﾏｼ"
Range("C1129").Value = "001138"
Range("E1129").Value = "岩倉市"
Range("G1129").Value = "ｲﾜｸﾗｼ"
Range("C1130").Value = "001139"
Range("E1130").Value = "豊明市"
Range("G1130").Value = "ﾄﾖｱｹｼ"
Range("C1131").Value = "001140"
Range("E1131").Value = "日進市"
Range("G1131").Value = "ﾆｯｼﾝｼ"
Range("C1132").Value = "001141"
Range("E1132").Value = "田原市"
Range("G1132").Value = "ﾀﾊﾗｼ"
Range("C1133").Value = "001142"
Range("E1133").Value = "愛西市"
Range("G1133").Value = "ｱｲｻｲｼ"
Range("C1134").Value = "001143"
Range("E1134").Value = "清須市"
Range("G1134").Value = "ｷﾖｽｼ"
Range("C1135").Value = "001144"
Range("E1135").Value = "北名古屋市"
Range("G1135").Value = "ｷﾀﾅｺﾞﾔｼ"
Range("C1136").Value = "001145"
Range("E1136").Value = "弥富市"
Range("G1136").Value = "ﾔﾄﾐｼ"
Range("C1137").Value = "001146"
Range("E1137").Value = "みよし市"
Range("G1137").Value = "ﾐﾖｼｼ"
Range("C1138").Value = "001147"
Range("E1138").Value = "あま市"
Range("G1138").Value = "ｱﾏｼ"
Range("C1139").Value = "001148"
Range("E1139").Value = "長久手市"
Range("G1139").Value = "ﾅｶﾞｸﾃｼ"
Range("C1140").Value = "001149"
Range("E1140").Value = "東郷町"
Range("G1140").Value = "ﾄｳｺﾞｳﾁｮｳ"
Range("C1141").Value = "001150"
Range("E1141").Value = "豊山町"
Range("G1141").Value = "ﾄﾖﾔﾏﾁｮｳ"
Range("C1142").Value = "001151"
Range("E1142").Value = "大口町"
Range("G1142").Value = "ｵｵｸﾞﾁﾁｮｳ"
Range("C1143").Value = "001152"
Range("E1143").Value = "扶桑町"
Range("G1143").Value = "ﾌｿｳﾁｮｳ"
Range("C1144").Value = "001153"
Range("E1144").Value = "大治町"
Range("G1144").Value = "ｵｵﾊﾙﾁｮｳ"
Range("C1145").Value = "001154"
Range("E1145").Value = "蟹江町"
Range("G1145").Value = "ｶﾆｴﾁｮｳ"
Range("C1146").Value = "001155"
Range("E1146").Value = "飛島村"
Range("G1146").Value = "ﾄﾋﾞｼﾏﾑﾗ"
Range("C1147").Value = "001156"
Range("E1147").Value = "阿久比町"
Range("G1147").Value = "ｱｸﾞｲﾁｮｳ"
Range("C1148").Value = "001157"
Range("E1148").Value = "東浦町"
Range("G1148").Value = "ﾋｶﾞｼｳﾗﾁｮｳ"
Range("C1149").Value = "001158"
Range("E1149").Value = "南知多町"
Range("G1149").Value = "ﾐﾅﾐﾁﾀﾁｮｳ"
Range("C1150").Value = "001159"
Range("C1151").Value = "001160"
Range("E1151").Value = "武豊町"
Range("G1151").Value = "ﾀｹﾄﾖﾁｮｳ"
Range("C1152").Value = "001161"
Range("E1152").Value = "幸田町"
Range("G1152").Value = "ｺｳﾀﾁｮｳ"
Range("C1153").Value = "001162"
Range("E1153").Value = "設楽町"
Range("G1153").Value = "ｼﾀﾗﾁｮｳ"
Range("C1154").Value = "001163"
Range("E1154").Value = "東栄町"
Range("G1154").Value = "ﾄｳｴｲﾁｮｳ"
Range("C1155").Value = "001164"
Range("E1155").Value = "豊根村"
Range("G1155").Value = "ﾄﾖﾈﾑﾗ"
Range("C1156").Value = "001165"
Range("F1156:F1185").Value = "ﾐｴｹﾝ"
Range("C1157").Value = "001166"
Range("E1157").Value = "津市"
Range("G1157").Value = "ﾂｼ"
Range("C1158").Value = "001167"
Range("E1158").Value = "四日市市"
Range("G1158").Value = "ﾖｯｶｲﾁｼ"
Range("C1159").Value = "001168"
Range("E1159").Value = "伊勢市"
Range("G1159").Value = "ｲｾｼ"
Range("C1160").Value = "001169"
Range("E1160").Value = "松阪市"
Range("G1160").Value = "ﾏﾂｻｶｼ"
Range("C1161").Value = "001170"
Range("E1161").Value = "桑名市"
Range("G1161").Value = "ｸﾜﾅｼ"
Range("C1162").Value = "001171"
Range("E1162").Value = "鈴鹿市"
Range("G1162").Value = "ｽｽﾞｶｼ"
Range("C1163").Value = "001172"
Range("E1163").Value = "名張市"
Range("G1163").Value = "ﾅﾊﾞﾘｼ"
Range("C1164").Value = "001173"
Range("E1164").Value = "尾鷲市"
Range("G1164").Value = "ｵﾜｾｼ"
Range("C1165").Value = "001174"
Range("E1165").Value = "亀山市"
Range("G1165").Value = "ｶﾒﾔﾏｼ"
Range("C1166").Value = "001175"
Range("E1166").Value = "鳥羽市"
Range("G1166").Value = "ﾄﾊﾞｼ"
Range("C1167").Value = "001176"
Range("E1167").Value = "熊野市"
Range("G1167").Value = "ｸﾏﾉｼ"
Range("C1168").Value = "001177"
Range("E1168").Value = "いなべ市"
Range("G1168").Value = "ｲﾅﾍﾞｼ"
Range("C1169").Value = "001178"
Range("E1169").Value = "志摩市"
Range("G1169").Value = "ｼﾏｼ"
Range("C1170").Value = "001179"
Range("E1170").Value = "伊賀市"
Range("G1170").Value = "ｲｶﾞｼ"
Range("C1171").Value = "001180"
Range("E1171").Value = "木曽岬町"
Range("G1171").Value = "ｷｿｻｷﾁｮｳ"
Range("C1172").Value = "001181"
Range("E1172").Value = "東員町"
Range("G1172").Value = "ﾄｳｲﾝﾁｮｳ"
Range("C1173").Value = "001182"
Range("E1173").Value = "菰野町"
Range("G1173").Value = "ｺﾓﾉﾁｮｳ"
Range("C1174").Value = "001183"
Range("G1174").Value = "ｱｻﾋﾁｮｳ"
Range("C1175").Value = "001184"
Range("E1175").Value = "川越町"
Range("G1175").Value = "ｶﾜｺﾞｴﾁｮｳ"
Range("C1176").Value = "001185"
Range("E1176").Value = "多気町"
Range("G1176").Value = "ﾀｷﾁｮｳ"
Range("C1177").Value = "001186"
Range("G1177").Value = "ﾒｲﾜﾁｮｳ"
Range("C1178").Value = "001187"
Range("E1178").Value = "大台町"
Range("G1178").Value = "ｵｵﾀﾞｲﾁｮｳ"
Range("C1179").Value = "001188"
Range("E1179").Value = "玉城町"
Range("G1179").Value = "ﾀﾏｷﾁｮｳ"
Range("C1180").Value = "001189"
Range("E1180").Value = "度会町"
Range("G1180").Value = "ﾜﾀﾗｲﾁｮｳ"
Range("C1181").Value = "001190"
Range("E1181").Value = "大紀町"
Range("C1182").Value = "001191"
Range("E1182").Value = "南伊勢町"
Range("G1182").Value = "ﾐﾅﾐｲｾﾁｮｳ"
Range("C1183").Value = "001192"
Range("E1183").Value = "紀北町"
Range("G1183").Value = "ｷﾎｸﾁｮｳ"
Range("C1184").Value = "001193"
Range("E1184").Value = "御浜町"
Range("C1185").Value = "001194"
Range("E1185").Value = "紀宝町"
Range("G1185").Value = "ｷﾎｳﾁｮｳ"
Range("C1186").Value = "001195"
Range("F1186:F1205").Value = "ｼｶﾞｹﾝ"
Range("C1187").Value = "001196"
Range("E1187").Value = "大津市"
Range("G1187").Value = "ｵｵﾂｼ"
Range("C1188").Value = "001197"
Range("E1188").Value = "彦根市"
Range("G1188").Value = "ﾋｺﾈｼ"
Range("C1189").Value = "001198"
Range("E1189").Value = "長浜市"
Range("G1189").Value = "ﾅｶﾞﾊﾏｼ"
Range("C1190").Value = "001199"
Range("E1190").Value = "近江八幡市"
Range("G1190").Value = "ｵｳﾐﾊﾁﾏﾝｼ"
Range("C1191").Value = "001200"
Range("E1191").Value = "草津市"
Range("G1191").Value = "ｸｻﾂｼ"
Range("C1192").Value = "001201"
Range("E1192").Value = "守山市"
Range("G1192").Value = "ﾓﾘﾔﾏｼ"
Range("C1193").Value = "001202"
Range("E1193").Value = "栗東市"
Range("G1193").Value = "ﾘｯﾄｳｼ"
Range("C1194").Value = "001203"
Range("E1194").Value = "甲賀市"
Range("G1194").Value = "ｺｳｶｼ"
Range("C1195").Value = "001204"
Range("E1195").Value = "野洲市"
Range("G1195").Value = "ﾔｽｼ"
Range("C1196").Value = "001205"
Range("E1196").Value = "湖南市"
Range("G1196").Value = "ｺﾅﾝｼ"
Range("C1197").Value = "001206"
Range("E1197").Value = "高島市"
Range("G1197").Value = "ﾀｶｼﾏｼ"
Range("C1198").Value = "001207"
Range("E1198").Value = "東近江市"
Range("G1198").Value = "ﾋｶﾞｼｵｳﾐｼ"
Range("C1199").Value = "001208"
Range("E1199").Value = "米原市"
Range("G1199").Value = "ﾏｲﾊﾞﾗｼ"
Range("C1200").Value = "001209"
Range("E1200").Value = "日野町"
Range("G1200").Value = "ﾋﾉﾁｮｳ"
Range("C1201").Value = "001210"
Range("E1201").Value = "竜王町"
Range("G1201").Value = "ﾘﾕｳｵｳﾁｮｳ"
Range("C1202").Value = "001211"
Range("E1202").Value = "愛荘町"
Range("G1202").Value = "ｱｲｼｮｳﾁｮｳ"
Range("C1203").Value = "001212"
Range("E1203").Value = "豊郷町"
Range("G1203").Value = "ﾄﾖｻﾄﾁｮｳ"
Range("C1204").Value = "001213"
Range("E1204").Value = "甲良町"
Range("G1204").Value = "ｺｳﾗﾁｮｳ"
Range("C1205").Value = "001214"
Range("E1205").Value = "多賀町"
Range("G1205").Value = "ﾀｶﾞﾁｮｳ"
Range("C1206").Value = "001215"
Range("F1206:F1243").Value = "ｷｮｳﾄﾌ"
Range("C1207").Value = "001216"
Range("E1207").Value = "京都市"
Range("G1207").Value = "ｷｮｳﾄｼ"
Range("C1208").Value = "001217"
Range("E1208").Value = "京都市北区"
Range("G1208").Value = "きょうとしきたく"
Range("C1209").Value = "001218"
Range("E1209").Value = "京都市上京区"
Range("G1209").Value = "きょうとしかみぎょうく"
Range("C1210").Value = "001219"
Range("E1210").Value = "京都市左京区"
Range("G1210").Value = "きょうとしさきょうく"
Range("C1211").Value = "001220"
Range("E1211").Value = "京都市中京区"
Range("G1211").Value = "きょうとしなかぎょうく"
Range("C1212").Value = "001221"
Range("E1212").Value = "京都市東山区"
Range("G1212").Value = "きょうとしひがしやまく"
Range("C1213").Value = "001222"
Range("E1213").Value = "京都市下京区"
Range("G1213").Value = "きょうとししもぎょうく"
Range("C1214").Value = "001223"
Range("E1214").Value = "京都市南区"
Range("G1214").Value = "きょうとしみなみく"
Range("C1215").Value = "001224"
Range("E1215").Value = "京都市右京区"
Range("G1215").Value = "きょうとしうきょうく"
Range("C1216").Value = "001225"
Range("E1216").Value = "京都市伏見区"
Range("G1216").Value = "きょうとしふしみく"
Range("C1217").Value = "001226"
Range("E1217").Value = "京都市山科区"
Range("G1217").Value = "きょうとしやましなく"
Range("C1218").Value = "001227"
Range("E1218").Value = "京都市西京区"
Range("G1218").Value = "きょうとしにしきょうく"
Range("C1219").Value = "001228"
Range("E1219").Value = "福知山市"
Range("G1219").Value = "ﾌｸﾁﾔﾏｼ"
Range("C1220").Value = "001229"
Range("E1220").Value = "舞鶴市"
Range("G1220").Value = "ﾏｲﾂﾞﾙｼ"
Range("C1221").Value = "001230"
Range("E1221").Value = "綾部市"
Range("G1221").Value = "ｱﾔﾍﾞｼ"
Range("C1222").Value = "001231"
Range("E1222").Value = "宇治市"
Range("G1222").Value = "ｳｼﾞｼ"
Range("C1223").Value = "001232"
Range("E1223").Value = "宮津市"
Range("G1223").Value = "ﾐﾔﾂﾞｼ"
Range("C1224").Value = "001233"
Range("E1224").Value = "亀岡市"
Range("G1224").Value = "ｶﾒｵｶｼ"
Range("C1225").Value = "001234"
Range("E1225").Value = "城陽市"
Range("G1225").Value = "ｼﾞｮｳﾖｳｼ"
Range("C1226").Value = "001235"
Range("E1226").Value = "向日市"
Range("G1226").Value = "ﾑｺｳｼ"
Range("C1227").Value = "001236"
Range("E1227").Value = "長岡京市"
Range("G1227").Value = "ﾅｶﾞｵｶｷｮｳｼ"
Range("C1228").Value = "001237"
Range("E1228").Value = "八幡市"
Range("G1228").Value = "ﾔﾜﾀｼ"
Range("C1229").Value = "001238"
Range("E1229").Value = "京田辺市"
Range("G1229").Value = "ｷｮｳﾀﾅﾍﾞｼ"
Range("C1230").Value = "001239"
Range("E1230").Value = "京丹後市"
Range("G1230").Value = "ｷｮｳﾀﾝｺﾞｼ"
Range("C1231").Value = "001240"
Range("E1231").Value = "南丹市"
Range("G1231").Value = "ﾅﾝﾀﾝｼ"
Range("C1232").Value = "001241"
Range("E1232").Value = "木津川市"
Range("G1232").Value = "ｷﾂﾞｶﾞﾜｼ"
Range("C1233").Value = "001242"
Range("E1233").Value = "大山崎町"
Range("G1233").Value = "ｵｵﾔﾏｻﾞｷﾁｮｳ"
Range("C1234").Value = "001243"
Range("E1234").Value = "久御山町"
Range("G1234").Value = "ｸﾐﾔﾏﾁｮｳ"
Range("C1235").Value = "001244"
Range("E1235").Value = "井手町"
Range("G1235").Value = "ｲﾃﾞﾁｮｳ"
Range("C1236").Value = "001245"
Range("E1236").Value = "宇治田原町"
Range("G1236").Value = "ｳｼﾞﾀﾜﾗﾁｮｳ"
Range("C1237").Value = "001246"
Range("E1237").Value = "笠置町"
Range("G1237").Value = "ｶｻｷﾞﾁｮｳ"
Range("C1238").Value = "001247"
Range("E1238").Value = "和束町"
Range("G1238").Value = "ﾜﾂﾞｶﾁｮｳ"
Range("C1239").Value = "001248"
Range("E1239").Value = "精華町"
Range("G1239").Value = "ｾｲｶﾁｮｳ"
Range("C1240").Value = "001249"
Range("E1240").Value = "南山城村"
Range("G1240").Value = "ﾐﾅﾐﾔﾏｼﾛﾑﾗ"
Range("C1241").Value = "001250"
Range("E1241").Value = "京丹波町"
Range("G1241").Value = "ｷｮｳﾀﾝﾊﾞﾁｮｳ"
Range("C1242").Value = "001251"
Range("E1242").Value = "伊根町"
Range("G1242").Value = "ｲﾈﾁｮｳ"
Range("C1243").Value = "001252"
Range("E1243").Value = "与謝野町"
Range("G1243").Value = "ﾖｻﾉﾁｮｳ"
Range("C1244").Value = "001253"
Range("F1244:F1318").Value = "ｵｵｻｶﾌ"
Range("C1245").Value = "001254"
Range("E1245").Value = "大阪市"
Range("G1245").Value = "ｵｵｻｶｼ"
Range("C1246").Value = "001255"
Range("E1246").Value = "大阪市都島区"
Range("G1246").Value = "おおさかしみやこじまく"
Range("C1247").Value = "001256"
Range("E1247").Value = "大阪市福島区"
Range("G1247").Value = "おおさかしふくしまく"
Range("C1248").Value = "001257"
Range("E1248").Value = "大阪市此花区"
Range("G1248").Value = "おおさかしこのはなく"
Range("C1249").Value = "001258"
Range("E1249").Value = "大阪市西区"
Range("G1249").Value = "おおさかしにしく"
Range("C1250").Value = "001259"
Range("E1250").Value = "大阪市港区"
Range("G1250").Value = "おおさかしみなとく"
Range("C1251").Value = "001260"
Range("E1251").Value = "大阪市大正区"
Range("G1251").Value = "おおさかしたいしょうく"
Range("C1252").Value = "001261"
Range("E1252").Value = "大阪市天王寺区"
Range("G1252").Value = "おおさかしてんのうじく"
Range("C1253").Value = "001262"
Range("E1253").Value = "大阪市浪速区"
Range("G1253").Value = "おおさかしなにわく"
Range("C1254").Value = "001263"
Range("E1254").Value = "大阪市西淀川区"
Range("G1254").Value = "おおさかしにしよどがわく"
Range("C1255").Value = "001264"
Range("E1255").Value = "大阪市東淀川区"
Range("G1255").Value = "おおさかしひがしよどがわく"
Range("C1256").Value = "001265"
Range("E1256").Value = "大阪市東成区"
Range("G1256").Value = "おおさかしひがしなりく"
Range("C1257").Value = "001266"
Range("E1257").Value = "大阪市生野区"
Range("G1257").Value = "おおさかしいくのく"
Range("C1258").Value = "001267"
Range("E1258").Value = "大阪市旭区"
Range("G1258").Value = "おおさかしあさひく"
Range("C1259").Value = "001268"
Range("E1259").Value = "大阪市城東区"
Range("G1259").Value = "おおさかしじょうとうく"
Range("C1260").Value = "001269"
Range("E1260").Value = "大阪市阿倍野区"
Range("G1260").Value = "おおさかしあべのく"
Range("C1261").Value = "001270"
Range("E1261").Value = "大阪市住吉区"
Range("G1261").Value = "おおさかしすみよしく"
Range("C1262").Value = "001271"
Range("E1262").Value = "大阪市東住吉区"
Range("G1262").Value = "おおさかしひがしすみよしく"
Range("C1263").Value = "001272"
Range("E1263").Value = "大阪市西成区"
Range("G1263").Value = "おおさかしにしなりく"
Range("C1264").Value = "001273"
Range("E1264").Value = "大阪市淀川区"
Range("G1264").Value = "おおさかしよどがわく"
Range("C1265").Value = "001274"
Range("E1265").Value = "大阪市鶴見区"
Range("G1265").Value = "おおさかしつるみく"
Range("C1266").Value = "001275"
Range("E1266").Value = "大阪市住之江区"
Range("G1266").Value = "おおさかしすみのえく"
Range("C1267").Value = "001276"
Range("E1267").Value = "大阪市平野区"
Range("G1267").Value = "おおさかしひらのく"
Range("C1268").Value = "001277"
Range("E1268").Value = "大阪市北区"
Range("G1268").Value = "おおさかしきたく"
Range("C1269").Value = "001278"
Range("E1269").Value = "大阪市中央区"
Range("G1269").Value = "おおさかしちゅうおうく"
Range("C1270").Value = "001279"
Range("E1270").Value = "堺市"
Range("C1271").Value = "001280"
Range("E1271").Value = "堺市堺区"
Range("G1271").Value = "さかいしさかいく"
Range("C1272").Value = "001281"
Range("E1272").Value = "堺市中区"
Range("G1272").Value = "さかいしなかく"
Range("C1273").Value = "001282"
Range("E1273").Value = "堺市東区"
Range("G1273").Value = "さかいしひがしく"
Range("C1274").Value = "001283"
Range("E1274").Value = "堺市西区"
Range("G1274").Value = "さかいしにしく"
Range("C1275").Value = "001284"
Range("E1275").Value = "堺市南区"
Range("G1275").Value = "さかいしみなみく"
Range("C1276").Value = "001285"
Range("E1276").Value = "堺市北区"
Range("G1276").Value = "さかいしきたく"
Range("C1277").Value = "001286"
Range("E1277").Value = "堺市美原区"
Range("G1277").Value = "さかいしみはらく"
Range("C1278").Value = "001287"
Range("E1278").Value = "岸和田市"
Range("G1278").Value = "ｷｼﾜﾀﾞｼ"
Range("C1279").Value = "001288"
Range("E1279").Value = "豊中市"
Range("G1279").Value = "ﾄﾖﾅｶｼ"
Range("C1280").Value = "001289"
Range("E1280").Value = "池田市"
Range("G1280").Value = "ｲｹﾀﾞｼ"
Range("C1281").Value = "001290"
Range("E1281").Value = "吹田市"
Range("G1281").Value = "ｽｲﾀｼ"
Range("C1282").Value = "001291"
Range("E1282").Value = "泉大津市"
Range("G1282").Value = "ｲｽﾞﾐｵｵﾂｼ"
Range("C1283").Value = "001292"
Range("E1283").Value = "高槻市"
Range("G1283").Value = "ﾀｶﾂｷｼ"
Range("C1284").Value = "001293"
Range("E1284").Value = "貝塚市"
Range("G1284").Value = "ｶｲﾂﾞｶｼ"
Range("C1285").Value = "001294"
Range("E1285").Value = "守口市"
Range("G1285").Value = "ﾓﾘｸﾞﾁｼ"
Range("C1286").Value = "001295"
Range("E1286").Value = "枚方市"
Range("G1286").Value = "ﾋﾗｶﾀｼ"
Range("C1287").Value = "001296"
Range("E1287").Value = "茨木市"
Range("G1287").Value = "ｲﾊﾞﾗｷｼ"
Range("C1288").Value = "001297"
Range("E1288").Value = "八尾市"
Range("G1288").Value = "ﾔｵｼ"
Range("C1289").Value = "001298"
Range("E1289").Value = "泉佐野市"
Range("G1289").Value = "ｲｽﾞﾐｻﾉｼ"
Range("C1290").Value = "001299"
Range("E1290").Value = "富田林市"
Range("G1290").Value = "ﾄﾝﾀﾞﾊﾞﾔｼｼ"
Range("C1291").Value = "001300"
Range("E1291").Value = "寝屋川市"
Range("G1291").Value = "ﾈﾔｶﾞﾜｼ"
Range("C1292").Value = "001301"
Range("E1292").Value = "河内長野市"
Range("G1292").Value = "ｶﾜﾁﾅｶﾞﾉｼ"
Range("C1293").Value = "001302"
Range("E1293").Value = "松原市"
Range("G1293").Value = "ﾏﾂﾊﾞﾗｼ"
Range("C1294").Value = "001303"
Range("E1294").Value = "大東市"
Range("G1294").Value = "ﾀﾞｲﾄｳｼ"
Range("C1295").Value = "001304"
Range("E1295").Value = "和泉市"
Range("G1295").Value = "ｲｽﾞﾐｼ"
Range("C1296").Value = "001305"
Range("E1296").Value = "箕面市"
Range("G1296").Value = "ﾐﾉｵｼ"
Range("C1297").Value = "001306"
Range("E1297").Value = "柏原市"
Range("G1297").Value = "ｶｼﾜﾗｼ"
Range("C1298").Value = "001307"
Range("E1298").Value = "羽曳野市"
Range("G1298").Value = "ﾊﾋﾞｷﾉｼ"
Range("C1299").Value = "001308"
Range("E1299").Value = "門真市"
Range("G1299").Value = "ｶﾄﾞﾏｼ"
Range("C1300").Value = "001309"
Range("E1300").Value = "摂津市"
Range("G1300").Value = "ｾｯﾂｼ"
Range("C1301").Value = "001310"
Range("E1301").Value = "高石市"
Range("G1301").Value = "ﾀｶｲｼｼ"
Range("C1302").Value = "001311"
Range("E1302").Value = "藤井寺市"
Range("G1302").Value = "ﾌｼﾞｲﾃﾞﾗｼ"
Range("C1303").Value = "001312"
Range("E1303").Value = "東大阪市"
Range("G1303").Value = "ﾋｶﾞｼｵｵｻｶｼ"
Range("C1304").Value = "001313"
Range("E1304").Value = "泉南市"
Range("G1304").Value = "ｾﾝﾅﾝｼ"
Range("C1305").Value = "001314"
Range("E1305").Value = "四條畷市"
Range("G1305").Value = "ｼｼﾞﾖｳﾅﾜﾃｼ"
Range("C1306").Value = "001315"
Range("E1306").Value = "交野市"
Range("G1306").Value = "ｶﾀﾉｼ"
Range("C1307").Value = "001316"
Range("E1307").Value = "大阪狭山市"
Range("G1307").Value = "ｵｵｻｶｻﾔﾏｼ"
Range("C1308").Value = "001317"
Range("E1308").Value = "阪南市"
Range("G1308").Value = "ﾊﾝﾅﾝｼ"
Range("C1309").Value = "001318"
Range("E1309").Value = "島本町"
Range("G1309").Value = "ｼﾏﾓﾄﾁｮｳ"
Range("C1310").Value = "001319"
Range("E1310").Value = "豊能町"
Range("G1310").Value = "ﾄﾖﾉﾁｮｳ"
Range("C1311").Value = "001320"
Range("E1311").Value = "能勢町"
Range("G1311").Value = "ﾉｾﾁｮｳ"
Range("C1312").Value = "001321"
Range("E1312").Value = "忠岡町"
Range("G1312").Value = "ﾀﾀﾞｵｶﾁｮｳ"
Range("C1313").Value = "001322"
Range("E1313").Value = "熊取町"
Range("G1313").Value = "ｸﾏﾄﾘﾁｮｳ"
Range("C1314").Value = "001323"
Range("E1314").Value = "田尻町"
Range("G1314").Value = "ﾀｼﾞﾘﾁｮｳ"
Range("C1315").Value = "001324"
Range("E1315").Value = "岬町"
Range("G1315").Value = "ﾐｻｷﾁｮｳ"
Range("C1316").Value = "001325"
Range("E1316,E1365").Value = "太子町"
Range("G1316,G1365").Value = "ﾀｲｼﾁｮｳ"
Range("C1317").Value = "001326"
Range("E1317").Value = "河南町"
Range("G1317").Value = "ｶﾅﾝﾁｮｳ"
Range("C1318").Value = "001327"
Range("E1318").Value = "千早赤阪村"
Range("G1318").Value = "ﾁﾊﾔｱｶｻｶﾑﾗ"
Range("C1319").Value = "001328"
Range("F1319:F1369").Value = "ﾋｮｳｺﾞｹﾝ"
Range("C1320").Value = "001329"
Range("E1320").Value = "神戸市"
Range("G1320").Value = "ｺｳﾍﾞｼ"
Range("C1321").Value = "001330"
Range("E1321").Value = "神戸市東灘区"
Range("G1321").Value = "こうべしひがしなだく"
Range("C1322").Value = "001331"
Range("E1322").Value = "神戸市灘区"
Range("G1322").Value = "こうべしなだく"
Range("C1323").Value = "001332"
Range("E1323").Value = "神戸市兵庫区"
Range("G1323").Value = "こうべしひょうごく"
Range("C1324").Value = "001333"
Range("E1324").Value = "神戸市長田区"
Range("G1324").Value = "こうべしながたく"
Range("C1325").Value = "001334"
Range("E1325").Value = "神戸市須磨区"
Range("G1325").Value = "こうべしすまく"
Range("C1326").Value = "001335"
Range("E1326").Value = "神戸市垂水区"
Range("G1326").Value = "こうべしたるみく"
Range("C1327").Value = "001336"
Range("E1327").Value = "神戸市北区"
Range("G1327").Value = "こうべしきたく"
Range("C1328").Value = "001337"
Range("E1328").Value = "神戸市中央区"
Range("G1328").Value = "こうべしちゅうおうく"
Range("C1329").Value = "001338"
Range("E1329").Value = "神戸市西区"
Range("G1329").Value = "こうべしにしく"
Range("C1330").Value = "001339"
Range("E1330").Value = "姫路市"
Range("G1330").Value = "ﾋﾒｼﾞｼ"
Range("C1331").Value = "001340"
Range("E1331").Value = "尼崎市"
Range("G1331").Value = "ｱﾏｶﾞｻｷｼ"
Range("C1332").Value = "001341"
Range("E1332").Value = "明石市"
Range("G1332").Value = "ｱｶｼｼ"
Range("C1333").Value = "001342"
Range("E1333").Value = "西宮市"
Range("G1333").Value = "ﾆｼﾉﾐﾔｼ"
Range("C1334").Value = "001343"
Range("E1334").Value = "洲本市"
Range("G1334").Value = "ｽﾓﾄｼ"
Range("C1335").Value = "001344"
Range("E1335").Value = "芦屋市"
Range("G1335").Value = "ｱｼﾔｼ"
Range("C1336").Value = "001345"
Range("E1336").Value = "伊丹市"
Range("G1336").Value = "ｲﾀﾐｼ"
Range("C1337").Value = "001346"
Range("E1337").Value = "相生市"
Range("G1337").Value = "ｱｲｵｲｼ"
Range("C1338").Value = "001347"
Range("E1338").Value = "豊岡市"
Range("G1338").Value = "ﾄﾖｵｶｼ"
Range("C1339").Value = "001348"
Range("E1339").Value = "加古川市"
Range("G1339").Value = "ｶｺｶﾞﾜｼ"
Range("C1340").Value = "001349"
Range("E1340").Value = "赤穂市"
Range("G1340").Value = "ｱｺｳｼ"
Range("C1341").Value = "001350"
Range("E1341").Value = "西脇市"
Range("G1341").Value = "ﾆｼﾜｷｼ"
Range("C1342").Value = "001351"
Range("E1342").Value = "宝塚市"
Range("G1342").Value = "ﾀｶﾗﾂﾞｶｼ"
Range("C1343").Value = "001352"
Range("E1343").Value = "三木市"
Range("G1343").Value = "ﾐｷｼ"
Range("C1344").Value = "001353"
Range("E1344").Value = "高砂市"
Range("G1344").Value = "ﾀｶｻｺﾞｼ"
Range("C1345").Value = "001354"
Range("E1345").Value = "川西市"
Range("G1345").Value = "ｶﾜﾆｼｼ"
Range("C1346").Value = "001355"
Range("E1346").Value = "小野市"
Range("G1346").Value = "ｵﾉｼ"
Range("C1347").Value = "001356"
Range("E1347").Value = "三田市"
Range("G1347").Value = "ｻﾝﾀﾞｼ"
Range("C1348").Value = "001357"
Range("E1348").Value = "加西市"
Range("G1348").Value = "ｶｻｲｼ"
Range("C1349").Value = "001358"
Range("E1349").Value = "篠山市"
Range("G1349").Value = "ｻｻﾔﾏｼ"
Range("C1350").Value = "001359"
Range("E1350").Value = "養父市"
Range("G1350").Value = "ﾔﾌﾞｼ"
Range("C1351").Value = "001360"
Range("E1351").Value = "丹波市"
Range("G1351").Value = "ﾀﾝﾊﾞｼ"
Range("C1352").Value = "001361"
Range("E1352").Value = "南あわじ市"
Range("G1352").Value = "ﾐﾅﾐｱﾜｼﾞｼ"
Range("C1353").Value = "001362"
Range("E1353").Value = "朝来市"
Range("G1353").Value = "ｱｻｺﾞｼ"
Range("C1354").Value = "001363"
Range("E1354").Value = "淡路市"
Range("G1354").Value = "ｱﾜｼﾞｼ"
Range("C1355").Value = "001364"
Range("E1355").Value = "宍粟市"
Range("G1355").Value = "ｼｿｳｼ"
Range("C1356").Value = "001365"
Range("E1356").Value = "加東市"
Range("G1356").Value = "ｶﾄｳｼ"
Range("C1357").Value = "001366"
Range("E1357").Value = "たつの市"
Range("G1357").Value = "ﾀﾂﾉｼ"
Range("C1358").Value = "001367"
Range("E1358").Value = "猪名川町"
Range("G1358").Value = "ｲﾅｶﾞﾜﾁｮｳ"
Range("C1359").Value = "001368"
Range("E1359").Value = "多可町"
Range("G1359").Value = "ﾀｶﾁｮｳ"
Range("C1360").Value = "001369"
Range("E1360").Value = "稲美町"
Range("G1360,G1430").Value = "ｲﾅﾐﾁｮｳ"
Range("C1361").Value = "001370"
Range("E1361").Value = "播磨町"
Range("G1361").Value = "ﾊﾘﾏﾁｮｳ"
Range("C1362").Value = "001371"
Range("E1362").Value = "市川町"
Range("G1362").Value = "ｲﾁｶﾜﾁｮｳ"
Range("C1363").Value = "001372"
Range("E1363").Value = "福崎町"
Range("G1363").Value = "ﾌｸｻｷﾁｮｳ"
Range("C1364").Value = "001373"
Range("E1364").Value = "神河町"
Range("C1365").Value = "001374"
Range("C1366").Value = "001375"
Range("E1366").Value = "上郡町"
Range("G1366").Value = "ｶﾐｺﾞｵﾘﾁｮｳ"
Range("C1367").Value = "001376"
Range("E1367").Value = "佐用町"
Range("G1367").Value = "ｻﾖｳﾁｮｳ"
Range("C1368").Value = "001377"
Range("E1368").Value = "香美町"
Range("G1368").Value = "ｶﾐﾁｮｳ"
Range("C1369").Value = "001378"
Range("E1369").Value = "新温泉町"
Range("G1369").Value = "ｼﾝｵﾝｾﾝﾁｮｳ"
Range("C1370").Value = "001379"
Range("F1370:F1409").Value = "ﾅﾗｹﾝ"
Range("C1371").Value = "001380"
Range("E1371").Value = "奈良市"
Range("G1371").Value = "ﾅﾗｼ"
Range("C1372").Value = "001381"
Range("E1372").Value = "大和高田市"
Range("G1372").Value = "ﾔﾏﾄﾀｶﾀﾞｼ"
Range("C1373").Value = "001382"
Range("E1373").Value = "大和郡山市"
Range("G1373").Value = "ﾔﾏﾄｺｵﾘﾔﾏｼ"
Range("C1374").Value = "001383"
Range("E1374").Value = "天理市"
Range("G1374").Value = "ﾃﾝﾘｼ"
Range("C1375").Value = "001384"
Range("E1375").Value = "橿原市"
Range("G1375").Value = "ｶｼﾊﾗｼ"
Range("C1376").Value = "001385"
Range("E1376").Value = "桜井市"
Range("G1376").Value = "ｻｸﾗｲｼ"
Range("C1377").Value = "001386"
Range("E1377").Value = "五條市"
Range("G1377").Value = "ｺﾞｼﾞｮｳｼ"
Range("C1378").Value = "001387"
Range("E1378").Value = "御所市"
Range("G1378").Value = "ｺﾞｾｼ"
Range("C1379").Value = "001388"
Range("E1379").Value = "生駒市"
Range("G1379").Value = "ｲｺﾏｼ"
Range("C1380").Value = "001389"
Range("E1380").Value = "香芝市"
Range("G1380").Value = "ｶｼﾊﾞｼ"
Range("C1381").Value = "001390"
Range("E1381").Value = "葛城市"
Range("G1381").Value = "ｶﾂﾗｷﾞｼ"
Range("C1382").Value = "001391"
Range("E1382").Value = "宇陀市"
Range("G1382").Value = "ｳﾀﾞｼ"
Range("C1383").Value = "001392"
Range("E1383").Value = "山添村"
Range("G1383").Value = "ﾔﾏｿﾞｴﾑﾗ"
Range("C1384").Value = "001393"
Range("E1384").Value = "平群町"
Range("G1384").Value = "ﾍｸﾞﾘﾁｮｳ"
Range("C1385").Value = "001394"
Range("E1385").Value = "三郷町"
Range("G1385").Value = "ｻﾝｺﾞｳﾁｮｳ"
Range("C1386").Value = "001395"
Range("E1386").Value = "斑鳩町"
Range("G1386").Value = "ｲｶﾙｶﾞﾁｮｳ"
Range("C1387").Value = "001396"
Range("E1387").Value = "安堵町"
Range("G1387").Value = "ｱﾝﾄﾞﾁｮｳ"
Range("C1388").Value = "001397"
Range("G1388").Value = "ｶﾜﾆｼﾁｮｳ"
Range("C1389").Value = "001398"
Range("E1389").Value = "三宅町"
Range("G1389").Value = "ﾐﾔｹﾁｮｳ"
Range("C1390").Value = "001399"
Range("E1390").Value = "田原本町"
Range("G1390").Value = "ﾀﾜﾗﾓﾄﾁｮｳ"
Range("C1391").Value = "001400"
Range("E1391").Value = "曽爾村"
Range("G1391").Value = "ｿﾆﾑﾗ"
Range("C1392").Value = "001401"
Range("E1392").Value = "御杖村"
Range("G1392").Value = "ﾐﾂｴﾑﾗ"
Range("C1393").Value = "001402"
Range("E1393").Value = "高取町"
Range("G1393").Value = "ﾀｶﾄﾘﾁｮｳ"
Range("C1394").Value = "001403"
Range("E1394").Value = "明日香村"
Range("G1394").Value = "ｱｽｶﾑﾗ"
Range("C1395").Value = "001404"
Range("E1395").Value = "上牧町"
Range("G1395").Value = "ｶﾝﾏｷﾁｮｳ"
Range("C1396").Value = "001405"
Range("E1396").Value = "王寺町"
Range("G1396").Value = "ｵｳｼﾞﾁｮｳ"
Range("C1397").Value = "001406"
Range("E1397").Value = "広陵町"
Range("G1397").Value = "ｺｳﾘﾖｳﾁｮｳ"
Range("C1398").Value = "001407"
Range("E1398").Value = "河合町"
Range("G1398").Value = "ｶﾜｲﾁｮｳ"
Range("C1399").Value = "001408"
Range("E1399").Value = "吉野町"
Range("G1399").Value = "ﾖｼﾉﾁｮｳ"
Range("C1400").Value = "001409"
Range("E1400").Value = "大淀町"
Range("G1400").Value = "ｵｵﾖﾄﾞﾁｮｳ"
Range("C1401").Value = "001410"
Range("E1401").Value = "下市町"
Range("G1401").Value = "ｼﾓｲﾁﾁｮｳ"
Range("C1402").Value = "001411"
Range("E1402").Value = "黒滝村"
Range("G1402").Value = "ｸﾛﾀｷﾑﾗ"
Range("C1403").Value = "001412"
Range("E1403").Value = "天川村"
Range("G1403").Value = "ﾃﾝｶﾜﾑﾗ"
Range("C1404").Value = "001413"
Range("E1404").Value = "野迫川村"
Range("G1404").Value = "ﾉｾｶﾞﾜﾑﾗ"
Range("C1405").Value = "001414"
Range("E1405").Value = "十津川村"
Range("G1405").Value = "ﾄﾂｶﾜﾑﾗ"
Range("C1406").Value = "001415"
Range("E1406").Value = "下北山村"
Range("G1406").Value = "ｼﾓｷﾀﾔﾏﾑﾗ"
Range("C1407").Value = "001416"
Range("E1407").Value = "上北山村"
Range("G1407").Value = "ｶﾐｷﾀﾔﾏﾑﾗ"
Range("C1408").Value = "001417"
Range("C1409").Value = "001418"
Range("E1409").Value = "東吉野村"
Range("G1409").Value = "ﾋｶﾞｼﾖｼﾉﾑﾗ"
Range("C1410").Value = "001419"
Range("F1410:F1440").Value = "ﾜｶﾔﾏｹﾝ"
Range("C1411").Value = "001420"
Range("E1411").Value = "和歌山市"
Range("G1411").Value = "ﾜｶﾔﾏｼ"
Range("C1412").Value = "001421"
Range("E1412").Value = "海南市"
Range("G1412").Value = "ｶｲﾅﾝｼ"
Range("C1413").Value = "001422"
Range("E1413").Value = "橋本市"
Range("G1413").Value = "ﾊｼﾓﾄｼ"
Range("C1414").Value = "001423"
Range("E1414").Value = "有田市"
Range("G1414").Value = "ｱﾘﾀﾞｼ"
Range("C1415").Value = "001424"
Range("E1415").Value = "御坊市"
Range("G1415").Value = "ｺﾞﾎﾞｳｼ"
Range("C1416").Value = "001425"
Range("E1416").Value = "田辺市"
Range("G1416").Value = "ﾀﾅﾍﾞｼ"
Range("C1417").Value = "001426"
Range("E1417").Value = "新宮市"
Range("G1417").Value = "ｼﾝｸﾞｳｼ"
Range("C1418").Value = "001427"
Range("E1418").Value = "紀の川市"
Range("G1418").Value = "ｷﾉｶﾜｼ"
Range("C1419").Value = "001428"
Range("E1419").Value = "岩出市"
Range("G1419").Value = "ｲﾜﾃﾞｼ"
Range("C1420").Value = "001429"
Range("E1420").Value = "紀美野町"
Range("G1420").Value = "ｷﾐﾉﾁｮｳ"
Range("C1421").Value = "001430"
Range("E1421").Value = "かつらぎ町"
Range("G1421").Value = "ｶﾂﾗｷﾞﾁｮｳ"
Range("C1422").Value = "001431"
Range("E1422").Value = "九度山町"
Range("G1422").Value = "ｸﾄﾞﾔﾏﾁｮｳ"
Range("C1423").Value = "001432"
Range("E1423").Value = "高野町"
Range("G1423").Value = "ｺｳﾔﾁｮｳ"
Range("C1424").Value = "001433"
Range("E1424").Value = "湯浅町"
Range("G1424").Value = "ﾕｱｻﾁｮｳ"
Range("C1425").Value = "001434"
Range("E1425").Value = "広川町"
Range("G1425").Value = "ﾋﾛｶﾞﾜﾁｮｳ"
Range("C1426").Value = "001435"
Range("E1426").Value = "有田川町"
Range("G1426").Value = "ｱﾘﾀﾞｶﾞﾜﾁｮｳ"
Range("C1427").Value = "001436"
Range("C1428").Value = "001437"
Range("C1429").Value = "001438"
Range("E1429").Value = "由良町"
Range("G1429").Value = "ﾕﾗﾁｮｳ"
Range("C1430").Value = "001439"
Range("E1430").Value = "印南町"
Range("C1431").Value = "001440"
Range("E1431").Value = "みなべ町"
Range("G1431").Value = "ﾐﾅﾍﾞﾁｮｳ"
Range("C1432").Value = "001441"
Range("E1432").Value = "日高川町"
Range("G1432").Value = "ﾋﾀﾞｶｶﾞﾜﾁｮｳ"
Range("C1433").Value = "001442"
Range("E1433").Value = "白浜町"
Range("G1433").Value = "ｼﾗﾊﾏﾁｮｳ"
Range("C1434").Value = "001443"
Range("E1434").Value = "上富田町"
Range("G1434").Value = "ｶﾐﾄﾝﾀﾞﾁｮｳ"
Range("C1435").Value = "001444"
Range("E1435").Value = "すさみ町"
Range("G1435").Value = "ｽｻﾐﾁｮｳ"
Range("C1436").Value = "001445"
Range("E1436").Value = "那智勝浦町"
Range("G1436").Value = "ﾅﾁｶﾂｳﾗﾁｮｳ"
Range("C1437").Value = "001446"
Range("E1437").Value = "太地町"
Range("G1437").Value = "ﾀｲｼﾞﾁｮｳ"
Range("C1438").Value = "001447"
Range("E1438").Value = "古座川町"
Range("G1438").Value = "ｺｻﾞｶﾞﾜﾁｮｳ"
Range("C1439").Value = "001448"
Range("E1439").Value = "北山村"
Range("G1439").Value = "ｷﾀﾔﾏﾑﾗ"
Range("C1440").Value = "001449"
Range("E1440").Value = "串本町"
Range("G1440").Value = "ｸｼﾓﾄﾁｮｳ"
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理
Range("A1:A49,C1:G1,C2:D2,F2,C3:G191,C192:D192,F192,C193:G232,C233:D233,F233").NumberFormatLocal = "@"
Range("C234:G266,C267:D267,F267,C268:G307,C308:D308,F308,C309:G333,C334:D334,F334,C335:G369").NumberFormatLocal = "@"
Range("C370:D370,F370,C371:G429,C430:D430,F430,C431:G474,C475:D475,F475,C476:G500,C501:D501").NumberFormatLocal = "@"
Range("F501,C502:G536,C537:D537,F537,C538:G538,C539:D548,F539:G548,C549:G610,C611:D611,F611").NumberFormatLocal = "@"
Range("C612:G612,C613:D618,F613:G618,C619:G671,C672:D672,F672,C673:G734,I701,C735:D735,F735").NumberFormatLocal = "@"
Range("C736:G796,C797:D797,F797,C798:G835,C836:D836,F836,C837:G851,C852:D852,F852,C853:G871").NumberFormatLocal = "@"
Range("C872:D872,F872,C873:G889,C890:D890,F890,C891:G917,C918:D918,F918,C919:G995,C996:D996").NumberFormatLocal = "@"
Range("F996,C997:G1038,C1039:D1039,F1039,C1040:G1084,C1085:D1085,F1085,C1086:G1086,C1087:D1102,F1087:G1102").NumberFormatLocal = "@"
Range("C1103:G1155,C1156:D1156,F1156,C1157:G1185,C1186:D1186,F1186,C1187:G1205,C1206:D1206,F1206,C1207:G1243").NumberFormatLocal = "@"
Range("C1244:D1244,F1244,C1245:G1318,C1319:D1319,F1319,C1320:G1369,C1370:D1370,F1370,C1371:G1409,C1410:D1410").NumberFormatLocal = "@"
Range("F1410,C1411:G1440").NumberFormatLocal = "@"
Rem 塗りつぶしセルをまとめて処理
Range("A1,C1:G1").Interior.ColorIndex = 24
Range("C2:G2,A3:A49,C192:G192,C233:G233,C267:G267,C308:G308,C334:G334,C370:G370").Interior.ColorIndex = 6
Range("C430:G430,C475:G475,C501:G501,C537:G537,C611:G611,C672:G672,C735:G735,C797:G797").Interior.ColorIndex = 6
Range("C836:G836,C852:G852,C872:G872,C890:G890,C918:G918,C996:G996,C1039:G1039,C1085:G1085").Interior.ColorIndex = 6
Range("C1156:G1156,C1186:G1186,C1206:G1206,C1244:G1244,C1319:G1319,C1370:G1370,C1410:G1410").Interior.ColorIndex = 6
Rem 列幅をまとめて処理
Range("A1:A1440,D1:D1440").ColumnWidth = 12.25
Range("B1:B1440,H1:I1440").ColumnWidth = 8.38
Range("C1:C1440").ColumnWidth = 11
Range("E1:E1440").ColumnWidth = 16.63
Range("F1:F1440").ColumnWidth = 12.13
Range("G1:G1440").ColumnWidth = 28.13
Rem 行高さをまとめて処理
Range("A1:I1").RowHeight = 28.5
Range("A2:I1440").RowHeight = 13.5
MsgBox "お題の作成が完了しました。"
End Sub
（f） 2019/02/20(水) 10:08
（隠居じーさん） 2019/02/20(水) 10:25
■情報入力シートの転記処理部分（こちらはツール実行できておりますが、念のため）
.Range("A" & i).Value = sh2.Range("B2").Value
'マスタ（管理）より管理者コードを取得する必要あり
' .Range("B" & i).Value = sh2.Range("").Value
'ファイル名取得
.Range("C" & i).Value = wb.Name
.Range("D" & i).Value = sh2.Range("B2").Value
.Range("E" & i).Value = sh2.Range("F2").Value
.Range("F" & i).Value = sh2.Range("G2").Value
.Range("G" & i).Value = sh2.Range("I2").Value
.Range("H" & i).Value = sh2.Range("L2").Value
.Range("J" & i).Value = sh2.Range("B4").Value
.Range("K" & i).Value = sh2.Range("F4").Value
.Range("L" & i).Value = sh2.Range("L4").Value
.Range("M" & i).Value = sh2.Range("B5").Value
.Range("N" & i).Value = sh2.Range("C5").Value
.Range("O" & i).Value = sh2.Range("D5").Value
.Range("P" & i).Value = sh2.Range("L5").Value
'緯度、経度
.Range("Q" & i).Value = sh2.Range("B6").Value
.Range("R" & i).Value = sh2.Range("E6").Value
.Range("S" & i).Value = sh2.Range("H6").Value
.Range("T" & i).Value = sh2.Range("B8").Value
.Range("U" & i).Value = sh2.Range("F8").Value
.Range("V" & i).Value = sh2.Range("K8").Value
.Range("W" & i).Value = sh2.Range("B9").Value
.Range("X" & i).Value = sh2.Range("F9").Value
.Range("Y" & i).Value = sh2.Range("K9").Value
.Range("Z" & i).Value = sh2.Range("B10").Value
.Range("AA" & i).Value = sh2.Range("C10").Value
.Range("AB" & i).Value = sh2.Range("F10").Value
.Range("AC" & i).Value = sh2.Range("G10").Value
.Range("AD" & i).Value = sh2.Range("H10").Value
.Range("AE" & i).Value = sh2.Range("K10").Value
.Range("AF" & i).Value = sh2.Range("L10").Value
.Range("AG" & i).Value = sh2.Range("B11").Value
.Range("AH" & i).Value = sh2.Range("C11").Value
.Range("AI" & i).Value = sh2.Range("F11").Value
.Range("AJ" & i).Value = sh2.Range("G11").Value
.Range("AK" & i).Value = sh2.Range("K11").Value
.Range("AL" & i).Value = sh2.Range("L11").Value
.Range("AM" & i).Value = sh2.Range("B12").Value
.Range("AN" & i).Value = sh2.Range("C12").Value
.Range("AO" & i).Value = sh2.Range("F12").Value
.Range("AP" & i).Value = sh2.Range("G12").Value
.Range("AQ" & i).Value = sh2.Range("K12").Value
.Range("AR" & i).Value = sh2.Range("B14").Value
.Range("AS" & i).Value = sh2.Range("E14").Value
.Range("AT" & i).Value = sh2.Range("H14").Value
.Range("AU" & i).Value = sh2.Range("L14").Value
.Range("AV" & i).Value = sh2.Range("B15").Value
.Range("AW" & i).Value = sh2.Range("E15").Value
.Range("AX" & i).Value = sh2.Range("H15").Value
.Range("AY" & i).Value = sh2.Range("L15").Value
.Range("AZ" & i).Value = sh2.Range("B16").Value
.Range("BA" & i).Value = sh2.Range("E16").Value
.Range("BB" & i).Value = sh2.Range("H16").Value
.Range("BC" & i).Value = sh2.Range("L16").Value
.Range("BD" & i).Value = sh2.Range("B18").Value
.Range("BE" & i).Value = sh2.Range("E18").Value
'
.Range("BF" & i).Value = sh2.Range("H18").Value
.Range("BG" & i).Value = sh2.Range("I18").Value
.Range("BH" & i).Value = sh2.Range("J18").Value
.Range("BI" & i).Value = sh2.Range("L18").Value
.Range("BJ" & i).Value = sh2.Range("M18").Value
.Range("BK" & i).Value = sh2.Range("N18").Value
.Range("BL" & i).Value = sh2.Range("B19").Value
.Range("BM" & i).Value = sh2.Range("E19").Value
.Range("BN" & i).Value = sh2.Range("L19").Value
.Range("BO" & i).Value = sh2.Range("B21").Value
.Range("BP" & i).Value = sh2.Range("H21").Value
.Range("BR" & i).Value = sh2.Range("H18").Value
'市町村コードを転記する必要あり
' .Range("BS" & i) =
.Range("BT" & i).Value = sh2.Range("B5").Value & sh2.Range("C5").Value
.Range("BU" & i).Value = sh2.Range("B6").Value
.Range("BV" & i).Value = sh2.Range("E6").Value
End With wb.Close SaveChanges:=False End If fname = Dir() Loop Application.ScreenUpdating = True
End Sub
（f） 2019/02/20(水) 11:05
'マスタ（管理）より管理者コードを取得する必要あり
' .Range("B" & i).Value = sh2.Range("").Value
'ファイル名取得
.Range("C" & i).Value = wb.Name
.Range("D" & i).Value = sh4.Range("B2").Value
.Range("E" & i).Value = sh4.Range("F2").Value
.Range("F" & i).Value = sh4.Range("G2").Value
.Range("G" & i).Value = sh4.Range("I2").Value
.Range("H" & i).Value = sh4.Range("L2").Value
'以下結果転記
.Range("J" & i).Value = sh2.Range("D10").Value
.Range("K" & i).Value = sh2.Range("E10").Value
.Range("L" & i).Value = sh2.Range("F10").Value
.Range("M" & i).Value = sh2.Range("G10").Value
.Range("N" & i).Value = sh2.Range("H10").Value
.Range("O" & i).Value = sh2.Range("I10").Value
.Range("P" & i).Value = sh2.Range("J10").Value
.Range("Q" & i).Value = sh2.Range("K10").Value
.Range("R" & i).Value = sh2.Range("L10").Value
.Range("S" & i).Value = sh2.Range("M10").Value
.Range("T" & i).Value = sh2.Range("N10").Value
.Range("U" & i).Value = sh2.Range("O10").Value
.Range("V" & i).Value = sh2.Range("P10").Value
.Range("W" & i).Value = sh2.Range("Q10").Value
.Range("X" & i).Value = sh2.Range("R10").Value
.Range("Y" & i).Value = sh2.Range("S10").Value
.Range("Z" & i).Value = sh2.Range("T10").Value
.Range("AA" & i).Value = sh2.Range("U10").Value
.Range("AB" & i).Value = sh2.Range("V10").Value
.Range("AC" & i).Value = sh2.Range("W10").Value
.Range("AD" & i).Value = sh2.Range("X10").Value
.Range("AE" & i).Value = sh2.Range("D11").Value
.Range("AF" & i).Value = sh2.Range("E11").Value
.Range("AG" & i).Value = sh2.Range("F11").Value
.Range("AH" & i).Value = sh2.Range("G11").Value
.Range("AI" & i).Value = sh2.Range("H11").Value
.Range("AJ" & i).Value = sh2.Range("I11").Value
.Range("AK" & i).Value = sh2.Range("J11").Value
.Range("AL" & i).Value = sh2.Range("K11").Value
.Range("AM" & i).Value = sh2.Range("L11").Value
.Range("AN" & i).Value = sh2.Range("M11").Value
.Range("AO" & i).Value = sh2.Range("N11").Value
.Range("AP" & i).Value = sh2.Range("O11").Value
.Range("AQ" & i).Value = sh2.Range("P11").Value
.Range("AR" & i).Value = sh2.Range("Q11").Value
.Range("AS" & i).Value = sh2.Range("R11").Value
.Range("AT" & i).Value = sh2.Range("S11").Value
.Range("AU" & i).Value = sh2.Range("T11").Value
.Range("AV" & i).Value = sh2.Range("U11").Value
.Range("AW" & i).Value = sh2.Range("V11").Value
.Range("AX" & i).Value = sh2.Range("W11").Value
.Range("AY" & i).Value = sh2.Range("X11").Value
.Range("AZ" & i).Value = sh2.Range("D12").Value
.Range("BA" & i).Value = sh2.Range("E12").Value
.Range("BB" & i).Value = sh2.Range("F12").Value
.Range("BC" & i).Value = sh2.Range("G12").Value
.Range("BD" & i).Value = sh2.Range("H12").Value
.Range("BE" & i).Value = sh2.Range("I12").Value
.Range("BF" & i).Value = sh2.Range("J12").Value
.Range("BG" & i).Value = sh2.Range("K12").Value
.Range("BH" & i).Value = sh2.Range("L12").Value
.Range("BI" & i).Value = sh2.Range("M12").Value
.Range("BJ" & i).Value = sh2.Range("N12").Value
.Range("BK" & i).Value = sh2.Range("O12").Value
.Range("BL" & i).Value = sh2.Range("P12").Value
.Range("BM" & i).Value = sh2.Range("Q12").Value
.Range("BN" & i).Value = sh2.Range("R12").Value
.Range("BO" & i).Value = sh2.Range("S12").Value
.Range("BP" & i).Value = sh2.Range("T12").Value
.Range("BQ" & i).Value = sh2.Range("U12").Value
.Range("BR" & i).Value = sh2.Range("V12").Value
.Range("BS" & i).Value = sh2.Range("W12").Value
.Range("BT" & i).Value = sh2.Range("X12").Value
.Range("BU" & i).Value = sh2.Range("D13").Value
.Range("BV" & i).Value = sh2.Range("E13").Value
.Range("BW" & i).Value = sh2.Range("F13").Value
.Range("BX" & i).Value = sh2.Range("G13").Value
.Range("BY" & i).Value = sh2.Range("H13").Value
.Range("BZ" & i).Value = sh2.Range("I13").Value
.Range("CA" & i).Value = sh2.Range("J13").Value
.Range("CB" & i).Value = sh2.Range("K13").Value
.Range("CC" & i).Value = sh2.Range("L13").Value
.Range("CD" & i).Value = sh2.Range("M13").Value
.Range("CE" & i).Value = sh2.Range("N13").Value
.Range("CF" & i).Value = sh2.Range("O13").Value
.Range("CG" & i).Value = sh2.Range("P13").Value
.Range("CH" & i).Value = sh2.Range("Q13").Value
.Range("CI" & i).Value = sh2.Range("R13").Value
.Range("CJ" & i).Value = sh2.Range("S13").Value
.Range("CK" & i).Value = sh2.Range("T13").Value
.Range("CL" & i).Value = sh2.Range("U13").Value
.Range("CM" & i).Value = sh2.Range("V13").Value
.Range("CN" & i).Value = sh2.Range("W13").Value
.Range("CO" & i).Value = sh2.Range("X13").Value
.Range("CP" & i).Value = sh2.Range("D14").Value
.Range("CQ" & i).Value = sh2.Range("E14").Value
.Range("CR" & i).Value = sh2.Range("F14").Value
.Range("CS" & i).Value = sh2.Range("G14").Value
.Range("CT" & i).Value = sh2.Range("H14").Value
.Range("CU" & i).Value = sh2.Range("I14").Value
.Range("CV" & i).Value = sh2.Range("J14").Value
.Range("CW" & i).Value = sh2.Range("K14").Value
.Range("CX" & i).Value = sh2.Range("L14").Value
.Range("CY" & i).Value = sh2.Range("M14").Value
.Range("CZ" & i).Value = sh2.Range("N14").Value
.Range("DA" & i).Value = sh2.Range("O14").Value
.Range("DB" & i).Value = sh2.Range("P14").Value
.Range("DC" & i).Value = sh2.Range("Q14").Value
.Range("DD" & i).Value = sh2.Range("R14").Value
.Range("DE" & i).Value = sh2.Range("S14").Value
.Range("DF" & i).Value = sh2.Range("T14").Value
.Range("DG" & i).Value = sh2.Range("U14").Value
.Range("DH" & i).Value = sh2.Range("V14").Value
.Range("DI" & i).Value = sh2.Range("W14").Value
.Range("DJ" & i).Value = sh2.Range("X14").Value
.Range("DK" & i).Value = sh2.Range("D15").Value
.Range("DL" & i).Value = sh2.Range("E15").Value
.Range("DM" & i).Value = sh2.Range("F15").Value
.Range("DN" & i).Value = sh2.Range("G15").Value
.Range("DO" & i).Value = sh2.Range("H15").Value
.Range("DP" & i).Value = sh2.Range("I15").Value
.Range("DQ" & i).Value = sh2.Range("J15").Value
.Range("DR" & i).Value = sh2.Range("K15").Value
.Range("DS" & i).Value = sh2.Range("L15").Value
.Range("DT" & i).Value = sh2.Range("M15").Value
.Range("DU" & i).Value = sh2.Range("N15").Value
.Range("DV" & i).Value = sh2.Range("O15").Value
.Range("DW" & i).Value = sh2.Range("P15").Value
.Range("DX" & i).Value = sh2.Range("Q15").Value
.Range("DY" & i).Value = sh2.Range("R15").Value
.Range("DZ" & i).Value = sh2.Range("S15").Value
.Range("EA" & i).Value = sh2.Range("T15").Value
.Range("EB" & i).Value = sh2.Range("U15").Value
.Range("EC" & i).Value = sh2.Range("V15").Value
.Range("ED" & i).Value = sh2.Range("W15").Value
.Range("EE" & i).Value = sh2.Range("X15").Value
.Range("EF" & i).Value = sh2.Range("D16").Value
.Range("EG" & i).Value = sh2.Range("E16").Value
.Range("EH" & i).Value = sh2.Range("F16").Value
.Range("EI" & i).Value = sh2.Range("G16").Value
.Range("EJ" & i).Value = sh2.Range("H16").Value
.Range("EK" & i).Value = sh2.Range("I16").Value
.Range("EL" & i).Value = sh2.Range("J16").Value
.Range("EM" & i).Value = sh2.Range("K16").Value
.Range("EN" & i).Value = sh2.Range("L16").Value
.Range("EO" & i).Value = sh2.Range("M16").Value
.Range("EP" & i).Value = sh2.Range("N16").Value
.Range("EQ" & i).Value = sh2.Range("O16").Value
.Range("ER" & i).Value = sh2.Range("P16").Value
.Range("ES" & i).Value = sh2.Range("Q16").Value
.Range("ET" & i).Value = sh2.Range("R16").Value
.Range("EU" & i).Value = sh2.Range("S16").Value
.Range("EV" & i).Value = sh2.Range("T16").Value
.Range("EW" & i).Value = sh2.Range("U16").Value
.Range("EX" & i).Value = sh2.Range("V16").Value
.Range("EY" & i).Value = sh2.Range("W16").Value
.Range("EZ" & i).Value = sh2.Range("X16").Value
.Range("FA" & i).Value = sh2.Range("D17").Value
.Range("FB" & i).Value = sh2.Range("E17").Value
.Range("FC" & i).Value = sh2.Range("F17").Value
.Range("FD" & i).Value = sh2.Range("G17").Value
.Range("FE" & i).Value = sh2.Range("H17").Value
.Range("FF" & i).Value = sh2.Range("I17").Value
.Range("FG" & i).Value = sh2.Range("J17").Value
.Range("FH" & i).Value = sh2.Range("K17").Value
.Range("FI" & i).Value = sh2.Range("L17").Value
.Range("FJ" & i).Value = sh2.Range("M17").Value
.Range("FK" & i).Value = sh2.Range("N17").Value
.Range("FL" & i).Value = sh2.Range("O17").Value
.Range("FM" & i).Value = sh2.Range("P17").Value
.Range("FN" & i).Value = sh2.Range("Q17").Value
.Range("FO" & i).Value = sh2.Range("R17").Value
.Range("FP" & i).Value = sh2.Range("S17").Value
.Range("FQ" & i).Value = sh2.Range("T17").Value
.Range("FR" & i).Value = sh2.Range("U17").Value
.Range("FS" & i).Value = sh2.Range("V17").Value
.Range("FT" & i).Value = sh2.Range("W17").Value
.Range("FU" & i).Value = sh2.Range("X17").Value
.Range("FV" & i).Value = sh2.Range("D18").Value
.Range("FW" & i).Value = sh2.Range("E18").Value
.Range("FX" & i).Value = sh2.Range("F18").Value
.Range("FY" & i).Value = sh2.Range("G18").Value
.Range("FZ" & i).Value = sh2.Range("H18").Value
.Range("GA" & i).Value = sh2.Range("I18").Value
.Range("GB" & i).Value = sh2.Range("J18").Value
.Range("GC" & i).Value = sh2.Range("K18").Value
.Range("GD" & i).Value = sh2.Range("L18").Value
.Range("GE" & i).Value = sh2.Range("M18").Value
.Range("GF" & i).Value = sh2.Range("N18").Value
.Range("GG" & i).Value = sh2.Range("O18").Value
.Range("GH" & i).Value = sh2.Range("P18").Value
.Range("GI" & i).Value = sh2.Range("Q18").Value
.Range("GJ" & i).Value = sh2.Range("R18").Value
.Range("GK" & i).Value = sh2.Range("S18").Value
.Range("GL" & i).Value = sh2.Range("T18").Value
.Range("GM" & i).Value = sh2.Range("U18").Value
.Range("GN" & i).Value = sh2.Range("V18").Value
.Range("GO" & i).Value = sh2.Range("W18").Value
.Range("GP" & i).Value = sh2.Range("X18").Value
.Range("GQ" & i).Value = sh2.Range("D19").Value
.Range("GR" & i).Value = sh2.Range("E19").Value
.Range("GS" & i).Value = sh2.Range("F19").Value
.Range("GT" & i).Value = sh2.Range("G19").Value
.Range("GU" & i).Value = sh2.Range("H19").Value
.Range("GV" & i).Value = sh2.Range("I19").Value
.Range("GW" & i).Value = sh2.Range("J19").Value
.Range("GX" & i).Value = sh2.Range("K19").Value
.Range("GY" & i).Value = sh2.Range("L19").Value
.Range("GZ" & i).Value = sh2.Range("M19").Value
.Range("HA" & i).Value = sh2.Range("N19").Value
.Range("HB" & i).Value = sh2.Range("O19").Value
.Range("HC" & i).Value = sh2.Range("P19").Value
.Range("HD" & i).Value = sh2.Range("Q19").Value
.Range("HE" & i).Value = sh2.Range("R19").Value
.Range("HF" & i).Value = sh2.Range("S19").Value
.Range("HG" & i).Value = sh2.Range("T19").Value
.Range("HH" & i).Value = sh2.Range("U19").Value
.Range("HI" & i).Value = sh2.Range("V19").Value
.Range("HJ" & i).Value = sh2.Range("W19").Value
.Range("HK" & i).Value = sh2.Range("X19").Value
.Range("HL" & i).Value = sh2.Range("D20").Value
.Range("HM" & i).Value = sh2.Range("E20").Value
.Range("HN" & i).Value = sh2.Range("F20").Value
.Range("HO" & i).Value = sh2.Range("G20").Value
.Range("HP" & i).Value = sh2.Range("H20").Value
.Range("HQ" & i).Value = sh2.Range("I20").Value
.Range("HR" & i).Value = sh2.Range("J20").Value
.Range("HS" & i).Value = sh2.Range("K20").Value
.Range("HT" & i).Value = sh2.Range("L20").Value
.Range("HU" & i).Value = sh2.Range("M20").Value
.Range("HV" & i).Value = sh2.Range("N20").Value
.Range("HW" & i).Value = sh2.Range("O20").Value
.Range("HX" & i).Value = sh2.Range("P20").Value
.Range("HY" & i).Value = sh2.Range("Q20").Value
.Range("HZ" & i).Value = sh2.Range("R20").Value
.Range("IA" & i).Value = sh2.Range("S20").Value
.Range("IB" & i).Value = sh2.Range("T20").Value
.Range("IC" & i).Value = sh2.Range("U20").Value
.Range("ID" & i).Value = sh2.Range("V20").Value
.Range("IE" & i).Value = sh2.Range("W20").Value
.Range("IF" & i).Value = sh2.Range("X20").Value
.Range("IG" & i).Value = sh2.Range("D21").Value
.Range("IH" & i).Value = sh2.Range("E21").Value
.Range("II" & i).Value = sh2.Range("F21").Value
.Range("IJ" & i).Value = sh2.Range("G21").Value
.Range("IK" & i).Value = sh2.Range("H21").Value
.Range("IL" & i).Value = sh2.Range("I21").Value
.Range("IM" & i).Value = sh2.Range("J21").Value
.Range("IN" & i).Value = sh2.Range("K21").Value
.Range("IO" & i).Value = sh2.Range("L21").Value
.Range("IP" & i).Value = sh2.Range("M21").Value
.Range("IQ" & i).Value = sh2.Range("N21").Value
.Range("IR" & i).Value = sh2.Range("O21").Value
.Range("IS" & i).Value = sh2.Range("P21").Value
.Range("IT" & i).Value = sh2.Range("Q21").Value
.Range("IU" & i).Value = sh2.Range("R21").Value
.Range("IV" & i).Value = sh2.Range("S21").Value
.Range("IW" & i).Value = sh2.Range("T21").Value
.Range("IX" & i).Value = sh2.Range("U21").Value
.Range("IY" & i).Value = sh2.Range("V21").Value
.Range("IZ" & i).Value = sh2.Range("W21").Value
.Range("JA" & i).Value = sh2.Range("X21").Value
.Range("JB" & i).Value = sh2.Range("Y10").Value
.Range("JC" & i).Value = sh2.Range("Z10").Value
.Range("JD" & i).Value = sh2.Range("D22").Value
.Range("JE" & i).Value = sh2.Range("E22").Value
.Range("JF" & i).Value = sh2.Range("F22").Value
.Range("JG" & i).Value = sh2.Range("G22").Value
.Range("JH" & i).Value = sh2.Range("H22").Value
.Range("JI" & i).Value = sh2.Range("I22").Value
.Range("JJ" & i).Value = sh2.Range("J22").Value
.Range("JK" & i).Value = sh2.Range("K22").Value
.Range("JL" & i).Value = sh2.Range("L22").Value
.Range("JM" & i).Value = sh2.Range("M22").Value
.Range("JN" & i).Value = sh2.Range("N22").Value
.Range("JO" & i).Value = sh2.Range("O22").Value
.Range("JP" & i).Value = sh2.Range("P22").Value
.Range("JQ" & i).Value = sh2.Range("Q22").Value
.Range("JR" & i).Value = sh2.Range("R22").Value
.Range("JS" & i).Value = sh2.Range("S22").Value
.Range("JT" & i).Value = sh2.Range("T22").Value
.Range("JU" & i).Value = sh2.Range("U22").Value
.Range("JV" & i).Value = sh2.Range("V22").Value
.Range("JW" & i).Value = sh2.Range("W22").Value
.Range("JX" & i).Value = sh2.Range("X22").Value
.Range("JY" & i).Value = sh2.Range("D23").Value
.Range("JZ" & i).Value = sh2.Range("E23").Value
.Range("KA" & i).Value = sh2.Range("F23").Value
.Range("KB" & i).Value = sh2.Range("G23").Value
.Range("KC" & i).Value = sh2.Range("H23").Value
.Range("KD" & i).Value = sh2.Range("I23").Value
.Range("KE" & i).Value = sh2.Range("J23").Value
.Range("KF" & i).Value = sh2.Range("K23").Value
.Range("KG" & i).Value = sh2.Range("L23").Value
.Range("KH" & i).Value = sh2.Range("M23").Value
.Range("KI" & i).Value = sh2.Range("N23").Value
.Range("KJ" & i).Value = sh2.Range("O23").Value
.Range("KK" & i).Value = sh2.Range("P23").Value
.Range("KL" & i).Value = sh2.Range("Q23").Value
.Range("KM" & i).Value = sh2.Range("R23").Value
.Range("KN" & i).Value = sh2.Range("S23").Value
.Range("KO" & i).Value = sh2.Range("T23").Value
.Range("KP" & i).Value = sh2.Range("U23").Value
.Range("KQ" & i).Value = sh2.Range("V23").Value
.Range("KR" & i).Value = sh2.Range("W23").Value
.Range("KS" & i).Value = sh2.Range("X23").Value
.Range("KT" & i).Value = sh2.Range("D24").Value
.Range("KU" & i).Value = sh2.Range("E24").Value
.Range("KV" & i).Value = sh2.Range("F24").Value
.Range("KW" & i).Value = sh2.Range("G24").Value
.Range("KX" & i).Value = sh2.Range("H24").Value
.Range("KY" & i).Value = sh2.Range("I24").Value
.Range("KZ" & i).Value = sh2.Range("J24").Value
.Range("LA" & i).Value = sh2.Range("K24").Value
.Range("LB" & i).Value = sh2.Range("L24").Value
.Range("LC" & i).Value = sh2.Range("M24").Value
.Range("LD" & i).Value = sh2.Range("N24").Value
.Range("LE" & i).Value = sh2.Range("O24").Value
.Range("LF" & i).Value = sh2.Range("P24").Value
.Range("LG" & i).Value = sh2.Range("Q24").Value
.Range("LH" & i).Value = sh2.Range("R24").Value
.Range("LI" & i).Value = sh2.Range("S24").Value
.Range("LJ" & i).Value = sh2.Range("T24").Value
.Range("LK" & i).Value = sh2.Range("U24").Value
.Range("LL" & i).Value = sh2.Range("V24").Value
.Range("LM" & i).Value = sh2.Range("W24").Value
.Range("LN" & i).Value = sh2.Range("X24").Value
.Range("LO" & i).Value = sh2.Range("D25").Value
.Range("LP" & i).Value = sh2.Range("E25").Value
.Range("LQ" & i).Value = sh2.Range("F25").Value
.Range("LR" & i).Value = sh2.Range("G25").Value
.Range("LS" & i).Value = sh2.Range("H25").Value
.Range("LT" & i).Value = sh2.Range("I25").Value
.Range("LU" & i).Value = sh2.Range("J25").Value
.Range("LV" & i).Value = sh2.Range("K25").Value
.Range("LW" & i).Value = sh2.Range("L25").Value
.Range("LX" & i).Value = sh2.Range("M25").Value
.Range("LY" & i).Value = sh2.Range("N25").Value
.Range("LZ" & i).Value = sh2.Range("O25").Value
.Range("MA" & i).Value = sh2.Range("P25").Value
.Range("MB" & i).Value = sh2.Range("Q25").Value
.Range("MC" & i).Value = sh2.Range("R25").Value
.Range("MD" & i).Value = sh2.Range("S25").Value
.Range("ME" & i).Value = sh2.Range("T25").Value
.Range("MF" & i).Value = sh2.Range("U25").Value
.Range("MG" & i).Value = sh2.Range("V25").Value
.Range("MH" & i).Value = sh2.Range("W25").Value
.Range("MI" & i).Value = sh2.Range("X25").Value
.Range("MJ" & i).Value = sh2.Range("D26").Value
.Range("MK" & i).Value = sh2.Range("E26").Value
.Range("ML" & i).Value = sh2.Range("F26").Value
.Range("MM" & i).Value = sh2.Range("G26").Value
.Range("MN" & i).Value = sh2.Range("H26").Value
.Range("MO" & i).Value = sh2.Range("I26").Value
.Range("MP" & i).Value = sh2.Range("J26").Value
.Range("MQ" & i).Value = sh2.Range("K26").Value
.Range("MR" & i).Value = sh2.Range("L26").Value
.Range("MS" & i).Value = sh2.Range("M26").Value
.Range("MT" & i).Value = sh2.Range("N26").Value
.Range("MU" & i).Value = sh2.Range("O26").Value
.Range("MV" & i).Value = sh2.Range("P26").Value
.Range("MW" & i).Value = sh2.Range("Q26").Value
.Range("MX" & i).Value = sh2.Range("R26").Value
.Range("MY" & i).Value = sh2.Range("S26").Value
.Range("MZ" & i).Value = sh2.Range("T26").Value
.Range("NA" & i).Value = sh2.Range("U26").Value
.Range("NB" & i).Value = sh2.Range("V26").Value
.Range("NC" & i).Value = sh2.Range("W26").Value
.Range("ND" & i).Value = sh2.Range("X26").Value
.Range("NE" & i).Value = sh2.Range("D27").Value
.Range("NF" & i).Value = sh2.Range("E27").Value
.Range("NG" & i).Value = sh2.Range("F27").Value
.Range("NH" & i).Value = sh2.Range("G27").Value
.Range("NI" & i).Value = sh2.Range("H27").Value
.Range("NJ" & i).Value = sh2.Range("I27").Value
.Range("NK" & i).Value = sh2.Range("J27").Value
.Range("NL" & i).Value = sh2.Range("K27").Value
.Range("NM" & i).Value = sh2.Range("L27").Value
.Range("NN" & i).Value = sh2.Range("M27").Value
.Range("NO" & i).Value = sh2.Range("N27").Value
.Range("NP" & i).Value = sh2.Range("O27").Value
.Range("NQ" & i).Value = sh2.Range("P27").Value
.Range("NR" & i).Value = sh2.Range("Q27").Value
.Range("NS" & i).Value = sh2.Range("R27").Value
.Range("NT" & i).Value = sh2.Range("S27").Value
.Range("NU" & i).Value = sh2.Range("T27").Value
.Range("NV" & i).Value = sh2.Range("U27").Value
.Range("NW" & i).Value = sh2.Range("V27").Value
.Range("NX" & i).Value = sh2.Range("W27").Value
.Range("NY" & i).Value = sh2.Range("X27").Value
.Range("NZ" & i).Value = sh2.Range("Y22").Value
.Range("OA" & i).Value = sh2.Range("Z22").Value
.Range("OB" & i).Value = sh2.Range("D28").Value
.Range("OC" & i).Value = sh2.Range("E28").Value
.Range("OD" & i).Value = sh2.Range("F28").Value
.Range("OE" & i).Value = sh2.Range("G28").Value
.Range("OF" & i).Value = sh2.Range("H28").Value
.Range("OG" & i).Value = sh2.Range("I28").Value
.Range("OH" & i).Value = sh2.Range("J28").Value
.Range("OI" & i).Value = sh2.Range("K28").Value
.Range("OJ" & i).Value = sh2.Range("L28").Value
.Range("OK" & i).Value = sh2.Range("M28").Value
.Range("OL" & i).Value = sh2.Range("N28").Value
.Range("OM" & i).Value = sh2.Range("O28").Value
.Range("ON" & i).Value = sh2.Range("P28").Value
.Range("OO" & i).Value = sh2.Range("Q28").Value
.Range("OP" & i).Value = sh2.Range("R28").Value
.Range("OQ" & i).Value = sh2.Range("S28").Value
.Range("OR" & i).Value = sh2.Range("T28").Value
.Range("OS" & i).Value = sh2.Range("U28").Value
.Range("OT" & i).Value = sh2.Range("V28").Value
.Range("OU" & i).Value = sh2.Range("W28").Value
.Range("OV" & i).Value = sh2.Range("X28").Value
.Range("OW" & i).Value = sh2.Range("D29").Value
.Range("OX" & i).Value = sh2.Range("E29").Value
.Range("OY" & i).Value = sh2.Range("F29").Value
.Range("OZ" & i).Value = sh2.Range("G29").Value
.Range("PA" & i).Value = sh2.Range("H29").Value
.Range("PB" & i).Value = sh2.Range("I29").Value
.Range("PC" & i).Value = sh2.Range("J29").Value
.Range("PD" & i).Value = sh2.Range("K29").Value
.Range("PE" & i).Value = sh2.Range("L29").Value
.Range("PF" & i).Value = sh2.Range("M29").Value
.Range("PG" & i).Value = sh2.Range("N29").Value
.Range("PH" & i).Value = sh2.Range("O29").Value
.Range("PI" & i).Value = sh2.Range("P29").Value
.Range("PJ" & i).Value = sh2.Range("Q29").Value
.Range("PK" & i).Value = sh2.Range("R29").Value
.Range("PL" & i).Value = sh2.Range("S29").Value
.Range("PM" & i).Value = sh2.Range("T29").Value
.Range("PN" & i).Value = sh2.Range("U29").Value
.Range("PO" & i).Value = sh2.Range("V29").Value
.Range("PP" & i).Value = sh2.Range("W29").Value
.Range("PQ" & i).Value = sh2.Range("X29").Value
.Range("PR" & i).Value = sh2.Range("D30").Value
.Range("PS" & i).Value = sh2.Range("E30").Value
.Range("PT" & i).Value = sh2.Range("F30").Value
.Range("PU" & i).Value = sh2.Range("G30").Value
.Range("PV" & i).Value = sh2.Range("H30").Value
.Range("PW" & i).Value = sh2.Range("I30").Value
.Range("PX" & i).Value = sh2.Range("J30").Value
.Range("PY" & i).Value = sh2.Range("K30").Value
.Range("PZ" & i).Value = sh2.Range("L30").Value
.Range("QA" & i).Value = sh2.Range("M30").Value
.Range("QB" & i).Value = sh2.Range("N30").Value
.Range("QC" & i).Value = sh2.Range("O30").Value
.Range("QD" & i).Value = sh2.Range("P30").Value
.Range("QE" & i).Value = sh2.Range("Q30").Value
.Range("QF" & i).Value = sh2.Range("R30").Value
.Range("QG" & i).Value = sh2.Range("S30").Value
.Range("QH" & i).Value = sh2.Range("T30").Value
.Range("QI" & i).Value = sh2.Range("U30").Value
.Range("QJ" & i).Value = sh2.Range("V30").Value
.Range("QK" & i).Value = sh2.Range("W30").Value
.Range("QL" & i).Value = sh2.Range("X30").Value
.Range("QM" & i).Value = sh2.Range("D31").Value
.Range("QN" & i).Value = sh2.Range("E31").Value
.Range("QO" & i).Value = sh2.Range("F31").Value
.Range("QP" & i).Value = sh2.Range("G31").Value
.Range("QQ" & i).Value = sh2.Range("H31").Value
.Range("QR" & i).Value = sh2.Range("I31").Value
.Range("QS" & i).Value = sh2.Range("J31").Value
.Range("QT" & i).Value = sh2.Range("K31").Value
.Range("QU" & i).Value = sh2.Range("L31").Value
.Range("QV" & i).Value = sh2.Range("M31").Value
.Range("QW" & i).Value = sh2.Range("N31").Value
.Range("QX" & i).Value = sh2.Range("O31").Value
.Range("QY" & i).Value = sh2.Range("P31").Value
.Range("QZ" & i).Value = sh2.Range("Q31").Value
.Range("RA" & i).Value = sh2.Range("R31").Value
.Range("RB" & i).Value = sh2.Range("S31").Value
.Range("RC" & i).Value = sh2.Range("T31").Value
.Range("RD" & i).Value = sh2.Range("U31").Value
.Range("RE" & i).Value = sh2.Range("V31").Value
.Range("RF" & i).Value = sh2.Range("W31").Value
.Range("RG" & i).Value = sh2.Range("X31").Value
.Range("RH" & i).Value = sh2.Range("D32").Value
.Range("RI" & i).Value = sh2.Range("E32").Value
.Range("RJ" & i).Value = sh2.Range("F32").Value
.Range("RK" & i).Value = sh2.Range("G32").Value
.Range("RL" & i).Value = sh2.Range("H32").Value
.Range("RM" & i).Value = sh2.Range("I32").Value
.Range("RN" & i).Value = sh2.Range("J32").Value
.Range("RO" & i).Value = sh2.Range("K32").Value
.Range("RP" & i).Value = sh2.Range("L32").Value
.Range("RQ" & i).Value = sh2.Range("M32").Value
.Range("RR" & i).Value = sh2.Range("N32").Value
.Range("RS" & i).Value = sh2.Range("O32").Value
.Range("RT" & i).Value = sh2.Range("P32").Value
.Range("RU" & i).Value = sh2.Range("Q32").Value
.Range("RV" & i).Value = sh2.Range("R32").Value
.Range("RW" & i).Value = sh2.Range("S32").Value
.Range("RX" & i).Value = sh2.Range("T32").Value
.Range("RY" & i).Value = sh2.Range("U32").Value
.Range("RZ" & i).Value = sh2.Range("V32").Value
.Range("SA" & i).Value = sh2.Range("W32").Value
.Range("SB" & i).Value = sh2.Range("X32").Value
.Range("SC" & i).Value = sh2.Range("D33").Value
.Range("SD" & i).Value = sh2.Range("E33").Value
.Range("SE" & i).Value = sh2.Range("F33").Value
.Range("SF" & i).Value = sh2.Range("G33").Value
.Range("SG" & i).Value = sh2.Range("H33").Value
.Range("SH" & i).Value = sh2.Range("I33").Value
.Range("SI" & i).Value = sh2.Range("J33").Value
.Range("SJ" & i).Value = sh2.Range("K33").Value
.Range("SK" & i).Value = sh2.Range("L33").Value
.Range("SL" & i).Value = sh2.Range("M33").Value
.Range("SM" & i).Value = sh2.Range("N33").Value
.Range("SN" & i).Value = sh2.Range("O33").Value
.Range("SO" & i).Value = sh2.Range("P33").Value
.Range("SP" & i).Value = sh2.Range("Q33").Value
.Range("SQ" & i).Value = sh2.Range("R33").Value
.Range("SR" & i).Value = sh2.Range("S33").Value
.Range("SS" & i).Value = sh2.Range("T33").Value
.Range("ST" & i).Value = sh2.Range("U33").Value
.Range("SU" & i).Value = sh2.Range("V33").Value
.Range("SV" & i).Value = sh2.Range("W33").Value
.Range("SW" & i).Value = sh2.Range("X33").Value
.Range("SX" & i).Value = sh2.Range("Y28").Value
.Range("SY" & i).Value = sh2.Range("Z28").Value
.Range("SZ" & i).Value = sh2.Range("D34").Value
.Range("TA" & i).Value = sh2.Range("E34").Value
.Range("TB" & i).Value = sh2.Range("F34").Value
.Range("TC" & i).Value = sh2.Range("G34").Value
.Range("TD" & i).Value = sh2.Range("H34").Value
.Range("TE" & i).Value = sh2.Range("I34").Value
.Range("TF" & i).Value = sh2.Range("J34").Value
.Range("TG" & i).Value = sh2.Range("K34").Value
.Range("TH" & i).Value = sh2.Range("L34").Value
.Range("TI" & i).Value = sh2.Range("M34").Value
.Range("TJ" & i).Value = sh2.Range("N34").Value
.Range("TK" & i).Value = sh2.Range("O34").Value
.Range("TL" & i).Value = sh2.Range("P34").Value
.Range("TM" & i).Value = sh2.Range("Q34").Value
.Range("TN" & i).Value = sh2.Range("R34").Value
.Range("TO" & i).Value = sh2.Range("S34").Value
.Range("TP" & i).Value = sh2.Range("T34").Value
.Range("TQ" & i).Value = sh2.Range("U34").Value
.Range("TR" & i).Value = sh2.Range("V34").Value
.Range("TS" & i).Value = sh2.Range("W34").Value
.Range("TT" & i).Value = sh2.Range("X34").Value
.Range("TU" & i).Value = sh2.Range("D35").Value
.Range("TV" & i).Value = sh2.Range("E35").Value
.Range("TW" & i).Value = sh2.Range("F35").Value
.Range("TX" & i).Value = sh2.Range("G35").Value
.Range("TY" & i).Value = sh2.Range("H35").Value
.Range("TZ" & i).Value = sh2.Range("I35").Value
.Range("UA" & i).Value = sh2.Range("J35").Value
.Range("UB" & i).Value = sh2.Range("K35").Value
.Range("UC" & i).Value = sh2.Range("L35").Value
.Range("UD" & i).Value = sh2.Range("M35").Value
.Range("UE" & i).Value = sh2.Range("N35").Value
.Range("UF" & i).Value = sh2.Range("O35").Value
.Range("UG" & i).Value = sh2.Range("P35").Value
.Range("UH" & i).Value = sh2.Range("Q35").Value
.Range("UI" & i).Value = sh2.Range("R35").Value
.Range("UJ" & i).Value = sh2.Range("S35").Value
.Range("UK" & i).Value = sh2.Range("T35").Value
.Range("UL" & i).Value = sh2.Range("U35").Value
.Range("UM" & i).Value = sh2.Range("V35").Value
.Range("UN" & i).Value = sh2.Range("W35").Value
.Range("UO" & i).Value = sh2.Range("X35").Value
.Range("UP" & i).Value = sh2.Range("Y34").Value
.Range("UQ" & i).Value = sh2.Range("Z34").Value
.Range("UR" & i).Value = sh2.Range("D36").Value
.Range("US" & i).Value = sh2.Range("E36").Value
.Range("UT" & i).Value = sh2.Range("F36").Value
.Range("UU" & i).Value = sh2.Range("G36").Value
.Range("UV" & i).Value = sh2.Range("H36").Value
.Range("UW" & i).Value = sh2.Range("I36").Value
.Range("UX" & i).Value = sh2.Range("J36").Value
.Range("UY" & i).Value = sh2.Range("K36").Value
.Range("UZ" & i).Value = sh2.Range("L36").Value
.Range("VA" & i).Value = sh2.Range("M36").Value
.Range("VB" & i).Value = sh2.Range("N36").Value
.Range("VC" & i).Value = sh2.Range("O36").Value
.Range("VD" & i).Value = sh2.Range("P36").Value
.Range("VE" & i).Value = sh2.Range("Q36").Value
.Range("VF" & i).Value = sh2.Range("R36").Value
.Range("VG" & i).Value = sh2.Range("S36").Value
.Range("VH" & i).Value = sh2.Range("T36").Value
.Range("VI" & i).Value = sh2.Range("U36").Value
.Range("VJ" & i).Value = sh2.Range("V36").Value
.Range("VK" & i).Value = sh2.Range("W36").Value
.Range("VL" & i).Value = sh2.Range("X36").Value
.Range("VM" & i).Value = sh2.Range("D37").Value
.Range("VN" & i).Value = sh2.Range("E37").Value
.Range("VO" & i).Value = sh2.Range("F37").Value
.Range("VP" & i).Value = sh2.Range("G37").Value
.Range("VQ" & i).Value = sh2.Range("H37").Value
.Range("VR" & i).Value = sh2.Range("I37").Value
.Range("VS" & i).Value = sh2.Range("J37").Value
.Range("VT" & i).Value = sh2.Range("K37").Value
.Range("VU" & i).Value = sh2.Range("L37").Value
.Range("VV" & i).Value = sh2.Range("M37").Value
.Range("VW" & i).Value = sh2.Range("N37").Value
.Range("VX" & i).Value = sh2.Range("O37").Value
.Range("VY" & i).Value = sh2.Range("P37").Value
.Range("VZ" & i).Value = sh2.Range("Q37").Value
.Range("WA" & i).Value = sh2.Range("R37").Value
.Range("WB" & i).Value = sh2.Range("S37").Value
.Range("WC" & i).Value = sh2.Range("T37").Value
.Range("WD" & i).Value = sh2.Range("U37").Value
.Range("WE" & i).Value = sh2.Range("V37").Value
.Range("WF" & i).Value = sh2.Range("W37").Value
.Range("WG" & i).Value = sh2.Range("X37").Value
.Range("WH" & i).Value = sh2.Range("Y36").Value
.Range("WI" & i).Value = sh2.Range("Z36").Value
.Range("WJ" & i).Value = sh2.Range("D38").Value
.Range("WK" & i).Value = sh2.Range("E38").Value
.Range("WL" & i).Value = sh2.Range("F38").Value
.Range("WM" & i).Value = sh2.Range("G38").Value
.Range("WN" & i).Value = sh2.Range("H38").Value
.Range("WO" & i).Value = sh2.Range("I38").Value
.Range("WP" & i).Value = sh2.Range("J38").Value
.Range("WQ" & i).Value = sh2.Range("K38").Value
.Range("WR" & i).Value = sh2.Range("L38").Value
.Range("WS" & i).Value = sh2.Range("M38").Value
.Range("WT" & i).Value = sh2.Range("N38").Value
.Range("WU" & i).Value = sh2.Range("O38").Value
.Range("WV" & i).Value = sh2.Range("P38").Value
.Range("WW" & i).Value = sh2.Range("Q38").Value
.Range("WX" & i).Value = sh2.Range("R38").Value
.Range("WY" & i).Value = sh2.Range("S38").Value
.Range("WZ" & i).Value = sh2.Range("T38").Value
.Range("XA" & i).Value = sh2.Range("U38").Value
.Range("XB" & i).Value = sh2.Range("V38").Value
.Range("XC" & i).Value = sh2.Range("W38").Value
.Range("XD" & i).Value = sh2.Range("X38").Value
.Range("XE" & i).Value = sh2.Range("D39").Value
.Range("XF" & i).Value = sh2.Range("E39").Value
.Range("XG" & i).Value = sh2.Range("F39").Value
.Range("XH" & i).Value = sh2.Range("G39").Value
.Range("XI" & i).Value = sh2.Range("H39").Value
.Range("XJ" & i).Value = sh2.Range("I39").Value
.Range("XK" & i).Value = sh2.Range("J39").Value
.Range("XL" & i).Value = sh2.Range("K39").Value
.Range("XM" & i).Value = sh2.Range("L39").Value
.Range("XN" & i).Value = sh2.Range("M39").Value
.Range("XO" & i).Value = sh2.Range("N39").Value
.Range("XP" & i).Value = sh2.Range("O39").Value
.Range("XQ" & i).Value = sh2.Range("P39").Value
.Range("XR" & i).Value = sh2.Range("Q39").Value
.Range("XS" & i).Value = sh2.Range("R39").Value
.Range("XT" & i).Value = sh2.Range("S39").Value
.Range("XU" & i).Value = sh2.Range("T39").Value
.Range("XV" & i).Value = sh2.Range("U39").Value
.Range("XW" & i).Value = sh2.Range("V39").Value
.Range("XX" & i).Value = sh2.Range("W39").Value
.Range("XY" & i).Value = sh2.Range("X39").Value
.Range("XZ" & i).Value = sh2.Range("D40").Value
.Range("YA" & i).Value = sh2.Range("E40").Value
.Range("YB" & i).Value = sh2.Range("F40").Value
.Range("YC" & i).Value = sh2.Range("G40").Value
.Range("YD" & i).Value = sh2.Range("H40").Value
.Range("YE" & i).Value = sh2.Range("I40").Value
.Range("YF" & i).Value = sh2.Range("J40").Value
.Range("YG" & i).Value = sh2.Range("K40").Value
.Range("YH" & i).Value = sh2.Range("L40").Value
.Range("YI" & i).Value = sh2.Range("M40").Value
.Range("YJ" & i).Value = sh2.Range("N40").Value
.Range("YK" & i).Value = sh2.Range("O40").Value
.Range("YL" & i).Value = sh2.Range("P40").Value
.Range("YM" & i).Value = sh2.Range("Q40").Value
.Range("YN" & i).Value = sh2.Range("R40").Value
.Range("YO" & i).Value = sh2.Range("S40").Value
.Range("YP" & i).Value = sh2.Range("T40").Value
.Range("YQ" & i).Value = sh2.Range("U40").Value
.Range("YR" & i).Value = sh2.Range("V40").Value
.Range("YS" & i).Value = sh2.Range("W40").Value
.Range("YT" & i).Value = sh2.Range("X40").Value
.Range("YU" & i).Value = sh2.Range("D41").Value
.Range("YV" & i).Value = sh2.Range("E41").Value
.Range("YW" & i).Value = sh2.Range("F41").Value
.Range("YX" & i).Value = sh2.Range("G41").Value
.Range("YY" & i).Value = sh2.Range("H41").Value
.Range("YZ" & i).Value = sh2.Range("I41").Value
.Range("ZA" & i).Value = sh2.Range("J41").Value
.Range("ZB" & i).Value = sh2.Range("K41").Value
.Range("ZC" & i).Value = sh2.Range("L41").Value
.Range("ZD" & i).Value = sh2.Range("M41").Value
.Range("ZE" & i).Value = sh2.Range("N41").Value
.Range("ZF" & i).Value = sh2.Range("O41").Value
.Range("ZG" & i).Value = sh2.Range("P41").Value
.Range("ZH" & i).Value = sh2.Range("Q41").Value
.Range("ZI" & i).Value = sh2.Range("R41").Value
.Range("ZJ" & i).Value = sh2.Range("S41").Value
.Range("ZK" & i).Value = sh2.Range("T41").Value
.Range("ZL" & i).Value = sh2.Range("U41").Value
.Range("ZM" & i).Value = sh2.Range("V41").Value
.Range("ZN" & i).Value = sh2.Range("W41").Value
.Range("ZO" & i).Value = sh2.Range("X41").Value
.Range("ZP" & i).Value = sh2.Range("Y38").Value
.Range("ZQ" & i).Value = sh2.Range("Z38").Value
.Range("ZR" & i).Value = sh2.Range("Y42").Value
.Range("ZS" & i).Value = sh2.Range("A45").Value
.Range("ZT" & i).Value = sh2.Range("C48").Value
.Range("ZU" & i).Value = sh2.Range("C49").Value
.Range("ZV" & i).Value = sh2.Range("L48").Value
.Range("ZW" & i).Value = sh2.Range("L49").Value
End With wb.Close SaveChanges:=False End If fname = Dir() Loop Application.ScreenUpdating = True
End Sub
（f） 2019/02/20(水) 11:07
ありがとうございました。 とりあえず全、情報がそろったようなので、コード、書いてみます そのまま書き出せばよい分はアップしていただいたものをつかわせて いただきます。 検査シート（A)〜につきましては、見出しだけでも、可能なら 頂いて、後はコードが出来ましたら微調整させていただきます。 便利機能は後に於いておいて、先に必要な骨格部分を作っていきます。 では m(__)m。。。少しお時間を戴きます。。。。← ほんとに少しかあやしい＾＾； でもそんなに、難しいロジックでもなさそぉなので何とかなると思います。 でわ
（隠居じーさん） 2019/02/20(水) 11:48
本当にありがとうございます。。。
ただなぜか検査シートについてはなぜかツールが実行できません。
もう少々お待ちください。
（f） 2019/02/20(水) 11:51
（隠居じーさん） 2019/02/20(水) 12:50
Private Sub SoulMan()
Rem 結合状態を処理
Range("D1:D5").Merge
Range("E1:E5").Merge
Range("F1:F5").Merge
Range("G1:G5").Merge
Range("H1:H5").Merge
Range("I1:I5").Merge
Range("J2:AD2").Merge
Range("J3:AD3").Merge
Range("J4:J5").Merge
Range("K4:K5").Merge
Range("L4:L5").Merge
Range("M4:N4").Merge
Range("O4:P4").Merge
Range("Q4:R4").Merge
Range("S4:T4").Merge
Range("U4:V4").Merge
Range("W4:X4").Merge
Range("Y4:Z4").Merge
Range("AA4:AB4").Merge
Range("AC4:AD4").Merge
Rem 数式セル以外をまとめて処理
Range("D1").Value = 4
Range("E1").Value = 5
Range("F1").Value = 6
Range("G1").Value = 7
Range("H1").Value = 8
Range("I1").Value = 9
Range("J1").Value = "1'''"
Range("J2").Value = "1''"
Range("J3").Value = "1'"
Range("C4").Value = "C4"
Range("J4").Value = 10
Range("K4").Value = 11
Range("L4").Value = 12
Range("M4").Value = 31
Range("O4").Value = 32
Range("Q4").Value = 33
Range("S4").Value = 34
Range("U4").Value = 35
Range("W4").Value = 36
Range("Y4").Value = 37
Range("AA4").Value = 38
Range("AC4").Value = 39
Range("A5").Value = 1
Range("B5").Value = 2
Range("C5").Value = 3
Range("M5").Value = 13
Range("N5").Value = 14
Range("O5").Value = 15
Range("P5").Value = 16
Range("Q5").Value = 17
Range("R5").Value = 18
Range("S5").Value = 19
Range("T5").Value = 20
Range("U5").Value = 21
Range("V5").Value = 22
Range("W5").Value = 23
Range("X5").Value = 24
Range("Y5").Value = 25
Range("Z5").Value = 26
Range("AA5").Value = 27
Range("AB5").Value = 28
Range("AC5").Value = 29
Range("AD5").Value = 30
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理
Rem 塗りつぶしセルをまとめて処理
Range("A1:C3,J3:AD3,A4:B4,A6:C6").Interior.ColorIndex = 35
Range("D1:I6").Interior.ColorIndex = 24
Range("J1:AD1").Interior.ColorIndex = 56
Range("J2:AD2").Interior.ColorIndex = 48
Rem 列幅をまとめて処理
Range("A1:AD6").ColumnWidth = 8.38
Rem 行高さをまとめて処理
Range("A1:AD3,A6:AD6").RowHeight = 15
Range("A4:AD4").RowHeight = 31.5
Range("A5:AD5").RowHeight = 32.25
MsgBox "お題の作成が完了しました。"
End Sub
（f） 2019/02/20(水) 15:03
fさん、了解ですぅ〜お疲れさまでしたぁ〜 それはそぉと処理対象ファイルは何ファイルくらい有るのでしょうか。。。← そろそろ処理速度 が気になってきている。。。(￣▽￣；) m(__)m
（隠居じーさん） 2019/02/20(水) 15:17
処理対象ファイルの数は具体的には決まっておりませんが、
できるだけ１回の処理で多くのエクセルファイルを取り込めたらと思いますが、
最高で何エクセル程度かのうでしょうか？また、推奨エクセルファイル数等はございますでしょうか？
以上、よろしくお願いいたします。
（f） 2019/02/20(水) 15:34
ｗ 。。。 実験はしてませんが。。。時間がかっても良いのでしたら
ＰＣのスペック（メモリー、とかＨＤＤ容量）にもよりますが
開いては閉じてますので、 かなり行けるのではないでしょうか。
とはいえあまり長いとオートメーションエラー、とかいって原因があまり定かではなく
エクセル様がデッドロック状態になることはままあります。
ご用心ください。
＾＾；
↑ 隠居じーさんはこれくらいしか。。。あまりわかっていないかも、この手の案件に
お詳しい方のご回答をお待ちください。m(_ _)m
おお、コードをいそがねば。。。←とってつけたいいわけっす。(#^.^#)でわ
（隠居じーさん） 2019/02/20(水) 16:06
承知いたしました。
こちらの環境でテスト等をしてみて、100以下のファイル数で実行してくださいというようなルールを決めて、運用面でその辺は何とかしたいと思います。
以上、よろしくお願いいたします。
（f） 2019/02/20(水) 16:09
こんばんは！
なんかすごいことになってますねぇ(^^;
途中で私は全然ついていけてませんけど、、気が付いた点をいくつか
先ず、、そろそろシート名を決めた方がいいのではないでしょうか？
もう決まっているのなら、、すみません。
一応、私の中では、
検査シート マスタ 転記先 マスタ管理 検査シート転記元 情報入力シートダミー
かな？と思います。
それから、、おやりになりたいことは色々あるでしょうし、、隠居じーさん さんもその気みたいですから
私がどうこう言う立場でもないのですが、、、あえて一言、、、、
この エクセルの学校 というところは、、みんなが勉強するところだと私は思っていて
このトピは、トピ主さんのトピであってトピ主さんだけのトピではないのです。(←あくまで私見です）
どういうことかと言いますと、、同じ様な問題で困っているひとの為にもあると思うのです。
で、今回の場合でしたら、、、最初の
>■転記元データ入力シート >B5セル：都道府県名 >C5セル：市町村名
>■転記元データマクロシートを >D列：都道府県 >E列：市町村名 >C列：D,Eの各行に応じた地域コード的な数字５桁が入力されている >※DとEの値で主キーになります。
>■希望処理 >B5、C5セル内容に応じた地域コードを転記先シートのBR列に転記したいのです。
でしたら、、、転記先シートのBR列 に
=INDEX(マスタ!$C$2:$C$1440,MATCH(情報入力シートダミー!$B$5&情報入力シートダミー!$C$5,マスタ!$D$2:$D$1440&マスタ!$E$2:$E$1440,0))
と入力して配列で確定すれば表示出来ます。
他のBookとか他のシートとか色々ありますでしょうけど、、、原点はこの一点ではないのでしょうか？
先ずは、一枚のシートの中で問題を解決することを考えて、、
次に、、別のシート
次の次に、、Book間、、、、
実は、、一枚のシートの中で出来たことは、、シート間だろうがBook間だろうがさほど大差はないと私は思っていて、、、
実際、、Range("A1").Value の前に、、Sheet名 Book名を付けるだけですから、、、
でも、一枚のシートのなかですら、、出来ていないことは当然、、Sheet間はもちろんBook間で出来るわけがないことは理解して頂けると思います。
で、今回の場合でしたら、、、↓ =INDEX(D1:D17,MATCH(A1&B1,E1:E17&F1:F17,0)) A B C D E F a6 d7 a12350 a12345 a1 d2 a12346 a2 d3 a12347 a3 d4 a12348 a4 d5 a12349 a5 d6 a12350 a6 d7 a12351 a7 d8 a12352 a8 d9 a12353 a9 d10 a12354 a10 d11 a12355 a11 d12 a12356 a12 d13 a12357 a13 d14 a12358 a14 d15 a12359 a15 d16 a12360 a16 d17 a12361 a17 d18
こんな感じのサンプル？例え話が出来ればそれで済む話の様な気がするんですけど、、どうでしょう？？
ちょっと小言みたいになっちゃって申し訳ないですけど、、気分を悪くなさらないでくださいね。。。
では、では、お邪魔しました。m(__)m （SoulMan） 2019/02/20(水) 20:57
こんばんは〜〜〜 ども ＾＾ ツール。。。有難うございます m(_ _)m すご〜く役にたっていますよ。もう足を向けてねられません。。。 ｗ。。。どっちむいても地球一回りすればだめか(￣▽￣) そぉですね〜2点ほどクリア出来ればよいみたいっすね。 コードは一往出来たのですが。めっちゃ処理速度が遅くて。。。 いま配列に置き換えています。明日ぐらいにはアップ出来ると思うのですが 出来ないかも^^;;; 突っ込みお願いいたします。 お師匠様もアップしてくださいね〜〜〜 勝手に弟子入りすんまそ。。。(#^.^#)ｖ Soulmanさんのおかげで情報も開示状態です。 他の諸先生もアップくだされば、いろいろお互いに勉強になって楽しいですよ。 あ！勉強になるのは私だけかも。。。 でわでわ m(_ _)m
（隠居じーさん） 2019/02/20(水) 22:15
隠居じーさん さん こんばんは！
変な突込み入れてすみませんね(^^;
>お師匠様もアップしてくださいね〜〜〜
ちょっと私は解読出来ないので今回は遠慮しておきます。
ってゆうか、、、残念ながら、、、
>大変申し訳ございませんが、まだ作成していただいたコードについて試せておりませんでした。。
この時点で Out です。。。。
でも、隠居じーさん さんのコードは、楽しみにしています。
では、では、 （SoulMan） 2019/02/20(水) 22:53
＞＞変な突込み入れてすみませんね(^^; いえいえ、とんでもありません。 いつもすみません、ありがとうございます。 がんばってみます。(#^.^#)。。。 おやすみなさい。。。。ｚｚｚｚ m(_ _)m
（隠居じーさん） 2019/02/20(水) 23:16
いろいろとコメントありがとうございます。
みんなのトピックという意見について、承知いたしました。
ただ、あくまで私の作成したトピックでありますので、私のやり方で進めさせていただけたらと思います。
ご理解のほどよろしくお願いいたします。
（f） 2019/02/21(木) 09:51
おはようございます。fです。
速度を上げるのに配列というやり方があるのですか。
調べてみます。
昨日はコード部分ではなくこのその他便利機能の仕様を考えておりました。すみません。
（f） 2019/02/21(木) 09:56
（隠居じーさん） 2019/02/21(木) 10:15
fです。
100は無理ですか。。
ただ、ここはPCスペックなどどうしようもない問題ですよね？？コードうんぬんというお話ではなく。
（f） 2019/02/21(木) 10:23
できたてほかほか、ばぐだらけ。。。(￣▽￣)コードっす チェクお願いいたします。重たいので、10ファイル位で様子見て下さい。 データー、特に情報入力の方は十分確認が出来ていません。 （新規書込み、重複上書きできているか） 検査の方は追加書込みオンリーです。 こちらでも、いまダミーＢＯＯＫを作っています。 書込み先（列）の情報が良いかどうかは判定できると思いますので。。。 とりあえずアップ致します。要バックアップ！m(__)m ＞＞ただ、ここはPCスペックなどどうしようもない問題ですよね？？コードうんぬんというお話ではなく。 100くらいなら、書き方にもよると思います。＾＾；では
Option Explicit
Sub 転記_Ver2()
'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。
Const BaseBookName As String = "データ転記02.xlsm"
Dim fpath As String, fname As String
Dim wb As Workbook
Dim BB As Workbook
Rem 転記先 Write
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Rem 転記元 Read
Dim sh4 As Worksheet
Dim sh5 As Worksheet
Dim sh6 As Worksheet
Dim sh7 As Worksheet
Dim Jr As Range
Dim Mtr As Range
Dim Mkr As Range
Dim snm
Dim Snmstr As String
Dim SsortA()
Dim SsortB()
Dim SsortC()
Dim i As Long
Dim j As Long
Dim y As Long
Dim y2 As Long
Dim ry As Long
Dim n As Long
Dim lr As Long
Dim N2 As Long
Dim t, counter&
Dim w_flg As Boolean
t = Timer
'振り分けする転記先のシート名、並び変えたい順番に左から記入
snm = Array("A", "B", "C", "D")
If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel) Then
Sheet_Delete snm
End If
Application.ScreenUpdating = False
Set BB = Workbooks(BaseBookName)
fpath = BB.Path & "\転記元\"
Set sh1 = BB.Worksheets("列見出")
fname = Dir(fpath & "*.xls*")
Do Until fname = ""
DoEvents
If fname <> BB.Name Then
Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0)
Set sh4 = wb.Worksheets("情報入力シート")
Set sh5 = wb.Worksheets("検査シート")
Set sh6 = wb.Worksheets("マスタ(都道府県)")
Set sh7 = wb.Worksheets("マスタ(管理)")
Set Jr = sh4.UsedRange
Set Mtr = sh6.Range("C2").CurrentRegion
Set Mkr = sh7.Range("B2").CurrentRegion
Snmstr = Trim(sh4.Range("B2").Value)
'書込み先シート名をsh4.Range("B2")の値で振り分け処理
Snmstr = IIf(Snmstr = "E", "D", Snmstr)
On Error Resume Next
If Err.Number > 0 Then
MsgBox "シート名が設定されていません" & vbNewLine & _
"確認後設定してやり直してください。"
On Error GoTo 0
For j = 1 To Windows.Count
If ActiveWorkbook.Name <> BaseBookName Then
ActiveWorkbook.Close False
End If
Next
Sheet_Delete snm
Exit Sub
End If
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")"
SsortA(n) = "情報入力シート(" & Snmstr & ")"
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
sh2.Rows(6).Delete
End If
ReDim Preserve SsortA(n)
SsortA(n) = sh2.Name
n = n + 1
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = "検査シート(" & Snmstr & ")"
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
sh3.Range(sh3.Rows(1), sh3.Rows(2)).Clear
End If
ReDim Preserve SsortB(N2)
SsortB(N2) = sh3.Name
N2 = N2 + 1
On Error GoTo 0
Rem 情報シート書出
With sh2
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr = IIf(lr < 3, 3, lr)
y = lr
For ry = 3 To lr
If (.Cells(ry, 1) = Snmstr) * (.Cells(ry, 3) = wb.Name) * _
(.Cells(ry, 5) = sh4.Range("F2").Value) Then
w_flg = True
Exit For
End If
Next
If w_flg Then
y = ry
w_flg = False
End If
Write_J y, sh2, sh4, wb
'シート名
.Cells(y, 1) = Snmstr
'BS列に地域コードを書込処理
For i = 2 To Mtr.Rows.Count
If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then
.Cells(y, "BS") = Mtr(i, 1)
End If
Next
'管理者コードを各B列書込処理
i = WorksheetFunction.Match(Jr(2, 6), Mkr.Rows(1), 0)
.Cells(y, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
Rem 検査シート書出
With sh3
y2 = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
y2 = IIf(y2 < 7, 7, y2)
Write_K y2, sh3, sh4, sh5, wb
.Cells(y2, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
wb.Close SaveChanges:=False
End If
fname = Dir()
DoEvents
Application.StatusBar = counter
counter = counter + 1
Loop
j = 0: ReDim SsortC(UBound(SsortA) + UBound(SsortB) + 2)
For i = 0 To UBound(SsortA)
SsortC(j) = SsortA(i)
j = j + 1
Next
For i = 0 To UBound(SsortB)
SsortC(j) = SsortB(i)
j = j + 1
Next
For i = UBound(SsortC) To 0 Step -1
On Error Resume Next
Worksheets(SsortC(i)).Move before:=Worksheets(1)
On Error GoTo 0
Next
Application.ScreenUpdating = True
Application.StatusBar = ""
MsgBox "作業完了。所要時間、単位秒 ＝ " & Format(Timer - t, "0.0 秒")
End Sub
Private Sub Sheet_Delete(ByVal snm As Variant)
Dim i As Long
Dim j As Long
Application.DisplayAlerts = False
For j = Worksheets.Count To 1 Step -1
For i = 0 To UBound(snm)
If Worksheets(j).Name = "検査シート(" & snm(i) & ")" Or _
Worksheets(j).Name = "情報入力シート(" & snm(i) & ")" Then
Worksheets(j).Delete
End If
Next
Next
Application.DisplayAlerts = True
End Sub
Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, wb As Workbook)
'sh2 = 情報入力シート,sh4 = 検査シート?
With ws
'.Range("A" & y).Value = sh2.Range("B2").Value
'マスタ（管理）より管理者コードを取得する必要あり
' .Range("B" & y).Value = sh2.Range("").Value
'ファイル名取得
.Range("C" & y).Value = wb.Name
.Range("D" & y).Value = sh2.Range("B2").Value
.Range("E" & y).Value = sh2.Range("F2").Value
.Range("F" & y).Value = sh2.Range("G2").Value
.Range("G" & y).Value = sh2.Range("I2").Value
.Range("H" & y).Value = sh2.Range("L2").Value
.Range("J" & y).Value = sh2.Range("B4").Value
.Range("K" & y).Value = sh2.Range("F4").Value
.Range("L" & y).Value = sh2.Range("L4").Value
.Range("M" & y).Value = sh2.Range("B5").Value
.Range("N" & y).Value = sh2.Range("C5").Value
.Range("O" & y).Value = sh2.Range("D5").Value
.Range("P" & y).Value = sh2.Range("L5").Value
'緯度、経度
.Range("Q" & y).Value = sh2.Range("B6").Value
.Range("R" & y).Value = sh2.Range("E6").Value
.Range("S" & y).Value = sh2.Range("H6").Value
.Range("T" & y).Value = sh2.Range("B8").Value
.Range("U" & y).Value = sh2.Range("F8").Value
.Range("V" & y).Value = sh2.Range("K8").Value
.Range("W" & y).Value = sh2.Range("B9").Value
.Range("X" & y).Value = sh2.Range("F9").Value
.Range("Y" & y).Value = sh2.Range("K9").Value
.Range("Z" & y).Value = sh2.Range("B10").Value
.Range("AA" & y).Value = sh2.Range("C10").Value
.Range("AB" & y).Value = sh2.Range("F10").Value
.Range("AC" & y).Value = sh2.Range("G10").Value
.Range("AD" & y).Value = sh2.Range("H10").Value
.Range("AE" & y).Value = sh2.Range("K10").Value
.Range("AF" & y).Value = sh2.Range("L10").Value
.Range("AG" & y).Value = sh2.Range("B11").Value
.Range("AH" & y).Value = sh2.Range("C11").Value
.Range("Ay" & y).Value = sh2.Range("F11").Value
.Range("AJ" & y).Value = sh2.Range("G11").Value
.Range("AK" & y).Value = sh2.Range("K11").Value
.Range("AL" & y).Value = sh2.Range("L11").Value
.Range("AM" & y).Value = sh2.Range("B12").Value
.Range("AN" & y).Value = sh2.Range("C12").Value
.Range("AO" & y).Value = sh2.Range("F12").Value
.Range("AP" & y).Value = sh2.Range("G12").Value
.Range("AQ" & y).Value = sh2.Range("K12").Value
.Range("AR" & y).Value = sh2.Range("B14").Value
.Range("AS" & y).Value = sh2.Range("E14").Value
.Range("AT" & y).Value = sh2.Range("H14").Value
.Range("AU" & y).Value = sh2.Range("L14").Value
.Range("AV" & y).Value = sh2.Range("B15").Value
.Range("AW" & y).Value = sh2.Range("E15").Value
.Range("AX" & y).Value = sh2.Range("H15").Value
.Range("AY" & y).Value = sh2.Range("L15").Value
.Range("AZ" & y).Value = sh2.Range("B16").Value
.Range("BA" & y).Value = sh2.Range("E16").Value
.Range("BB" & y).Value = sh2.Range("H16").Value
.Range("BC" & y).Value = sh2.Range("L16").Value
.Range("BD" & y).Value = sh2.Range("B18").Value
.Range("BE" & y).Value = sh2.Range("E18").Value
'
.Range("BF" & y).Value = sh2.Range("H18").Value
.Range("BG" & y).Value = sh2.Range("I18").Value
.Range("BH" & y).Value = sh2.Range("J18").Value
.Range("BI" & y).Value = sh2.Range("L18").Value
.Range("BJ" & y).Value = sh2.Range("M18").Value
.Range("BK" & y).Value = sh2.Range("N18").Value
.Range("BL" & y).Value = sh2.Range("B19").Value
.Range("BM" & y).Value = sh2.Range("E19").Value
.Range("BN" & y).Value = sh2.Range("L19").Value
.Range("BO" & y).Value = sh2.Range("B21").Value
.Range("BP" & y).Value = sh2.Range("H21").Value
.Range("BR" & y).Value = sh2.Range("H18").Value
'市町村コードを転記する必要あり
' .Range("BS" & y) =
.Range("BT" & y).Value = sh2.Range("B5").Value & sh2.Range("C5").Value
.Range("BU" & y).Value = sh2.Range("B6").Value
.Range("BV" & y).Value = sh2.Range("E6").Value
End With
Rem（f） 2019/02/20(水) 11:05
End Sub
Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, wb As Workbook)
Rem 'sh2 = 検査シート, sh4 = 情報入力シート
With ws
Rem ■検査シートの転記処理部分 (ZU列ではなくZWまでありました)
MsgBox sh2.Range("B2").Value & sh2.Name
.Range("A" & y2).Value = sh4.Range("B2").Value
'マスタ（管理）より管理者コードを取得する必要あり
' .Range("B" & y2).Value = sh2.Range("").Value
'ファイル名取得
.Range("C" & y2).Value = wb.Name
.Range("D" & y2).Value = sh4.Range("B2").Value
.Range("E" & y2).Value = sh4.Range("F2").Value
.Range("F" & y2).Value = sh4.Range("G2").Value
.Range("G" & y2).Value = sh4.Range("I2").Value
.Range("H" & y2).Value = sh4.Range("L2").Value
'以下結果転記
.Range("J" & y2).Value = sh2.Range("D10").Value
.Range("K" & y2).Value = sh2.Range("E10").Value
.Range("L" & y2).Value = sh2.Range("F10").Value
.Range("M" & y2).Value = sh2.Range("G10").Value
.Range("N" & y2).Value = sh2.Range("H10").Value
.Range("O" & y2).Value = sh2.Range("I10").Value
.Range("P" & y2).Value = sh2.Range("J10").Value
.Range("Q" & y2).Value = sh2.Range("K10").Value
.Range("R" & y2).Value = sh2.Range("L10").Value
.Range("S" & y2).Value = sh2.Range("M10").Value
.Range("T" & y2).Value = sh2.Range("N10").Value
.Range("U" & y2).Value = sh2.Range("O10").Value
.Range("V" & y2).Value = sh2.Range("P10").Value
.Range("W" & y2).Value = sh2.Range("Q10").Value
.Range("X" & y2).Value = sh2.Range("R10").Value
.Range("Y" & y2).Value = sh2.Range("S10").Value
.Range("Z" & y2).Value = sh2.Range("T10").Value
DoEvents
.Range("AA" & y2).Value = sh2.Range("U10").Value
.Range("AB" & y2).Value = sh2.Range("V10").Value
.Range("AC" & y2).Value = sh2.Range("W10").Value
.Range("AD" & y2).Value = sh2.Range("X10").Value
.Range("AE" & y2).Value = sh2.Range("D11").Value
.Range("AF" & y2).Value = sh2.Range("E11").Value
.Range("AG" & y2).Value = sh2.Range("F11").Value
.Range("AH" & y2).Value = sh2.Range("G11").Value
.Range("AI" & y2).Value = sh2.Range("H11").Value
.Range("AJ" & y2).Value = sh2.Range("I11").Value
.Range("AK" & y2).Value = sh2.Range("J11").Value
.Range("AL" & y2).Value = sh2.Range("K11").Value
.Range("AM" & y2).Value = sh2.Range("L11").Value
.Range("AN" & y2).Value = sh2.Range("M11").Value
.Range("AO" & y2).Value = sh2.Range("N11").Value
.Range("AP" & y2).Value = sh2.Range("O11").Value
.Range("AQ" & y2).Value = sh2.Range("P11").Value
.Range("AR" & y2).Value = sh2.Range("Q11").Value
.Range("AS" & y2).Value = sh2.Range("R11").Value
.Range("AT" & y2).Value = sh2.Range("S11").Value
.Range("AU" & y2).Value = sh2.Range("T11").Value
.Range("AV" & y2).Value = sh2.Range("U11").Value
.Range("AW" & y2).Value = sh2.Range("V11").Value
.Range("AX" & y2).Value = sh2.Range("W11").Value
.Range("AY" & y2).Value = sh2.Range("X11").Value
.Range("AZ" & y2).Value = sh2.Range("D12").Value
.Range("BA" & y2).Value = sh2.Range("E12").Value
.Range("BB" & y2).Value = sh2.Range("F12").Value
.Range("BC" & y2).Value = sh2.Range("G12").Value
.Range("BD" & y2).Value = sh2.Range("H12").Value
.Range("BE" & y2).Value = sh2.Range("I12").Value
.Range("BF" & y2).Value = sh2.Range("J12").Value
.Range("BG" & y2).Value = sh2.Range("K12").Value
.Range("BH" & y2).Value = sh2.Range("L12").Value
.Range("BI" & y2).Value = sh2.Range("M12").Value
.Range("BJ" & y2).Value = sh2.Range("N12").Value
.Range("BK" & y2).Value = sh2.Range("O12").Value
.Range("BL" & y2).Value = sh2.Range("P12").Value
.Range("BM" & y2).Value = sh2.Range("Q12").Value
.Range("BN" & y2).Value = sh2.Range("R12").Value
.Range("BO" & y2).Value = sh2.Range("S12").Value
.Range("BP" & y2).Value = sh2.Range("T12").Value
.Range("BQ" & y2).Value = sh2.Range("U12").Value
.Range("BR" & y2).Value = sh2.Range("V12").Value
.Range("BS" & y2).Value = sh2.Range("W12").Value
.Range("BT" & y2).Value = sh2.Range("X12").Value
.Range("BU" & y2).Value = sh2.Range("D13").Value
.Range("BV" & y2).Value = sh2.Range("E13").Value
.Range("BW" & y2).Value = sh2.Range("F13").Value
.Range("BX" & y2).Value = sh2.Range("G13").Value
.Range("BY" & y2).Value = sh2.Range("H13").Value
.Range("BZ" & y2).Value = sh2.Range("I13").Value
.Range("CA" & y2).Value = sh2.Range("J13").Value
.Range("CB" & y2).Value = sh2.Range("K13").Value
.Range("CC" & y2).Value = sh2.Range("L13").Value
.Range("CD" & y2).Value = sh2.Range("M13").Value
.Range("CE" & y2).Value = sh2.Range("N13").Value
.Range("CF" & y2).Value = sh2.Range("O13").Value
.Range("CG" & y2).Value = sh2.Range("P13").Value
.Range("CH" & y2).Value = sh2.Range("Q13").Value
.Range("CI" & y2).Value = sh2.Range("R13").Value
.Range("CJ" & y2).Value = sh2.Range("S13").Value
.Range("CK" & y2).Value = sh2.Range("T13").Value
.Range("CL" & y2).Value = sh2.Range("U13").Value
.Range("CM" & y2).Value = sh2.Range("V13").Value
.Range("CN" & y2).Value = sh2.Range("W13").Value
.Range("CO" & y2).Value = sh2.Range("X13").Value
.Range("CP" & y2).Value = sh2.Range("D14").Value
.Range("CQ" & y2).Value = sh2.Range("E14").Value
.Range("CR" & y2).Value = sh2.Range("F14").Value
.Range("CS" & y2).Value = sh2.Range("G14").Value
.Range("CT" & y2).Value = sh2.Range("H14").Value
.Range("CU" & y2).Value = sh2.Range("I14").Value
.Range("CV" & y2).Value = sh2.Range("J14").Value
.Range("CW" & y2).Value = sh2.Range("K14").Value
.Range("CX" & y2).Value = sh2.Range("L14").Value
.Range("CY" & y2).Value = sh2.Range("M14").Value
.Range("CZ" & y2).Value = sh2.Range("N14").Value
.Range("DA" & y2).Value = sh2.Range("O14").Value
.Range("DB" & y2).Value = sh2.Range("P14").Value
.Range("DC" & y2).Value = sh2.Range("Q14").Value
.Range("DD" & y2).Value = sh2.Range("R14").Value
.Range("DE" & y2).Value = sh2.Range("S14").Value
.Range("DF" & y2).Value = sh2.Range("T14").Value
.Range("DG" & y2).Value = sh2.Range("U14").Value
.Range("DH" & y2).Value = sh2.Range("V14").Value
.Range("DI" & y2).Value = sh2.Range("W14").Value
.Range("DJ" & y2).Value = sh2.Range("X14").Value
.Range("DK" & y2).Value = sh2.Range("D15").Value
.Range("DL" & y2).Value = sh2.Range("E15").Value
.Range("DM" & y2).Value = sh2.Range("F15").Value
.Range("DN" & y2).Value = sh2.Range("G15").Value
.Range("DO" & y2).Value = sh2.Range("H15").Value
.Range("DP" & y2).Value = sh2.Range("I15").Value
.Range("DQ" & y2).Value = sh2.Range("J15").Value
.Range("DR" & y2).Value = sh2.Range("K15").Value
.Range("DS" & y2).Value = sh2.Range("L15").Value
.Range("DT" & y2).Value = sh2.Range("M15").Value
.Range("DU" & y2).Value = sh2.Range("N15").Value
.Range("DV" & y2).Value = sh2.Range("O15").Value
.Range("DW" & y2).Value = sh2.Range("P15").Value
.Range("DX" & y2).Value = sh2.Range("Q15").Value
.Range("DY" & y2).Value = sh2.Range("R15").Value
.Range("DZ" & y2).Value = sh2.Range("S15").Value
.Range("EA" & y2).Value = sh2.Range("T15").Value
.Range("EB" & y2).Value = sh2.Range("U15").Value
.Range("EC" & y2).Value = sh2.Range("V15").Value
.Range("ED" & y2).Value = sh2.Range("W15").Value
.Range("EE" & y2).Value = sh2.Range("X15").Value
.Range("EF" & y2).Value = sh2.Range("D16").Value
.Range("EG" & y2).Value = sh2.Range("E16").Value
.Range("EH" & y2).Value = sh2.Range("F16").Value
.Range("EI" & y2).Value = sh2.Range("G16").Value
.Range("EJ" & y2).Value = sh2.Range("H16").Value
.Range("EK" & y2).Value = sh2.Range("I16").Value
.Range("EL" & y2).Value = sh2.Range("J16").Value
.Range("EM" & y2).Value = sh2.Range("K16").Value
.Range("EN" & y2).Value = sh2.Range("L16").Value
.Range("EO" & y2).Value = sh2.Range("M16").Value
.Range("EP" & y2).Value = sh2.Range("N16").Value
.Range("EQ" & y2).Value = sh2.Range("O16").Value
.Range("ER" & y2).Value = sh2.Range("P16").Value
.Range("ES" & y2).Value = sh2.Range("Q16").Value
.Range("ET" & y2).Value = sh2.Range("R16").Value
.Range("EU" & y2).Value = sh2.Range("S16").Value
.Range("EV" & y2).Value = sh2.Range("T16").Value
.Range("EW" & y2).Value = sh2.Range("U16").Value
.Range("EX" & y2).Value = sh2.Range("V16").Value
.Range("EY" & y2).Value = sh2.Range("W16").Value
.Range("EZ" & y2).Value = sh2.Range("X16").Value
.Range("FA" & y2).Value = sh2.Range("D17").Value
.Range("FB" & y2).Value = sh2.Range("E17").Value
.Range("FC" & y2).Value = sh2.Range("F17").Value
.Range("FD" & y2).Value = sh2.Range("G17").Value
.Range("FE" & y2).Value = sh2.Range("H17").Value
.Range("FF" & y2).Value = sh2.Range("I17").Value
.Range("FG" & y2).Value = sh2.Range("J17").Value
.Range("FH" & y2).Value = sh2.Range("K17").Value
.Range("FI" & y2).Value = sh2.Range("L17").Value
.Range("FJ" & y2).Value = sh2.Range("M17").Value
.Range("FK" & y2).Value = sh2.Range("N17").Value
.Range("FL" & y2).Value = sh2.Range("O17").Value
.Range("FM" & y2).Value = sh2.Range("P17").Value
.Range("FN" & y2).Value = sh2.Range("Q17").Value
.Range("FO" & y2).Value = sh2.Range("R17").Value
.Range("FP" & y2).Value = sh2.Range("S17").Value
.Range("FQ" & y2).Value = sh2.Range("T17").Value
.Range("FR" & y2).Value = sh2.Range("U17").Value
.Range("FS" & y2).Value = sh2.Range("V17").Value
.Range("FT" & y2).Value = sh2.Range("W17").Value
.Range("FU" & y2).Value = sh2.Range("X17").Value
.Range("FV" & y2).Value = sh2.Range("D18").Value
.Range("FW" & y2).Value = sh2.Range("E18").Value
.Range("FX" & y2).Value = sh2.Range("F18").Value
.Range("FY" & y2).Value = sh2.Range("G18").Value
.Range("FZ" & y2).Value = sh2.Range("H18").Value
.Range("GA" & y2).Value = sh2.Range("I18").Value
.Range("GB" & y2).Value = sh2.Range("J18").Value
.Range("GC" & y2).Value = sh2.Range("K18").Value
.Range("GD" & y2).Value = sh2.Range("L18").Value
.Range("GE" & y2).Value = sh2.Range("M18").Value
.Range("GF" & y2).Value = sh2.Range("N18").Value
.Range("GG" & y2).Value = sh2.Range("O18").Value
.Range("GH" & y2).Value = sh2.Range("P18").Value
.Range("GI" & y2).Value = sh2.Range("Q18").Value
.Range("GJ" & y2).Value = sh2.Range("R18").Value
.Range("GK" & y2).Value = sh2.Range("S18").Value
.Range("GL" & y2).Value = sh2.Range("T18").Value
.Range("GM" & y2).Value = sh2.Range("U18").Value
.Range("GN" & y2).Value = sh2.Range("V18").Value
.Range("GO" & y2).Value = sh2.Range("W18").Value
.Range("GP" & y2).Value = sh2.Range("X18").Value
.Range("GQ" & y2).Value = sh2.Range("D19").Value
.Range("GR" & y2).Value = sh2.Range("E19").Value
.Range("GS" & y2).Value = sh2.Range("F19").Value
.Range("GT" & y2).Value = sh2.Range("G19").Value
.Range("GU" & y2).Value = sh2.Range("H19").Value
.Range("GV" & y2).Value = sh2.Range("I19").Value
.Range("GW" & y2).Value = sh2.Range("J19").Value
.Range("GX" & y2).Value = sh2.Range("K19").Value
.Range("GY" & y2).Value = sh2.Range("L19").Value
.Range("GZ" & y2).Value = sh2.Range("M19").Value
.Range("HA" & y2).Value = sh2.Range("N19").Value
.Range("HB" & y2).Value = sh2.Range("O19").Value
.Range("HC" & y2).Value = sh2.Range("P19").Value
.Range("HD" & y2).Value = sh2.Range("Q19").Value
.Range("HE" & y2).Value = sh2.Range("R19").Value
.Range("HF" & y2).Value = sh2.Range("S19").Value
.Range("HG" & y2).Value = sh2.Range("T19").Value
.Range("HH" & y2).Value = sh2.Range("U19").Value
.Range("HI" & y2).Value = sh2.Range("V19").Value
.Range("HJ" & y2).Value = sh2.Range("W19").Value
.Range("HK" & y2).Value = sh2.Range("X19").Value
.Range("HL" & y2).Value = sh2.Range("D20").Value
.Range("HM" & y2).Value = sh2.Range("E20").Value
.Range("HN" & y2).Value = sh2.Range("F20").Value
.Range("HO" & y2).Value = sh2.Range("G20").Value
.Range("HP" & y2).Value = sh2.Range("H20").Value
.Range("HQ" & y2).Value = sh2.Range("I20").Value
.Range("HR" & y2).Value = sh2.Range("J20").Value
.Range("HS" & y2).Value = sh2.Range("K20").Value
.Range("HT" & y2).Value = sh2.Range("L20").Value
.Range("HU" & y2).Value = sh2.Range("M20").Value
.Range("HV" & y2).Value = sh2.Range("N20").Value
.Range("HW" & y2).Value = sh2.Range("O20").Value
.Range("HX" & y2).Value = sh2.Range("P20").Value
.Range("HY" & y2).Value = sh2.Range("Q20").Value
.Range("HZ" & y2).Value = sh2.Range("R20").Value
.Range("IA" & y2).Value = sh2.Range("S20").Value
.Range("IB" & y2).Value = sh2.Range("T20").Value
.Range("IC" & y2).Value = sh2.Range("U20").Value
.Range("ID" & y2).Value = sh2.Range("V20").Value
.Range("IE" & y2).Value = sh2.Range("W20").Value
.Range("IF" & y2).Value = sh2.Range("X20").Value
.Range("IG" & y2).Value = sh2.Range("D21").Value
.Range("IH" & y2).Value = sh2.Range("E21").Value
.Range("II" & y2).Value = sh2.Range("F21").Value
.Range("IJ" & y2).Value = sh2.Range("G21").Value
.Range("IK" & y2).Value = sh2.Range("H21").Value
.Range("IL" & y2).Value = sh2.Range("I21").Value
.Range("IM" & y2).Value = sh2.Range("J21").Value
.Range("IN" & y2).Value = sh2.Range("K21").Value
.Range("IO" & y2).Value = sh2.Range("L21").Value
.Range("IP" & y2).Value = sh2.Range("M21").Value
.Range("IQ" & y2).Value = sh2.Range("N21").Value
.Range("IR" & y2).Value = sh2.Range("O21").Value
.Range("IS" & y2).Value = sh2.Range("P21").Value
.Range("IT" & y2).Value = sh2.Range("Q21").Value
.Range("IU" & y2).Value = sh2.Range("R21").Value
.Range("IV" & y2).Value = sh2.Range("S21").Value
.Range("IW" & y2).Value = sh2.Range("T21").Value
.Range("IX" & y2).Value = sh2.Range("U21").Value
.Range("IY" & y2).Value = sh2.Range("V21").Value
.Range("IZ" & y2).Value = sh2.Range("W21").Value
.Range("JA" & y2).Value = sh2.Range("X21").Value
.Range("JB" & y2).Value = sh2.Range("Y10").Value
.Range("JC" & y2).Value = sh2.Range("Z10").Value
.Range("JD" & y2).Value = sh2.Range("D22").Value
.Range("JE" & y2).Value = sh2.Range("E22").Value
.Range("JF" & y2).Value = sh2.Range("F22").Value
.Range("JG" & y2).Value = sh2.Range("G22").Value
.Range("JH" & y2).Value = sh2.Range("H22").Value
.Range("JI" & y2).Value = sh2.Range("I22").Value
.Range("JJ" & y2).Value = sh2.Range("J22").Value
.Range("JK" & y2).Value = sh2.Range("K22").Value
.Range("JL" & y2).Value = sh2.Range("L22").Value
.Range("JM" & y2).Value = sh2.Range("M22").Value
.Range("JN" & y2).Value = sh2.Range("N22").Value
.Range("JO" & y2).Value = sh2.Range("O22").Value
.Range("JP" & y2).Value = sh2.Range("P22").Value
.Range("JQ" & y2).Value = sh2.Range("Q22").Value
.Range("JR" & y2).Value = sh2.Range("R22").Value
.Range("JS" & y2).Value = sh2.Range("S22").Value
.Range("JT" & y2).Value = sh2.Range("T22").Value
.Range("JU" & y2).Value = sh2.Range("U22").Value
.Range("JV" & y2).Value = sh2.Range("V22").Value
.Range("JW" & y2).Value = sh2.Range("W22").Value
.Range("JX" & y2).Value = sh2.Range("X22").Value
.Range("JY" & y2).Value = sh2.Range("D23").Value
.Range("JZ" & y2).Value = sh2.Range("E23").Value
.Range("KA" & y2).Value = sh2.Range("F23").Value
.Range("KB" & y2).Value = sh2.Range("G23").Value
.Range("KC" & y2).Value = sh2.Range("H23").Value
.Range("KD" & y2).Value = sh2.Range("I23").Value
.Range("KE" & y2).Value = sh2.Range("J23").Value
.Range("KF" & y2).Value = sh2.Range("K23").Value
.Range("KG" & y2).Value = sh2.Range("L23").Value
.Range("KH" & y2).Value = sh2.Range("M23").Value
.Range("KI" & y2).Value = sh2.Range("N23").Value
.Range("KJ" & y2).Value = sh2.Range("O23").Value
.Range("KK" & y2).Value = sh2.Range("P23").Value
.Range("KL" & y2).Value = sh2.Range("Q23").Value
.Range("KM" & y2).Value = sh2.Range("R23").Value
.Range("KN" & y2).Value = sh2.Range("S23").Value
.Range("KO" & y2).Value = sh2.Range("T23").Value
.Range("KP" & y2).Value = sh2.Range("U23").Value
.Range("KQ" & y2).Value = sh2.Range("V23").Value
.Range("KR" & y2).Value = sh2.Range("W23").Value
.Range("KS" & y2).Value = sh2.Range("X23").Value
.Range("KT" & y2).Value = sh2.Range("D24").Value
.Range("KU" & y2).Value = sh2.Range("E24").Value
.Range("KV" & y2).Value = sh2.Range("F24").Value
.Range("KW" & y2).Value = sh2.Range("G24").Value
.Range("KX" & y2).Value = sh2.Range("H24").Value
.Range("KY" & y2).Value = sh2.Range("I24").Value
.Range("KZ" & y2).Value = sh2.Range("J24").Value
.Range("LA" & y2).Value = sh2.Range("K24").Value
.Range("LB" & y2).Value = sh2.Range("L24").Value
.Range("LC" & y2).Value = sh2.Range("M24").Value
.Range("LD" & y2).Value = sh2.Range("N24").Value
.Range("LE" & y2).Value = sh2.Range("O24").Value
.Range("LF" & y2).Value = sh2.Range("P24").Value
.Range("LG" & y2).Value = sh2.Range("Q24").Value
.Range("LH" & y2).Value = sh2.Range("R24").Value
.Range("LI" & y2).Value = sh2.Range("S24").Value
.Range("LJ" & y2).Value = sh2.Range("T24").Value
.Range("LK" & y2).Value = sh2.Range("U24").Value
.Range("LL" & y2).Value = sh2.Range("V24").Value
.Range("LM" & y2).Value = sh2.Range("W24").Value
.Range("LN" & y2).Value = sh2.Range("X24").Value
.Range("LO" & y2).Value = sh2.Range("D25").Value
.Range("LP" & y2).Value = sh2.Range("E25").Value
.Range("LQ" & y2).Value = sh2.Range("F25").Value
.Range("LR" & y2).Value = sh2.Range("G25").Value
.Range("LS" & y2).Value = sh2.Range("H25").Value
.Range("LT" & y2).Value = sh2.Range("I25").Value
.Range("LU" & y2).Value = sh2.Range("J25").Value
.Range("LV" & y2).Value = sh2.Range("K25").Value
.Range("LW" & y2).Value = sh2.Range("L25").Value
.Range("LX" & y2).Value = sh2.Range("M25").Value
.Range("LY" & y2).Value = sh2.Range("N25").Value
.Range("LZ" & y2).Value = sh2.Range("O25").Value
.Range("MA" & y2).Value = sh2.Range("P25").Value
.Range("MB" & y2).Value = sh2.Range("Q25").Value
.Range("MC" & y2).Value = sh2.Range("R25").Value
.Range("MD" & y2).Value = sh2.Range("S25").Value
.Range("ME" & y2).Value = sh2.Range("T25").Value
.Range("MF" & y2).Value = sh2.Range("U25").Value
.Range("MG" & y2).Value = sh2.Range("V25").Value
.Range("MH" & y2).Value = sh2.Range("W25").Value
.Range("MI" & y2).Value = sh2.Range("X25").Value
.Range("MJ" & y2).Value = sh2.Range("D26").Value
.Range("MK" & y2).Value = sh2.Range("E26").Value
.Range("ML" & y2).Value = sh2.Range("F26").Value
.Range("MM" & y2).Value = sh2.Range("G26").Value
.Range("MN" & y2).Value = sh2.Range("H26").Value
.Range("MO" & y2).Value = sh2.Range("I26").Value
.Range("MP" & y2).Value = sh2.Range("J26").Value
.Range("MQ" & y2).Value = sh2.Range("K26").Value
.Range("MR" & y2).Value = sh2.Range("L26").Value
.Range("MS" & y2).Value = sh2.Range("M26").Value
.Range("MT" & y2).Value = sh2.Range("N26").Value
.Range("MU" & y2).Value = sh2.Range("O26").Value
.Range("MV" & y2).Value = sh2.Range("P26").Value
.Range("MW" & y2).Value = sh2.Range("Q26").Value
.Range("MX" & y2).Value = sh2.Range("R26").Value
.Range("MY" & y2).Value = sh2.Range("S26").Value
.Range("MZ" & y2).Value = sh2.Range("T26").Value
.Range("NA" & y2).Value = sh2.Range("U26").Value
.Range("NB" & y2).Value = sh2.Range("V26").Value
.Range("NC" & y2).Value = sh2.Range("W26").Value
.Range("ND" & y2).Value = sh2.Range("X26").Value
.Range("NE" & y2).Value = sh2.Range("D27").Value
.Range("NF" & y2).Value = sh2.Range("E27").Value
.Range("NG" & y2).Value = sh2.Range("F27").Value
.Range("NH" & y2).Value = sh2.Range("G27").Value
.Range("NI" & y2).Value = sh2.Range("H27").Value
.Range("NJ" & y2).Value = sh2.Range("I27").Value
.Range("NK" & y2).Value = sh2.Range("J27").Value
.Range("NL" & y2).Value = sh2.Range("K27").Value
.Range("NM" & y2).Value = sh2.Range("L27").Value
.Range("NN" & y2).Value = sh2.Range("M27").Value
.Range("NO" & y2).Value = sh2.Range("N27").Value
.Range("NP" & y2).Value = sh2.Range("O27").Value
.Range("NQ" & y2).Value = sh2.Range("P27").Value
.Range("NR" & y2).Value = sh2.Range("Q27").Value
.Range("NS" & y2).Value = sh2.Range("R27").Value
.Range("NT" & y2).Value = sh2.Range("S27").Value
.Range("NU" & y2).Value = sh2.Range("T27").Value
.Range("NV" & y2).Value = sh2.Range("U27").Value
.Range("NW" & y2).Value = sh2.Range("V27").Value
.Range("NX" & y2).Value = sh2.Range("W27").Value
.Range("NY" & y2).Value = sh2.Range("X27").Value
.Range("NZ" & y2).Value = sh2.Range("Y22").Value
.Range("OA" & y2).Value = sh2.Range("Z22").Value
.Range("OB" & y2).Value = sh2.Range("D28").Value
.Range("OC" & y2).Value = sh2.Range("E28").Value
.Range("OD" & y2).Value = sh2.Range("F28").Value
.Range("OE" & y2).Value = sh2.Range("G28").Value
.Range("OF" & y2).Value = sh2.Range("H28").Value
.Range("OG" & y2).Value = sh2.Range("I28").Value
.Range("OH" & y2).Value = sh2.Range("J28").Value
.Range("OI" & y2).Value = sh2.Range("K28").Value
.Range("OJ" & y2).Value = sh2.Range("L28").Value
.Range("OK" & y2).Value = sh2.Range("M28").Value
.Range("OL" & y2).Value = sh2.Range("N28").Value
.Range("OM" & y2).Value = sh2.Range("O28").Value
.Range("ON" & y2).Value = sh2.Range("P28").Value
.Range("OO" & y2).Value = sh2.Range("Q28").Value
.Range("OP" & y2).Value = sh2.Range("R28").Value
.Range("OQ" & y2).Value = sh2.Range("S28").Value
.Range("OR" & y2).Value = sh2.Range("T28").Value
.Range("OS" & y2).Value = sh2.Range("U28").Value
.Range("OT" & y2).Value = sh2.Range("V28").Value
.Range("OU" & y2).Value = sh2.Range("W28").Value
.Range("OV" & y2).Value = sh2.Range("X28").Value
.Range("OW" & y2).Value = sh2.Range("D29").Value
.Range("OX" & y2).Value = sh2.Range("E29").Value
.Range("OY" & y2).Value = sh2.Range("F29").Value
.Range("OZ" & y2).Value = sh2.Range("G29").Value
.Range("PA" & y2).Value = sh2.Range("H29").Value
.Range("PB" & y2).Value = sh2.Range("I29").Value
.Range("PC" & y2).Value = sh2.Range("J29").Value
.Range("PD" & y2).Value = sh2.Range("K29").Value
.Range("PE" & y2).Value = sh2.Range("L29").Value
.Range("PF" & y2).Value = sh2.Range("M29").Value
.Range("PG" & y2).Value = sh2.Range("N29").Value
.Range("PH" & y2).Value = sh2.Range("O29").Value
.Range("PI" & y2).Value = sh2.Range("P29").Value
.Range("PJ" & y2).Value = sh2.Range("Q29").Value
.Range("PK" & y2).Value = sh2.Range("R29").Value
.Range("PL" & y2).Value = sh2.Range("S29").Value
.Range("PM" & y2).Value = sh2.Range("T29").Value
.Range("PN" & y2).Value = sh2.Range("U29").Value
.Range("PO" & y2).Value = sh2.Range("V29").Value
.Range("PP" & y2).Value = sh2.Range("W29").Value
.Range("PQ" & y2).Value = sh2.Range("X29").Value
.Range("PR" & y2).Value = sh2.Range("D30").Value
.Range("PS" & y2).Value = sh2.Range("E30").Value
.Range("PT" & y2).Value = sh2.Range("F30").Value
.Range("PU" & y2).Value = sh2.Range("G30").Value
.Range("PV" & y2).Value = sh2.Range("H30").Value
.Range("PW" & y2).Value = sh2.Range("I30").Value
.Range("PX" & y2).Value = sh2.Range("J30").Value
.Range("PY" & y2).Value = sh2.Range("K30").Value
.Range("PZ" & y2).Value = sh2.Range("L30").Value
.Range("QA" & y2).Value = sh2.Range("M30").Value
.Range("QB" & y2).Value = sh2.Range("N30").Value
.Range("QC" & y2).Value = sh2.Range("O30").Value
.Range("QD" & y2).Value = sh2.Range("P30").Value
.Range("QE" & y2).Value = sh2.Range("Q30").Value
.Range("QF" & y2).Value = sh2.Range("R30").Value
.Range("QG" & y2).Value = sh2.Range("S30").Value
.Range("QH" & y2).Value = sh2.Range("T30").Value
.Range("QI" & y2).Value = sh2.Range("U30").Value
.Range("QJ" & y2).Value = sh2.Range("V30").Value
.Range("QK" & y2).Value = sh2.Range("W30").Value
.Range("QL" & y2).Value = sh2.Range("X30").Value
.Range("QM" & y2).Value = sh2.Range("D31").Value
.Range("QN" & y2).Value = sh2.Range("E31").Value
.Range("QO" & y2).Value = sh2.Range("F31").Value
.Range("QP" & y2).Value = sh2.Range("G31").Value
.Range("QQ" & y2).Value = sh2.Range("H31").Value
.Range("QR" & y2).Value = sh2.Range("I31").Value
.Range("QS" & y2).Value = sh2.Range("J31").Value
.Range("QT" & y2).Value = sh2.Range("K31").Value
.Range("QU" & y2).Value = sh2.Range("L31").Value
.Range("QV" & y2).Value = sh2.Range("M31").Value
.Range("QW" & y2).Value = sh2.Range("N31").Value
.Range("QX" & y2).Value = sh2.Range("O31").Value
.Range("QY" & y2).Value = sh2.Range("P31").Value
.Range("QZ" & y2).Value = sh2.Range("Q31").Value
.Range("RA" & y2).Value = sh2.Range("R31").Value
.Range("RB" & y2).Value = sh2.Range("S31").Value
.Range("RC" & y2).Value = sh2.Range("T31").Value
.Range("RD" & y2).Value = sh2.Range("U31").Value
.Range("RE" & y2).Value = sh2.Range("V31").Value
.Range("RF" & y2).Value = sh2.Range("W31").Value
.Range("RG" & y2).Value = sh2.Range("X31").Value
.Range("RH" & y2).Value = sh2.Range("D32").Value
.Range("RI" & y2).Value = sh2.Range("E32").Value
.Range("RJ" & y2).Value = sh2.Range("F32").Value
.Range("RK" & y2).Value = sh2.Range("G32").Value
.Range("RL" & y2).Value = sh2.Range("H32").Value
.Range("RM" & y2).Value = sh2.Range("I32").Value
.Range("RN" & y2).Value = sh2.Range("J32").Value
.Range("RO" & y2).Value = sh2.Range("K32").Value
.Range("RP" & y2).Value = sh2.Range("L32").Value
.Range("RQ" & y2).Value = sh2.Range("M32").Value
.Range("RR" & y2).Value = sh2.Range("N32").Value
.Range("RS" & y2).Value = sh2.Range("O32").Value
.Range("RT" & y2).Value = sh2.Range("P32").Value
.Range("RU" & y2).Value = sh2.Range("Q32").Value
.Range("RV" & y2).Value = sh2.Range("R32").Value
.Range("RW" & y2).Value = sh2.Range("S32").Value
.Range("RX" & y2).Value = sh2.Range("T32").Value
.Range("RY" & y2).Value = sh2.Range("U32").Value
.Range("RZ" & y2).Value = sh2.Range("V32").Value
.Range("SA" & y2).Value = sh2.Range("W32").Value
.Range("SB" & y2).Value = sh2.Range("X32").Value
.Range("SC" & y2).Value = sh2.Range("D33").Value
.Range("SD" & y2).Value = sh2.Range("E33").Value
.Range("SE" & y2).Value = sh2.Range("F33").Value
.Range("SF" & y2).Value = sh2.Range("G33").Value
.Range("SG" & y2).Value = sh2.Range("H33").Value
.Range("SH" & y2).Value = sh2.Range("I33").Value
.Range("SI" & y2).Value = sh2.Range("J33").Value
.Range("SJ" & y2).Value = sh2.Range("K33").Value
.Range("SK" & y2).Value = sh2.Range("L33").Value
.Range("SL" & y2).Value = sh2.Range("M33").Value
.Range("SM" & y2).Value = sh2.Range("N33").Value
.Range("SN" & y2).Value = sh2.Range("O33").Value
.Range("SO" & y2).Value = sh2.Range("P33").Value
.Range("SP" & y2).Value = sh2.Range("Q33").Value
.Range("SQ" & y2).Value = sh2.Range("R33").Value
.Range("SR" & y2).Value = sh2.Range("S33").Value
.Range("SS" & y2).Value = sh2.Range("T33").Value
.Range("ST" & y2).Value = sh2.Range("U33").Value
.Range("SU" & y2).Value = sh2.Range("V33").Value
.Range("SV" & y2).Value = sh2.Range("W33").Value
.Range("SW" & y2).Value = sh2.Range("X33").Value
.Range("SX" & y2).Value = sh2.Range("Y28").Value
.Range("SY" & y2).Value = sh2.Range("Z28").Value
.Range("SZ" & y2).Value = sh2.Range("D34").Value
.Range("TA" & y2).Value = sh2.Range("E34").Value
.Range("TB" & y2).Value = sh2.Range("F34").Value
.Range("TC" & y2).Value = sh2.Range("G34").Value
.Range("TD" & y2).Value = sh2.Range("H34").Value
.Range("TE" & y2).Value = sh2.Range("I34").Value
.Range("TF" & y2).Value = sh2.Range("J34").Value
.Range("TG" & y2).Value = sh2.Range("K34").Value
.Range("TH" & y2).Value = sh2.Range("L34").Value
.Range("TI" & y2).Value = sh2.Range("M34").Value
.Range("TJ" & y2).Value = sh2.Range("N34").Value
.Range("TK" & y2).Value = sh2.Range("O34").Value
.Range("TL" & y2).Value = sh2.Range("P34").Value
.Range("TM" & y2).Value = sh2.Range("Q34").Value
.Range("TN" & y2).Value = sh2.Range("R34").Value
.Range("TO" & y2).Value = sh2.Range("S34").Value
.Range("TP" & y2).Value = sh2.Range("T34").Value
.Range("TQ" & y2).Value = sh2.Range("U34").Value
.Range("TR" & y2).Value = sh2.Range("V34").Value
.Range("TS" & y2).Value = sh2.Range("W34").Value
.Range("TT" & y2).Value = sh2.Range("X34").Value
.Range("TU" & y2).Value = sh2.Range("D35").Value
.Range("TV" & y2).Value = sh2.Range("E35").Value
.Range("TW" & y2).Value = sh2.Range("F35").Value
.Range("TX" & y2).Value = sh2.Range("G35").Value
.Range("TY" & y2).Value = sh2.Range("H35").Value
.Range("TZ" & y2).Value = sh2.Range("I35").Value
.Range("UA" & y2).Value = sh2.Range("J35").Value
.Range("UB" & y2).Value = sh2.Range("K35").Value
.Range("UC" & y2).Value = sh2.Range("L35").Value
.Range("UD" & y2).Value = sh2.Range("M35").Value
.Range("UE" & y2).Value = sh2.Range("N35").Value
.Range("UF" & y2).Value = sh2.Range("O35").Value
.Range("UG" & y2).Value = sh2.Range("P35").Value
.Range("UH" & y2).Value = sh2.Range("Q35").Value
.Range("UI" & y2).Value = sh2.Range("R35").Value
.Range("UJ" & y2).Value = sh2.Range("S35").Value
.Range("UK" & y2).Value = sh2.Range("T35").Value
.Range("UL" & y2).Value = sh2.Range("U35").Value
.Range("UM" & y2).Value = sh2.Range("V35").Value
.Range("UN" & y2).Value = sh2.Range("W35").Value
.Range("UO" & y2).Value = sh2.Range("X35").Value
.Range("UP" & y2).Value = sh2.Range("Y34").Value
.Range("UQ" & y2).Value = sh2.Range("Z34").Value
.Range("UR" & y2).Value = sh2.Range("D36").Value
.Range("US" & y2).Value = sh2.Range("E36").Value
.Range("UT" & y2).Value = sh2.Range("F36").Value
.Range("UU" & y2).Value = sh2.Range("G36").Value
.Range("UV" & y2).Value = sh2.Range("H36").Value
.Range("UW" & y2).Value = sh2.Range("I36").Value
.Range("UX" & y2).Value = sh2.Range("J36").Value
.Range("UY" & y2).Value = sh2.Range("K36").Value
.Range("UZ" & y2).Value = sh2.Range("L36").Value
.Range("VA" & y2).Value = sh2.Range("M36").Value
.Range("VB" & y2).Value = sh2.Range("N36").Value
.Range("VC" & y2).Value = sh2.Range("O36").Value
.Range("VD" & y2).Value = sh2.Range("P36").Value
.Range("VE" & y2).Value = sh2.Range("Q36").Value
.Range("VF" & y2).Value = sh2.Range("R36").Value
.Range("VG" & y2).Value = sh2.Range("S36").Value
.Range("VH" & y2).Value = sh2.Range("T36").Value
.Range("VI" & y2).Value = sh2.Range("U36").Value
.Range("VJ" & y2).Value = sh2.Range("V36").Value
.Range("VK" & y2).Value = sh2.Range("W36").Value
.Range("VL" & y2).Value = sh2.Range("X36").Value
.Range("VM" & y2).Value = sh2.Range("D37").Value
.Range("VN" & y2).Value = sh2.Range("E37").Value
.Range("VO" & y2).Value = sh2.Range("F37").Value
.Range("VP" & y2).Value = sh2.Range("G37").Value
.Range("VQ" & y2).Value = sh2.Range("H37").Value
.Range("VR" & y2).Value = sh2.Range("I37").Value
.Range("VS" & y2).Value = sh2.Range("J37").Value
.Range("VT" & y2).Value = sh2.Range("K37").Value
.Range("VU" & y2).Value = sh2.Range("L37").Value
.Range("VV" & y2).Value = sh2.Range("M37").Value
.Range("VW" & y2).Value = sh2.Range("N37").Value
.Range("VX" & y2).Value = sh2.Range("O37").Value
.Range("VY" & y2).Value = sh2.Range("P37").Value
.Range("VZ" & y2).Value = sh2.Range("Q37").Value
.Range("WA" & y2).Value = sh2.Range("R37").Value
.Range("WB" & y2).Value = sh2.Range("S37").Value
.Range("WC" & y2).Value = sh2.Range("T37").Value
.Range("WD" & y2).Value = sh2.Range("U37").Value
.Range("WE" & y2).Value = sh2.Range("V37").Value
.Range("WF" & y2).Value = sh2.Range("W37").Value
.Range("WG" & y2).Value = sh2.Range("X37").Value
.Range("WH" & y2).Value = sh2.Range("Y36").Value
.Range("WI" & y2).Value = sh2.Range("Z36").Value
.Range("WJ" & y2).Value = sh2.Range("D38").Value
.Range("WK" & y2).Value = sh2.Range("E38").Value
.Range("WL" & y2).Value = sh2.Range("F38").Value
.Range("WM" & y2).Value = sh2.Range("G38").Value
.Range("WN" & y2).Value = sh2.Range("H38").Value
.Range("WO" & y2).Value = sh2.Range("I38").Value
.Range("WP" & y2).Value = sh2.Range("J38").Value
.Range("WQ" & y2).Value = sh2.Range("K38").Value
.Range("WR" & y2).Value = sh2.Range("L38").Value
.Range("WS" & y2).Value = sh2.Range("M38").Value
.Range("WT" & y2).Value = sh2.Range("N38").Value
.Range("WU" & y2).Value = sh2.Range("O38").Value
.Range("WV" & y2).Value = sh2.Range("P38").Value
.Range("WW" & y2).Value = sh2.Range("Q38").Value
.Range("WX" & y2).Value = sh2.Range("R38").Value
.Range("WY" & y2).Value = sh2.Range("S38").Value
.Range("WZ" & y2).Value = sh2.Range("T38").Value
.Range("XA" & y2).Value = sh2.Range("U38").Value
.Range("XB" & y2).Value = sh2.Range("V38").Value
.Range("XC" & y2).Value = sh2.Range("W38").Value
.Range("XD" & y2).Value = sh2.Range("X38").Value
.Range("XE" & y2).Value = sh2.Range("D39").Value
.Range("XF" & y2).Value = sh2.Range("E39").Value
.Range("XG" & y2).Value = sh2.Range("F39").Value
.Range("XH" & y2).Value = sh2.Range("G39").Value
.Range("XI" & y2).Value = sh2.Range("H39").Value
.Range("XJ" & y2).Value = sh2.Range("I39").Value
.Range("XK" & y2).Value = sh2.Range("J39").Value
.Range("XL" & y2).Value = sh2.Range("K39").Value
.Range("XM" & y2).Value = sh2.Range("L39").Value
.Range("XN" & y2).Value = sh2.Range("M39").Value
.Range("XO" & y2).Value = sh2.Range("N39").Value
.Range("XP" & y2).Value = sh2.Range("O39").Value
.Range("XQ" & y2).Value = sh2.Range("P39").Value
.Range("XR" & y2).Value = sh2.Range("Q39").Value
.Range("XS" & y2).Value = sh2.Range("R39").Value
.Range("XT" & y2).Value = sh2.Range("S39").Value
.Range("XU" & y2).Value = sh2.Range("T39").Value
.Range("XV" & y2).Value = sh2.Range("U39").Value
.Range("XW" & y2).Value = sh2.Range("V39").Value
.Range("XX" & y2).Value = sh2.Range("W39").Value
.Range("XY" & y2).Value = sh2.Range("X39").Value
.Range("XZ" & y2).Value = sh2.Range("D40").Value
.Range("YA" & y2).Value = sh2.Range("E40").Value
.Range("YB" & y2).Value = sh2.Range("F40").Value
.Range("YC" & y2).Value = sh2.Range("G40").Value
.Range("YD" & y2).Value = sh2.Range("H40").Value
.Range("YE" & y2).Value = sh2.Range("I40").Value
.Range("YF" & y2).Value = sh2.Range("J40").Value
.Range("YG" & y2).Value = sh2.Range("K40").Value
.Range("YH" & y2).Value = sh2.Range("L40").Value
.Range("YI" & y2).Value = sh2.Range("M40").Value
.Range("YJ" & y2).Value = sh2.Range("N40").Value
.Range("YK" & y2).Value = sh2.Range("O40").Value
.Range("YL" & y2).Value = sh2.Range("P40").Value
.Range("YM" & y2).Value = sh2.Range("Q40").Value
.Range("YN" & y2).Value = sh2.Range("R40").Value
.Range("YO" & y2).Value = sh2.Range("S40").Value
.Range("YP" & y2).Value = sh2.Range("T40").Value
.Range("YQ" & y2).Value = sh2.Range("U40").Value
.Range("YR" & y2).Value = sh2.Range("V40").Value
.Range("YS" & y2).Value = sh2.Range("W40").Value
.Range("YT" & y2).Value = sh2.Range("X40").Value
.Range("YU" & y2).Value = sh2.Range("D41").Value
.Range("YV" & y2).Value = sh2.Range("E41").Value
.Range("YW" & y2).Value = sh2.Range("F41").Value
.Range("YX" & y2).Value = sh2.Range("G41").Value
.Range("YY" & y2).Value = sh2.Range("H41").Value
.Range("YZ" & y2).Value = sh2.Range("I41").Value
.Range("ZA" & y2).Value = sh2.Range("J41").Value
.Range("ZB" & y2).Value = sh2.Range("K41").Value
.Range("ZC" & y2).Value = sh2.Range("L41").Value
.Range("ZD" & y2).Value = sh2.Range("M41").Value
.Range("ZE" & y2).Value = sh2.Range("N41").Value
.Range("ZF" & y2).Value = sh2.Range("O41").Value
.Range("ZG" & y2).Value = sh2.Range("P41").Value
.Range("ZH" & y2).Value = sh2.Range("Q41").Value
.Range("ZI" & y2).Value = sh2.Range("R41").Value
.Range("ZJ" & y2).Value = sh2.Range("S41").Value
.Range("ZK" & y2).Value = sh2.Range("T41").Value
.Range("ZL" & y2).Value = sh2.Range("U41").Value
.Range("ZM" & y2).Value = sh2.Range("V41").Value
.Range("ZN" & y2).Value = sh2.Range("W41").Value
.Range("ZO" & y2).Value = sh2.Range("X41").Value
.Range("ZP" & y2).Value = sh2.Range("Y38").Value
.Range("ZQ" & y2).Value = sh2.Range("Z38").Value
.Range("ZR" & y2).Value = sh2.Range("Y42").Value
.Range("ZS" & y2).Value = sh2.Range("A45").Value
.Range("ZT" & y2).Value = sh2.Range("C48").Value
.Range("ZU" & y2).Value = sh2.Range("C49").Value
.Range("ZV" & y2).Value = sh2.Range("L48").Value
.Range("ZW" & y2).Value = sh2.Range("L49").Value
DoEvents
'（f） 2019/02/20(水) 11:07
End With
End Sub
（隠居じーさん） 2019/02/21(木) 10:38
追伸。。。すみません。多分変な結果だと思います。エラーかも 書込み側のＢＯＯＫに列見出しと云ううシートを作成して 一行目（情報入力と同じ列数） 6行目（検査シートと同じ列数） 項目なり、番号なり入力して 実行してください。 頂いている項目に合わせ、修正致します。 このシートを基に各シートを作成しております。 もし同じ名前のシートをお使いでしたらシート名の変更を致します。 m(__)m
（隠居じーさん） 2019/02/21(木) 11:19
シート 【列見出】のレイアウトです Soulmanさん。すみません。感謝、感謝です。m(_ _)m これに合わせて後日、修正いたします。 テスト段階では一行目と、六行目になにかあれば、仮になくても 表示されないだけで、シートさえあれば動作致します。
Private Sub SoulMan()
Rem 結合状態を処理
Range("D6:D10").Merge
Range("E6:E10").Merge
Range("F6:F10").Merge
Range("G6:G10").Merge
Range("H6:H10").Merge
Range("I6:I10").Merge
Range("J7:AD7").Merge
Range("J8:AD8").Merge
Range("J9:J10").Merge
Range("K9:K10").Merge
Range("L9:L10").Merge
Range("M9:N9").Merge
Range("O9:P9").Merge
Range("Q9:R9").Merge
Range("S9:T9").Merge
Range("U9:V9").Merge
Range("W9:X9").Merge
Range("Y9:Z9").Merge
Range("AA9:AB9").Merge
Range("AC9:AD9").Merge
Rem 数式セル以外をまとめて処理
Range("A1,ZW6,A10").Value = 1
Range("B1,ZV6,B10").Value = 2
Range("C1,ZU6,C10").Value = 3
Range("D1,D6,ZT6").Value = 4
Range("E1,E6,ZS6").Value = 5
Range("F1,F6,ZR6").Value = 6
Range("G1,G6,ZQ6").Value = 7
Range("H1,H6,ZP6").Value = 8
Range("I1,I6,ZO6").Value = 9
Range("J1,ZN6,J9").Value = 10
Range("K1,ZM6,K9").Value = 11
Range("L1,ZL6,L9").Value = 12
Range("M1,ZK6,M10").Value = 13
Range("N1,ZJ6,N10").Value = 14
Range("O1,ZI6,O10").Value = 15
Range("P1,ZH6,P10").Value = 16
Range("Q1,ZG6,Q10").Value = 17
Range("R1,ZF6,R10").Value = 18
Range("S1,ZE6,S10").Value = 19
Range("T1,ZD6,T10").Value = 20
Range("U1,ZC6,U10").Value = 21
Range("V1,ZB6,V10").Value = 22
Range("W1,ZA6,W10").Value = 23
Range("X1,YZ6,X10").Value = 24
Range("Y1,YY6,Y10").Value = 25
Range("Z1,YX6,Z10").Value = 26
Range("AA1,YW6,AA10").Value = 27
Range("AB1,YV6,AB10").Value = 28
Range("AC1,YU6,AC10").Value = 29
Range("AD1,YT6,AD10").Value = 30
Range("AE1,YS6,M9").Value = 31
Range("AF1,YR6,O9").Value = 32
Range("AG1,YQ6,Q9").Value = 33
Range("AH1,YP6,S9").Value = 34
Range("AI1,YO6,U9").Value = 35
Range("AJ1,YN6,W9").Value = 36
Range("AK1,YM6,Y9").Value = 37
Range("AL1,YL6,AA9").Value = 38
Range("AM1,YK6,AC9").Value = 39
Range("AN1,YJ6").Value = 40
Range("AO1,YI6").Value = 41
Range("AP1,YH6").Value = 42
Range("AQ1,YG6").Value = 43
Range("AR1,YF6").Value = 44
Range("AS1,YE6").Value = 45
Range("AT1,YD6").Value = 46
Range("AU1,YC6").Value = 47
Range("AV1,YB6").Value = 48
Range("AW1,YA6").Value = 49
Range("AX1,XZ6").Value = 50
Range("AY1,XY6").Value = 51
Range("AZ1,XX6").Value = 52
Range("BA1,XW6").Value = 53
Range("BB1,XV6").Value = 54
Range("BC1,XU6").Value = 55
Range("BD1,XT6").Value = 56
Range("BE1,XS6").Value = 57
Range("BF1,XR6").Value = 58
Range("BG1,XQ6").Value = 59
Range("BH1,XP6").Value = 60
Range("BI1,XO6").Value = 61
Range("BJ1,XN6").Value = 62
Range("BK1,XM6").Value = 63
Range("BL1,XL6").Value = 64
Range("BM1,XK6").Value = 65
Range("BN1,XJ6").Value = 66
Range("BO1,XI6").Value = 67
Range("BP1,XH6").Value = 68
Range("BQ1,XG6").Value = 69
Range("BR1,XF6").Value = 70
Range("BS1,XE6").Value = 71
Range("BT1,XD6").Value = 72
Range("BU1,XC6").Value = 73
Range("BV1,XB6").Value = 74
Range("J6").Value = "1'''"
Range("AE6").Value = 669
Range("AF6").Value = 668
Range("AG6").Value = 667
Range("AH6").Value = 666
Range("AI6").Value = 665
Range("AJ6").Value = 664
Range("AK6").Value = 663
Range("AL6").Value = 662
Range("AM6").Value = 661
Range("AN6").Value = 660
Range("AO6").Value = 659
Range("AP6").Value = 658
Range("AQ6").Value = 657
Range("AR6").Value = 656
Range("AS6").Value = 655
Range("AT6").Value = 654
Range("AU6").Value = 653
Range("AV6").Value = 652
Range("AW6").Value = 651
Range("AX6").Value = 650
Range("AY6").Value = 649
Range("AZ6").Value = 648
Range("BA6").Value = 647
Range("BB6").Value = 646
Range("BC6").Value = 645
Range("BD6").Value = 644
Range("BE6").Value = 643
Range("BF6").Value = 642
Range("BG6").Value = 641
Range("BH6").Value = 640
Range("BI6").Value = 639
Range("BJ6").Value = 638
Range("BK6").Value = 637
Range("BL6").Value = 636
Range("BM6").Value = 635
Range("BN6").Value = 634
Range("BO6").Value = 633
Range("BP6").Value = 632
Range("BQ6").Value = 631
Range("BR6").Value = 630
Range("BS6").Value = 629
Range("BT6").Value = 628
Range("BU6").Value = 627
Range("BV6").Value = 626
Range("BW6").Value = 625
Range("BX6").Value = 624
Range("BY6").Value = 623
Range("BZ6").Value = 622
Range("CA6").Value = 621
Range("CB6").Value = 620
Range("CC6").Value = 619
Range("CD6").Value = 618
Range("CE6").Value = 617
Range("CF6").Value = 616
Range("CG6").Value = 615
Range("CH6").Value = 614
Range("CI6").Value = 613
Range("CJ6").Value = 612
Range("CK6").Value = 611
Range("CL6").Value = 610
Range("CM6").Value = 609
Range("CN6").Value = 608
Range("CO6").Value = 607
Range("CP6").Value = 606
Range("CQ6").Value = 605
Range("CR6").Value = 604
Range("CS6").Value = 603
Range("CT6").Value = 602
Range("CU6").Value = 601
Range("CV6").Value = 600
Range("CW6").Value = 599
Range("CX6").Value = 598
Range("CY6").Value = 597
Range("CZ6").Value = 596
Range("DA6").Value = 595
Range("DB6").Value = 594
Range("DC6").Value = 593
Range("DD6").Value = 592
Range("DE6").Value = 591
Range("DF6").Value = 590
Range("DG6").Value = 589
Range("DH6").Value = 588
Range("DI6").Value = 587
Range("DJ6").Value = 586
Range("DK6").Value = 585
Range("DL6").Value = 584
Range("DM6").Value = 583
Range("DN6").Value = 582
Range("DO6").Value = 581
Range("DP6").Value = 580
Range("DQ6").Value = 579
Range("DR6").Value = 578
Range("DS6").Value = 577
Range("DT6").Value = 576
Range("DU6").Value = 575
Range("DV6").Value = 574
Range("DW6").Value = 573
Range("DX6").Value = 572
Range("DY6").Value = 571
Range("DZ6").Value = 570
Range("EA6").Value = 569
Range("EB6").Value = 568
Range("EC6").Value = 567
Range("ED6").Value = 566
Range("EE6").Value = 565
Range("EF6").Value = 564
Range("EG6").Value = 563
Range("EH6").Value = 562
Range("EI6").Value = 561
Range("EJ6").Value = 560
Range("EK6").Value = 559
Range("EL6").Value = 558
Range("EM6").Value = 557
Range("EN6").Value = 556
Range("EO6").Value = 555
Range("EP6").Value = 554
Range("EQ6").Value = 553
Range("ER6").Value = 552
Range("ES6").Value = 551
Range("ET6").Value = 550
Range("EU6").Value = 549
Range("EV6").Value = 548
Range("EW6").Value = 547
Range("EX6").Value = 546
Range("EY6").Value = 545
Range("EZ6").Value = 544
Range("FA6").Value = 543
Range("FB6").Value = 542
Range("FC6").Value = 541
Range("FD6").Value = 540
Range("FE6").Value = 539
Range("FF6").Value = 538
Range("FG6").Value = 537
Range("FH6").Value = 536
Range("FI6").Value = 535
Range("FJ6").Value = 534
Range("FK6").Value = 533
Range("FL6").Value = 532
Range("FM6").Value = 531
Range("FN6").Value = 530
Range("FO6").Value = 529
Range("FP6").Value = 528
Range("FQ6").Value = 527
Range("FR6").Value = 526
Range("FS6").Value = 525
Range("FT6").Value = 524
Range("FU6").Value = 523
Range("FV6").Value = 522
Range("FW6").Value = 521
Range("FX6").Value = 520
Range("FY6").Value = 519
Range("FZ6").Value = 518
Range("GA6").Value = 517
Range("GB6").Value = 516
Range("GC6").Value = 515
Range("GD6").Value = 514
Range("GE6").Value = 513
Range("GF6").Value = 512
Range("GG6").Value = 511
Range("GH6").Value = 510
Range("GI6").Value = 509
Range("GJ6").Value = 508
Range("GK6").Value = 507
Range("GL6").Value = 506
Range("GM6").Value = 505
Range("GN6").Value = 504
Range("GO6").Value = 503
Range("GP6").Value = 502
Range("GQ6").Value = 501
Range("GR6").Value = 500
Range("GS6").Value = 499
Range("GT6").Value = 498
Range("GU6").Value = 497
Range("GV6").Value = 496
Range("GW6").Value = 495
Range("GX6").Value = 494
Range("GY6").Value = 493
Range("GZ6").Value = 492
Range("HA6").Value = 491
Range("HB6").Value = 490
Range("HC6").Value = 489
Range("HD6").Value = 488
Range("HE6").Value = 487
Range("HF6").Value = 486
Range("HG6").Value = 485
Range("HH6").Value = 484
Range("HI6").Value = 483
Range("HJ6").Value = 482
Range("HK6").Value = 481
Range("HL6").Value = 480
Range("HM6").Value = 479
Range("HN6").Value = 478
Range("HO6").Value = 477
Range("HP6").Value = 476
Range("HQ6").Value = 475
Range("HR6").Value = 474
Range("HS6").Value = 473
Range("HT6").Value = 472
Range("HU6").Value = 471
Range("HV6").Value = 470
Range("HW6").Value = 469
Range("HX6").Value = 468
Range("HY6").Value = 467
Range("HZ6").Value = 466
Range("IA6").Value = 465
Range("IB6").Value = 464
Range("IC6").Value = 463
Range("ID6").Value = 462
Range("IE6").Value = 461
Range("IF6").Value = 460
Range("IG6").Value = 459
Range("IH6").Value = 458
Range("II6").Value = 457
Range("IJ6").Value = 456
Range("IK6").Value = 455
Range("IL6").Value = 454
Range("IM6").Value = 453
Range("IN6").Value = 452
Range("IO6").Value = 451
Range("IP6").Value = 450
Range("IQ6").Value = 449
Range("IR6").Value = 448
Range("IS6").Value = 447
Range("IT6").Value = 446
Range("IU6").Value = 445
Range("IV6").Value = 444
Range("IW6").Value = 443
Range("IX6").Value = 442
Range("IY6").Value = 441
Range("IZ6").Value = 440
Range("JA6").Value = 439
Range("JB6").Value = 438
Range("JC6").Value = 437
Range("JD6").Value = 436
Range("JE6").Value = 435
Range("JF6").Value = 434
Range("JG6").Value = 433
Range("JH6").Value = 432
Range("JI6").Value = 431
Range("JJ6").Value = 430
Range("JK6").Value = 429
Range("JL6").Value = 428
Range("JM6").Value = 427
Range("JN6").Value = 426
Range("JO6").Value = 425
Range("JP6").Value = 424
Range("JQ6").Value = 423
Range("JR6").Value = 422
Range("JS6").Value = 421
Range("JT6").Value = 420
Range("JU6").Value = 419
Range("JV6").Value = 418
Range("JW6").Value = 417
Range("JX6").Value = 416
Range("JY6").Value = 415
Range("JZ6").Value = 414
Range("KA6").Value = 413
Range("KB6").Value = 412
Range("KC6").Value = 411
Range("KD6").Value = 410
Range("KE6").Value = 409
Range("KF6").Value = 408
Range("KG6").Value = 407
Range("KH6").Value = 406
Range("KI6").Value = 405
Range("KJ6").Value = 404
Range("KK6").Value = 403
Range("KL6").Value = 402
Range("KM6").Value = 401
Range("KN6").Value = 400
Range("KO6").Value = 399
Range("KP6").Value = 398
Range("KQ6").Value = 397
Range("KR6").Value = 396
Range("KS6").Value = 395
Range("KT6").Value = 394
Range("KU6").Value = 393
Range("KV6").Value = 392
Range("KW6").Value = 391
Range("KX6").Value = 390
Range("KY6").Value = 389
Range("KZ6").Value = 388
Range("LA6").Value = 387
Range("LB6").Value = 386
Range("LC6").Value = 385
Range("LD6").Value = 384
Range("LE6").Value = 383
Range("LF6").Value = 382
Range("LG6").Value = 381
Range("LH6").Value = 380
Range("LI6").Value = 379
Range("LJ6").Value = 378
Range("LK6").Value = 377
Range("LL6").Value = 376
Range("LM6").Value = 375
Range("LN6").Value = 374
Range("LO6").Value = 373
Range("LP6").Value = 372
Range("LQ6").Value = 371
Range("LR6").Value = 370
Range("LS6").Value = 369
Range("LT6").Value = 368
Range("LU6").Value = 367
Range("LV6").Value = 366
Range("LW6").Value = 365
Range("LX6").Value = 364
Range("LY6").Value = 363
Range("LZ6").Value = 362
Range("MA6").Value = 361
Range("MB6").Value = 360
Range("MC6").Value = 359
Range("MD6").Value = 358
Range("ME6").Value = 357
Range("MF6").Value = 356
Range("MG6").Value = 355
Range("MH6").Value = 354
Range("MI6").Value = 353
Range("MJ6").Value = 352
Range("MK6").Value = 351
Range("ML6").Value = 350
Range("MM6").Value = 349
Range("MN6").Value = 348
Range("MO6").Value = 347
Range("MP6").Value = 346
Range("MQ6").Value = 345
Range("MR6").Value = 344
Range("MS6").Value = 343
Range("MT6").Value = 342
Range("MU6").Value = 341
Range("MV6").Value = 340
Range("MW6").Value = 339
Range("MX6").Value = 338
Range("MY6").Value = 337
Range("MZ6").Value = 336
Range("NA6").Value = 335
Range("NB6").Value = 334
Range("NC6").Value = 333
Range("ND6").Value = 332
Range("NE6").Value = 331
Range("NF6").Value = 330
Range("NG6").Value = 329
Range("NH6").Value = 328
Range("NI6").Value = 327
Range("NJ6").Value = 326
Range("NK6").Value = 325
Range("NL6").Value = 324
Range("NM6").Value = 323
Range("NN6").Value = 322
Range("NO6").Value = 321
Range("NP6").Value = 320
Range("NQ6").Value = 319
Range("NR6").Value = 318
Range("NS6").Value = 317
Range("NT6").Value = 316
Range("NU6").Value = 315
Range("NV6").Value = 314
Range("NW6").Value = 313
Range("NX6").Value = 312
Range("NY6").Value = 311
Range("NZ6").Value = 310
Range("OA6").Value = 309
Range("OB6").Value = 308
Range("OC6").Value = 307
Range("OD6").Value = 306
Range("OE6").Value = 305
Range("OF6").Value = 304
Range("OG6").Value = 303
Range("OH6").Value = 302
Range("OI6").Value = 301
Range("OJ6").Value = 300
Range("OK6").Value = 299
Range("OL6").Value = 298
Range("OM6").Value = 297
Range("ON6").Value = 296
Range("OO6").Value = 295
Range("OP6").Value = 294
Range("OQ6").Value = 293
Range("OR6").Value = 292
Range("OS6").Value = 291
Range("OT6").Value = 290
Range("OU6").Value = 289
Range("OV6").Value = 288
Range("OW6").Value = 287
Range("OX6").Value = 286
Range("OY6").Value = 285
Range("OZ6").Value = 284
Range("PA6").Value = 283
Range("PB6").Value = 282
Range("PC6").Value = 281
Range("PD6").Value = 280
Range("PE6").Value = 279
Range("PF6").Value = 278
Range("PG6").Value = 277
Range("PH6").Value = 276
Range("PI6").Value = 275
Range("PJ6").Value = 274
Range("PK6").Value = 273
Range("PL6").Value = 272
Range("PM6").Value = 271
Range("PN6").Value = 270
Range("PO6").Value = 269
Range("PP6").Value = 268
Range("PQ6").Value = 267
Range("PR6").Value = 266
Range("PS6").Value = 265
Range("PT6").Value = 264
Range("PU6").Value = 263
Range("PV6").Value = 262
Range("PW6").Value = 261
Range("PX6").Value = 260
Range("PY6").Value = 259
Range("PZ6").Value = 258
Range("QA6").Value = 257
Range("QB6").Value = 256
Range("QC6").Value = 255
Range("QD6").Value = 254
Range("QE6").Value = 253
Range("QF6").Value = 252
Range("QG6").Value = 251
Range("QH6").Value = 250
Range("QI6").Value = 249
Range("QJ6").Value = 248
Range("QK6").Value = 247
Range("QL6").Value = 246
Range("QM6").Value = 245
Range("QN6").Value = 244
Range("QO6").Value = 243
Range("QP6").Value = 242
Range("QQ6").Value = 241
Range("QR6").Value = 240
Range("QS6").Value = 239
Range("QT6").Value = 238
Range("QU6").Value = 237
Range("QV6").Value = 236
Range("QW6").Value = 235
Range("QX6").Value = 234
Range("QY6").Value = 233
Range("QZ6").Value = 232
Range("RA6").Value = 231
Range("RB6").Value = 230
Range("RC6").Value = 229
Range("RD6").Value = 228
Range("RE6").Value = 227
Range("RF6").Value = 226
Range("RG6").Value = 225
Range("RH6").Value = 224
Range("RI6").Value = 223
Range("RJ6").Value = 222
Range("RK6").Value = 221
Range("RL6").Value = 220
Range("RM6").Value = 219
Range("RN6").Value = 218
Range("RO6").Value = 217
Range("RP6").Value = 216
Range("RQ6").Value = 215
Range("RR6").Value = 214
Range("RS6").Value = 213
Range("RT6").Value = 212
Range("RU6").Value = 211
Range("RV6").Value = 210
Range("RW6").Value = 209
Range("RX6").Value = 208
Range("RY6").Value = 207
Range("RZ6").Value = 206
Range("SA6").Value = 205
Range("SB6").Value = 204
Range("SC6").Value = 203
Range("SD6").Value = 202
Range("SE6").Value = 201
Range("SF6").Value = 200
Range("SG6").Value = 199
Range("SH6").Value = 198
Range("SI6").Value = 197
Range("SJ6").Value = 196
Range("SK6").Value = 195
Range("SL6").Value = 194
Range("SM6").Value = 193
Range("SN6").Value = 192
Range("SO6").Value = 191
Range("SP6").Value = 190
Range("SQ6").Value = 189
Range("SR6").Value = 188
Range("SS6").Value = 187
Range("ST6").Value = 186
Range("SU6").Value = 185
Range("SV6").Value = 184
Range("SW6").Value = 183
Range("SX6").Value = 182
Range("SY6").Value = 181
Range("SZ6").Value = 180
Range("TA6").Value = 179
Range("TB6").Value = 178
Range("TC6").Value = 177
Range("TD6").Value = 176
Range("TE6").Value = 175
Range("TF6").Value = 174
Range("TG6").Value = 173
Range("TH6").Value = 172
Range("TI6").Value = 171
Range("TJ6").Value = 170
Range("TK6").Value = 169
Range("TL6").Value = 168
Range("TM6").Value = 167
Range("TN6").Value = 166
Range("TO6").Value = 165
Range("TP6").Value = 164
Range("TQ6").Value = 163
Range("TR6").Value = 162
Range("TS6").Value = 161
Range("TT6").Value = 160
Range("TU6").Value = 159
Range("TV6").Value = 158
Range("TW6").Value = 157
Range("TX6").Value = 156
Range("TY6").Value = 155
Range("TZ6").Value = 154
Range("UA6").Value = 153
Range("UB6").Value = 152
Range("UC6").Value = 151
Range("UD6").Value = 150
Range("UE6").Value = 149
Range("UF6").Value = 148
Range("UG6").Value = 147
Range("UH6").Value = 146
Range("UI6").Value = 145
Range("UJ6").Value = 144
Range("UK6").Value = 143
Range("UL6").Value = 142
Range("UM6").Value = 141
Range("UN6").Value = 140
Range("UO6").Value = 139
Range("UP6").Value = 138
Range("UQ6").Value = 137
Range("UR6").Value = 136
Range("US6").Value = 135
Range("UT6").Value = 134
Range("UU6").Value = 133
Range("UV6").Value = 132
Range("UW6").Value = 131
Range("UX6").Value = 130
Range("UY6").Value = 129
Range("UZ6").Value = 128
Range("VA6").Value = 127
Range("VB6").Value = 126
Range("VC6").Value = 125
Range("VD6").Value = 124
Range("VE6").Value = 123
Range("VF6").Value = 122
Range("VG6").Value = 121
Range("VH6").Value = 120
Range("VI6").Value = 119
Range("VJ6").Value = 118
Range("VK6").Value = 117
Range("VL6").Value = 116
Range("VM6").Value = 115
Range("VN6").Value = 114
Range("VO6").Value = 113
Range("VP6").Value = 112
Range("VQ6").Value = 111
Range("VR6").Value = 110
Range("VS6").Value = 109
Range("VT6").Value = 108
Range("VU6").Value = 107
Range("VV6").Value = 106
Range("VW6").Value = 105
Range("VX6").Value = 104
Range("VY6").Value = 103
Range("VZ6").Value = 102
Range("WA6").Value = 101
Range("WB6").Value = 100
Range("WC6").Value = 99
Range("WD6").Value = 98
Range("WE6").Value = 97
Range("WF6").Value = 96
Range("WG6").Value = 95
Range("WH6").Value = 94
Range("WI6").Value = 93
Range("WJ6").Value = 92
Range("WK6").Value = 91
Range("WL6").Value = 90
Range("WM6").Value = 89
Range("WN6").Value = 88
Range("WO6").Value = 87
Range("WP6").Value = 86
Range("WQ6").Value = 85
Range("WR6").Value = 84
Range("WS6").Value = 83
Range("WT6").Value = 82
Range("WU6").Value = 81
Range("WV6").Value = 80
Range("WW6").Value = 79
Range("WX6").Value = 78
Range("WY6").Value = 77
Range("WZ6").Value = 76
Range("XA6").Value = 75
Range("J7").Value = "1''"
Range("J8").Value = "1'"
Range("C9").Value = "C4"
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理
Rem 塗りつぶしセルをまとめて処理
Range("A1:B2,D1:E1,G1:H1,J1:K1,M1:N1,P1:Q1,S1:T1,V1:W1,Y1:Z1,AB1:AC1").Interior.ColorIndex = 35
Range("AE1:AF1,AH1:AI1,AK1:AL1,AN1:AO1,AQ1:AR1,AT1:AU1,AW1:AX1,AZ1:BA1,BC1:BD1,BF1:BG1").Interior.ColorIndex = 35
Range("BI1:BJ1,BL1:BM1,BO1:BP1,BR1:BS1,BU1:BV1,BQ2:BV2,A6:C8,J8:AD8,A9:B9,A11:C11").Interior.ColorIndex = 35
Range("C1,F1,I1,L1,O1,R1,U1,X1,AA1").Interior.ColorIndex = 24
Range("AD1,AG1,AJ1,AM1,AP1,AS1,AV1,AY1,BB1").Interior.ColorIndex = 24
Range("BE1,BH1,BK1,BN1,BQ1,BT1,C2:BP2,D6:I11").Interior.ColorIndex = 24
Range("J6:AD6").Interior.ColorIndex = 56
Range("J7:AD7").Interior.ColorIndex = 48
Rem 列幅をまとめて処理
Range("A1:ZW11").ColumnWidth = 8.38
Rem 行高さをまとめて処理
Range("A1:ZW11").RowHeight = 28.5
MsgBox "お題の作成が完了しました。"
End Sub
（隠居じーさん） 2019/02/21(木) 11:42
すみませんでした。m(__)m
↑ の件修正完了です。
Option Explicit
Sub 転記_Ver2()
'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。
Const BaseBookName As String = "データ転記02.xlsm"
Dim fpath As String, fname As String
Dim wb As Workbook
Dim BB As Workbook
Rem 転記先 Write
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Rem 転記元 Read
Dim sh4 As Worksheet
Dim sh5 As Worksheet
Dim sh6 As Worksheet
Dim sh7 As Worksheet
Dim Jr As Range
Dim Mtr As Range
Dim Mkr As Range
Dim snm
Dim Snmstr As String
Dim SsortA()
Dim SsortB()
Dim SsortC()
Dim i As Long
Dim j As Long
Dim y As Long
Dim y2 As Long
Dim ry As Long
Dim n As Long
Dim lr As Long
Dim N2 As Long
Dim t, counter&
Dim w_flg As Boolean
t = Timer
'振り分けする転記先のシート名、並び変えたい順番に左から記入
snm = Array("A", "B", "C", "D")
If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel) Then
Sheet_Delete snm
End If
Application.ScreenUpdating = False
Set BB = Workbooks(BaseBookName)
fpath = BB.Path & "\転記元\"
Set sh1 = BB.Worksheets("列見出")
fname = Dir(fpath & "*.xls*")
Do Until fname = ""
DoEvents
If fname <> BB.Name Then
Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0)
Set sh4 = wb.Worksheets("情報入力シート")
Set sh5 = wb.Worksheets("検査シート")
Set sh6 = wb.Worksheets("マスタ(都道府県)")
Set sh7 = wb.Worksheets("マスタ(管理)")
Set Jr = sh4.UsedRange
Set Mtr = sh6.Range("C2").CurrentRegion
Set Mkr = sh7.Range("B2").CurrentRegion
Snmstr = Trim(sh4.Range("B2").Value)
'書込み先シート名をsh4.Range("B2")の値で振り分け処理
Snmstr = IIf(Snmstr = "E", "D", Snmstr)
On Error Resume Next
If Err.Number > 0 Then
MsgBox "シート名が設定されていません" & vbNewLine & _
"確認後設定してやり直してください。"
On Error GoTo 0
For j = 1 To Windows.Count
If ActiveWorkbook.Name <> BaseBookName Then
ActiveWorkbook.Close False
End If
Next
Sheet_Delete snm
Exit Sub
End If
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")"
SsortA(n) = "情報入力シート(" & Snmstr & ")"
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
sh2.Range(sh2.Rows(3), sh2.Rows(15)).Delete
End If
ReDim Preserve SsortA(n)
SsortA(n) = sh2.Name
n = n + 1
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = "検査シート(" & Snmstr & ")"
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
sh3.Range(sh3.Rows(1), sh3.Rows(5)).Delete
End If
ReDim Preserve SsortB(N2)
SsortB(N2) = sh3.Name
N2 = N2 + 1
On Error GoTo 0
Rem 情報シート書出
With sh2
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr = IIf(lr < 3, 3, lr)
y = lr
For ry = 3 To lr
If (.Cells(ry, 1) = Snmstr) * (.Cells(ry, 3) = wb.Name) * _
(.Cells(ry, 5) = sh4.Range("F2").Value) Then
w_flg = True
Exit For
End If
Next
If w_flg Then
y = ry
w_flg = False
End If
Write_J y, sh2, sh4, wb
'シート名
.Cells(y, 1) = Snmstr
'BS列に地域コードを書込処理
For i = 2 To Mtr.Rows.Count
If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then
.Cells(y, "BS") = Mtr(i, 1)
End If
Next
'管理者コードを各B列書込処理
i = WorksheetFunction.Match(Jr(2, 6), Mkr.Rows(1), 0)
.Cells(y, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
Rem 検査シート書出
With sh3
y2 = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
y2 = IIf(y2 < 7, 7, y2)
Write_K y2, sh3, sh4, sh5, wb
.Cells(y2, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
wb.Close SaveChanges:=False
End If
fname = Dir()
DoEvents
Application.StatusBar = counter
counter = counter + 1
Loop
j = 0: ReDim SsortC(UBound(SsortA) + UBound(SsortB) + 2)
For i = 0 To UBound(SsortA)
SsortC(j) = SsortA(i)
j = j + 1
Next
For i = 0 To UBound(SsortB)
SsortC(j) = SsortB(i)
j = j + 1
Next
For i = UBound(SsortC) To 0 Step -1
On Error Resume Next
Worksheets(SsortC(i)).Move before:=Worksheets(1)
On Error GoTo 0
Next
Application.ScreenUpdating = True
Application.StatusBar = ""
MsgBox "作業完了。所要時間、単位秒 ＝ " & Format(Timer - t, "0.0 秒")
End Sub
Private Sub Sheet_Delete(ByVal snm As Variant)
Dim i As Long
Dim j As Long
Application.DisplayAlerts = False
For j = Worksheets.Count To 1 Step -1
For i = 0 To UBound(snm)
If Worksheets(j).Name = "検査シート(" & snm(i) & ")" Or _
Worksheets(j).Name = "情報入力シート(" & snm(i) & ")" Then
Worksheets(j).Delete
End If
Next
Next
Application.DisplayAlerts = True
End Sub
Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, wb As Workbook)
'sh2 = 情報入力シート,sh4 = 検査シート?
With ws
'.Range("A" & y).Value = sh2.Range("B2").Value
'マスタ（管理）より管理者コードを取得する必要あり
' .Range("B" & y).Value = sh2.Range("").Value
'ファイル名取得
.Range("C" & y).Value = wb.Name
.Range("D" & y).Value = sh2.Range("B2").Value
.Range("E" & y).Value = sh2.Range("F2").Value
.Range("F" & y).Value = sh2.Range("G2").Value
.Range("G" & y).Value = sh2.Range("I2").Value
.Range("H" & y).Value = sh2.Range("L2").Value
.Range("J" & y).Value = sh2.Range("B4").Value
.Range("K" & y).Value = sh2.Range("F4").Value
.Range("L" & y).Value = sh2.Range("L4").Value
.Range("M" & y).Value = sh2.Range("B5").Value
.Range("N" & y).Value = sh2.Range("C5").Value
.Range("O" & y).Value = sh2.Range("D5").Value
.Range("P" & y).Value = sh2.Range("L5").Value
'緯度、経度
.Range("Q" & y).Value = sh2.Range("B6").Value
.Range("R" & y).Value = sh2.Range("E6").Value
.Range("S" & y).Value = sh2.Range("H6").Value
.Range("T" & y).Value = sh2.Range("B8").Value
.Range("U" & y).Value = sh2.Range("F8").Value
.Range("V" & y).Value = sh2.Range("K8").Value
.Range("W" & y).Value = sh2.Range("B9").Value
.Range("X" & y).Value = sh2.Range("F9").Value
.Range("Y" & y).Value = sh2.Range("K9").Value
.Range("Z" & y).Value = sh2.Range("B10").Value
.Range("AA" & y).Value = sh2.Range("C10").Value
.Range("AB" & y).Value = sh2.Range("F10").Value
.Range("AC" & y).Value = sh2.Range("G10").Value
.Range("AD" & y).Value = sh2.Range("H10").Value
.Range("AE" & y).Value = sh2.Range("K10").Value
.Range("AF" & y).Value = sh2.Range("L10").Value
.Range("AG" & y).Value = sh2.Range("B11").Value
.Range("AH" & y).Value = sh2.Range("C11").Value
.Range("Ay" & y).Value = sh2.Range("F11").Value
.Range("AJ" & y).Value = sh2.Range("G11").Value
.Range("AK" & y).Value = sh2.Range("K11").Value
.Range("AL" & y).Value = sh2.Range("L11").Value
.Range("AM" & y).Value = sh2.Range("B12").Value
.Range("AN" & y).Value = sh2.Range("C12").Value
.Range("AO" & y).Value = sh2.Range("F12").Value
.Range("AP" & y).Value = sh2.Range("G12").Value
.Range("AQ" & y).Value = sh2.Range("K12").Value
.Range("AR" & y).Value = sh2.Range("B14").Value
.Range("AS" & y).Value = sh2.Range("E14").Value
.Range("AT" & y).Value = sh2.Range("H14").Value
.Range("AU" & y).Value = sh2.Range("L14").Value
.Range("AV" & y).Value = sh2.Range("B15").Value
.Range("AW" & y).Value = sh2.Range("E15").Value
.Range("AX" & y).Value = sh2.Range("H15").Value
.Range("AY" & y).Value = sh2.Range("L15").Value
.Range("AZ" & y).Value = sh2.Range("B16").Value
.Range("BA" & y).Value = sh2.Range("E16").Value
.Range("BB" & y).Value = sh2.Range("H16").Value
.Range("BC" & y).Value = sh2.Range("L16").Value
.Range("BD" & y).Value = sh2.Range("B18").Value
.Range("BE" & y).Value = sh2.Range("E18").Value
'
.Range("BF" & y).Value = sh2.Range("H18").Value
.Range("BG" & y).Value = sh2.Range("I18").Value
.Range("BH" & y).Value = sh2.Range("J18").Value
.Range("BI" & y).Value = sh2.Range("L18").Value
.Range("BJ" & y).Value = sh2.Range("M18").Value
.Range("BK" & y).Value = sh2.Range("N18").Value
.Range("BL" & y).Value = sh2.Range("B19").Value
.Range("BM" & y).Value = sh2.Range("E19").Value
.Range("BN" & y).Value = sh2.Range("L19").Value
.Range("BO" & y).Value = sh2.Range("B21").Value
.Range("BP" & y).Value = sh2.Range("H21").Value
.Range("BR" & y).Value = sh2.Range("H18").Value
'市町村コードを転記する必要あり
' .Range("BS" & y) =
.Range("BT" & y).Value = sh2.Range("B5").Value & sh2.Range("C5").Value
.Range("BU" & y).Value = sh2.Range("B6").Value
.Range("BV" & y).Value = sh2.Range("E6").Value
End With
Rem（f） 2019/02/20(水) 11:05
End Sub
Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, wb As Workbook)
Rem 'sh2 = 検査シート, sh4 = 情報入力シート
With ws
Rem ■検査シートの転記処理部分 (ZU列ではなくZWまでありました)
.Range("A" & y2).Value = sh4.Range("B2").Value
'マスタ（管理）より管理者コードを取得する必要あり
' .Range("B" & y2).Value = sh2.Range("").Value
'ファイル名取得
.Range("C" & y2).Value = wb.Name
.Range("D" & y2).Value = sh4.Range("B2").Value
.Range("E" & y2).Value = sh4.Range("F2").Value
.Range("F" & y2).Value = sh4.Range("G2").Value
.Range("G" & y2).Value = sh4.Range("I2").Value
.Range("H" & y2).Value = sh4.Range("L2").Value
'以下結果転記
.Range("J" & y2).Value = sh2.Range("D10").Value
.Range("K" & y2).Value = sh2.Range("E10").Value
.Range("L" & y2).Value = sh2.Range("F10").Value
.Range("M" & y2).Value = sh2.Range("G10").Value
.Range("N" & y2).Value = sh2.Range("H10").Value
.Range("O" & y2).Value = sh2.Range("I10").Value
.Range("P" & y2).Value = sh2.Range("J10").Value
.Range("Q" & y2).Value = sh2.Range("K10").Value
.Range("R" & y2).Value = sh2.Range("L10").Value
.Range("S" & y2).Value = sh2.Range("M10").Value
.Range("T" & y2).Value = sh2.Range("N10").Value
.Range("U" & y2).Value = sh2.Range("O10").Value
.Range("V" & y2).Value = sh2.Range("P10").Value
.Range("W" & y2).Value = sh2.Range("Q10").Value
.Range("X" & y2).Value = sh2.Range("R10").Value
.Range("Y" & y2).Value = sh2.Range("S10").Value
.Range("Z" & y2).Value = sh2.Range("T10").Value
DoEvents
.Range("AA" & y2).Value = sh2.Range("U10").Value
.Range("AB" & y2).Value = sh2.Range("V10").Value
.Range("AC" & y2).Value = sh2.Range("W10").Value
.Range("AD" & y2).Value = sh2.Range("X10").Value
.Range("AE" & y2).Value = sh2.Range("D11").Value
.Range("AF" & y2).Value = sh2.Range("E11").Value
.Range("AG" & y2).Value = sh2.Range("F11").Value
.Range("AH" & y2).Value = sh2.Range("G11").Value
.Range("AI" & y2).Value = sh2.Range("H11").Value
.Range("AJ" & y2).Value = sh2.Range("I11").Value
.Range("AK" & y2).Value = sh2.Range("J11").Value
.Range("AL" & y2).Value = sh2.Range("K11").Value
.Range("AM" & y2).Value = sh2.Range("L11").Value
.Range("AN" & y2).Value = sh2.Range("M11").Value
.Range("AO" & y2).Value = sh2.Range("N11").Value
.Range("AP" & y2).Value = sh2.Range("O11").Value
.Range("AQ" & y2).Value = sh2.Range("P11").Value
.Range("AR" & y2).Value = sh2.Range("Q11").Value
.Range("AS" & y2).Value = sh2.Range("R11").Value
.Range("AT" & y2).Value = sh2.Range("S11").Value
.Range("AU" & y2).Value = sh2.Range("T11").Value
.Range("AV" & y2).Value = sh2.Range("U11").Value
.Range("AW" & y2).Value = sh2.Range("V11").Value
.Range("AX" & y2).Value = sh2.Range("W11").Value
.Range("AY" & y2).Value = sh2.Range("X11").Value
.Range("AZ" & y2).Value = sh2.Range("D12").Value
.Range("BA" & y2).Value = sh2.Range("E12").Value
.Range("BB" & y2).Value = sh2.Range("F12").Value
.Range("BC" & y2).Value = sh2.Range("G12").Value
.Range("BD" & y2).Value = sh2.Range("H12").Value
.Range("BE" & y2).Value = sh2.Range("I12").Value
.Range("BF" & y2).Value = sh2.Range("J12").Value
.Range("BG" & y2).Value = sh2.Range("K12").Value
.Range("BH" & y2).Value = sh2.Range("L12").Value
.Range("BI" & y2).Value = sh2.Range("M12").Value
.Range("BJ" & y2).Value = sh2.Range("N12").Value
.Range("BK" & y2).Value = sh2.Range("O12").Value
.Range("BL" & y2).Value = sh2.Range("P12").Value
.Range("BM" & y2).Value = sh2.Range("Q12").Value
.Range("BN" & y2).Value = sh2.Range("R12").Value
.Range("BO" & y2).Value = sh2.Range("S12").Value
.Range("BP" & y2).Value = sh2.Range("T12").Value
.Range("BQ" & y2).Value = sh2.Range("U12").Value
.Range("BR" & y2).Value = sh2.Range("V12").Value
.Range("BS" & y2).Value = sh2.Range("W12").Value
.Range("BT" & y2).Value = sh2.Range("X12").Value
.Range("BU" & y2).Value = sh2.Range("D13").Value
.Range("BV" & y2).Value = sh2.Range("E13").Value
.Range("BW" & y2).Value = sh2.Range("F13").Value
.Range("BX" & y2).Value = sh2.Range("G13").Value
.Range("BY" & y2).Value = sh2.Range("H13").Value
.Range("BZ" & y2).Value = sh2.Range("I13").Value
.Range("CA" & y2).Value = sh2.Range("J13").Value
.Range("CB" & y2).Value = sh2.Range("K13").Value
.Range("CC" & y2).Value = sh2.Range("L13").Value
.Range("CD" & y2).Value = sh2.Range("M13").Value
.Range("CE" & y2).Value = sh2.Range("N13").Value
.Range("CF" & y2).Value = sh2.Range("O13").Value
.Range("CG" & y2).Value = sh2.Range("P13").Value
.Range("CH" & y2).Value = sh2.Range("Q13").Value
.Range("CI" & y2).Value = sh2.Range("R13").Value
.Range("CJ" & y2).Value = sh2.Range("S13").Value
.Range("CK" & y2).Value = sh2.Range("T13").Value
.Range("CL" & y2).Value = sh2.Range("U13").Value
.Range("CM" & y2).Value = sh2.Range("V13").Value
.Range("CN" & y2).Value = sh2.Range("W13").Value
.Range("CO" & y2).Value = sh2.Range("X13").Value
.Range("CP" & y2).Value = sh2.Range("D14").Value
.Range("CQ" & y2).Value = sh2.Range("E14").Value
.Range("CR" & y2).Value = sh2.Range("F14").Value
.Range("CS" & y2).Value = sh2.Range("G14").Value
.Range("CT" & y2).Value = sh2.Range("H14").Value
.Range("CU" & y2).Value = sh2.Range("I14").Value
.Range("CV" & y2).Value = sh2.Range("J14").Value
.Range("CW" & y2).Value = sh2.Range("K14").Value
.Range("CX" & y2).Value = sh2.Range("L14").Value
.Range("CY" & y2).Value = sh2.Range("M14").Value
.Range("CZ" & y2).Value = sh2.Range("N14").Value
.Range("DA" & y2).Value = sh2.Range("O14").Value
.Range("DB" & y2).Value = sh2.Range("P14").Value
.Range("DC" & y2).Value = sh2.Range("Q14").Value
.Range("DD" & y2).Value = sh2.Range("R14").Value
.Range("DE" & y2).Value = sh2.Range("S14").Value
.Range("DF" & y2).Value = sh2.Range("T14").Value
.Range("DG" & y2).Value = sh2.Range("U14").Value
.Range("DH" & y2).Value = sh2.Range("V14").Value
.Range("DI" & y2).Value = sh2.Range("W14").Value
.Range("DJ" & y2).Value = sh2.Range("X14").Value
.Range("DK" & y2).Value = sh2.Range("D15").Value
.Range("DL" & y2).Value = sh2.Range("E15").Value
.Range("DM" & y2).Value = sh2.Range("F15").Value
.Range("DN" & y2).Value = sh2.Range("G15").Value
.Range("DO" & y2).Value = sh2.Range("H15").Value
.Range("DP" & y2).Value = sh2.Range("I15").Value
.Range("DQ" & y2).Value = sh2.Range("J15").Value
.Range("DR" & y2).Value = sh2.Range("K15").Value
.Range("DS" & y2).Value = sh2.Range("L15").Value
.Range("DT" & y2).Value = sh2.Range("M15").Value
.Range("DU" & y2).Value = sh2.Range("N15").Value
.Range("DV" & y2).Value = sh2.Range("O15").Value
.Range("DW" & y2).Value = sh2.Range("P15").Value
.Range("DX" & y2).Value = sh2.Range("Q15").Value
.Range("DY" & y2).Value = sh2.Range("R15").Value
.Range("DZ" & y2).Value = sh2.Range("S15").Value
.Range("EA" & y2).Value = sh2.Range("T15").Value
.Range("EB" & y2).Value = sh2.Range("U15").Value
.Range("EC" & y2).Value = sh2.Range("V15").Value
.Range("ED" & y2).Value = sh2.Range("W15").Value
.Range("EE" & y2).Value = sh2.Range("X15").Value
.Range("EF" & y2).Value = sh2.Range("D16").Value
.Range("EG" & y2).Value = sh2.Range("E16").Value
.Range("EH" & y2).Value = sh2.Range("F16").Value
.Range("EI" & y2).Value = sh2.Range("G16").Value
.Range("EJ" & y2).Value = sh2.Range("H16").Value
.Range("EK" & y2).Value = sh2.Range("I16").Value
.Range("EL" & y2).Value = sh2.Range("J16").Value
.Range("EM" & y2).Value = sh2.Range("K16").Value
.Range("EN" & y2).Value = sh2.Range("L16").Value
.Range("EO" & y2).Value = sh2.Range("M16").Value
.Range("EP" & y2).Value = sh2.Range("N16").Value
.Range("EQ" & y2).Value = sh2.Range("O16").Value
.Range("ER" & y2).Value = sh2.Range("P16").Value
.Range("ES" & y2).Value = sh2.Range("Q16").Value
.Range("ET" & y2).Value = sh2.Range("R16").Value
.Range("EU" & y2).Value = sh2.Range("S16").Value
.Range("EV" & y2).Value = sh2.Range("T16").Value
.Range("EW" & y2).Value = sh2.Range("U16").Value
.Range("EX" & y2).Value = sh2.Range("V16").Value
.Range("EY" & y2).Value = sh2.Range("W16").Value
.Range("EZ" & y2).Value = sh2.Range("X16").Value
.Range("FA" & y2).Value = sh2.Range("D17").Value
.Range("FB" & y2).Value = sh2.Range("E17").Value
.Range("FC" & y2).Value = sh2.Range("F17").Value
.Range("FD" & y2).Value = sh2.Range("G17").Value
.Range("FE" & y2).Value = sh2.Range("H17").Value
.Range("FF" & y2).Value = sh2.Range("I17").Value
.Range("FG" & y2).Value = sh2.Range("J17").Value
.Range("FH" & y2).Value = sh2.Range("K17").Value
.Range("FI" & y2).Value = sh2.Range("L17").Value
.Range("FJ" & y2).Value = sh2.Range("M17").Value
.Range("FK" & y2).Value = sh2.Range("N17").Value
.Range("FL" & y2).Value = sh2.Range("O17").Value
.Range("FM" & y2).Value = sh2.Range("P17").Value
.Range("FN" & y2).Value = sh2.Range("Q17").Value
.Range("FO" & y2).Value = sh2.Range("R17").Value
.Range("FP" & y2).Value = sh2.Range("S17").Value
.Range("FQ" & y2).Value = sh2.Range("T17").Value
.Range("FR" & y2).Value = sh2.Range("U17").Value
.Range("FS" & y2).Value = sh2.Range("V17").Value
.Range("FT" & y2).Value = sh2.Range("W17").Value
.Range("FU" & y2).Value = sh2.Range("X17").Value
.Range("FV" & y2).Value = sh2.Range("D18").Value
.Range("FW" & y2).Value = sh2.Range("E18").Value
.Range("FX" & y2).Value = sh2.Range("F18").Value
.Range("FY" & y2).Value = sh2.Range("G18").Value
.Range("FZ" & y2).Value = sh2.Range("H18").Value
.Range("GA" & y2).Value = sh2.Range("I18").Value
.Range("GB" & y2).Value = sh2.Range("J18").Value
.Range("GC" & y2).Value = sh2.Range("K18").Value
.Range("GD" & y2).Value = sh2.Range("L18").Value
.Range("GE" & y2).Value = sh2.Range("M18").Value
.Range("GF" & y2).Value = sh2.Range("N18").Value
.Range("GG" & y2).Value = sh2.Range("O18").Value
.Range("GH" & y2).Value = sh2.Range("P18").Value
.Range("GI" & y2).Value = sh2.Range("Q18").Value
.Range("GJ" & y2).Value = sh2.Range("R18").Value
.Range("GK" & y2).Value = sh2.Range("S18").Value
.Range("GL" & y2).Value = sh2.Range("T18").Value
.Range("GM" & y2).Value = sh2.Range("U18").Value
.Range("GN" & y2).Value = sh2.Range("V18").Value
.Range("GO" & y2).Value = sh2.Range("W18").Value
.Range("GP" & y2).Value = sh2.Range("X18").Value
.Range("GQ" & y2).Value = sh2.Range("D19").Value
.Range("GR" & y2).Value = sh2.Range("E19").Value
.Range("GS" & y2).Value = sh2.Range("F19").Value
.Range("GT" & y2).Value = sh2.Range("G19").Value
.Range("GU" & y2).Value = sh2.Range("H19").Value
.Range("GV" & y2).Value = sh2.Range("I19").Value
.Range("GW" & y2).Value = sh2.Range("J19").Value
.Range("GX" & y2).Value = sh2.Range("K19").Value
.Range("GY" & y2).Value = sh2.Range("L19").Value
.Range("GZ" & y2).Value = sh2.Range("M19").Value
.Range("HA" & y2).Value = sh2.Range("N19").Value
.Range("HB" & y2).Value = sh2.Range("O19").Value
.Range("HC" & y2).Value = sh2.Range("P19").Value
.Range("HD" & y2).Value = sh2.Range("Q19").Value
.Range("HE" & y2).Value = sh2.Range("R19").Value
.Range("HF" & y2).Value = sh2.Range("S19").Value
.Range("HG" & y2).Value = sh2.Range("T19").Value
.Range("HH" & y2).Value = sh2.Range("U19").Value
.Range("HI" & y2).Value = sh2.Range("V19").Value
.Range("HJ" & y2).Value = sh2.Range("W19").Value
.Range("HK" & y2).Value = sh2.Range("X19").Value
.Range("HL" & y2).Value = sh2.Range("D20").Value
.Range("HM" & y2).Value = sh2.Range("E20").Value
.Range("HN" & y2).Value = sh2.Range("F20").Value
.Range("HO" & y2).Value = sh2.Range("G20").Value
.Range("HP" & y2).Value = sh2.Range("H20").Value
.Range("HQ" & y2).Value = sh2.Range("I20").Value
.Range("HR" & y2).Value = sh2.Range("J20").Value
.Range("HS" & y2).Value = sh2.Range("K20").Value
.Range("HT" & y2).Value = sh2.Range("L20").Value
.Range("HU" & y2).Value = sh2.Range("M20").Value
.Range("HV" & y2).Value = sh2.Range("N20").Value
.Range("HW" & y2).Value = sh2.Range("O20").Value
.Range("HX" & y2).Value = sh2.Range("P20").Value
.Range("HY" & y2).Value = sh2.Range("Q20").Value
.Range("HZ" & y2).Value = sh2.Range("R20").Value
.Range("IA" & y2).Value = sh2.Range("S20").Value
.Range("IB" & y2).Value = sh2.Range("T20").Value
.Range("IC" & y2).Value = sh2.Range("U20").Value
.Range("ID" & y2).Value = sh2.Range("V20").Value
.Range("IE" & y2).Value = sh2.Range("W20").Value
.Range("IF" & y2).Value = sh2.Range("X20").Value
.Range("IG" & y2).Value = sh2.Range("D21").Value
.Range("IH" & y2).Value = sh2.Range("E21").Value
.Range("II" & y2).Value = sh2.Range("F21").Value
.Range("IJ" & y2).Value = sh2.Range("G21").Value
.Range("IK" & y2).Value = sh2.Range("H21").Value
.Range("IL" & y2).Value = sh2.Range("I21").Value
.Range("IM" & y2).Value = sh2.Range("J21").Value
.Range("IN" & y2).Value = sh2.Range("K21").Value
.Range("IO" & y2).Value = sh2.Range("L21").Value
.Range("IP" & y2).Value = sh2.Range("M21").Value
.Range("IQ" & y2).Value = sh2.Range("N21").Value
.Range("IR" & y2).Value = sh2.Range("O21").Value
.Range("IS" & y2).Value = sh2.Range("P21").Value
.Range("IT" & y2).Value = sh2.Range("Q21").Value
.Range("IU" & y2).Value = sh2.Range("R21").Value
.Range("IV" & y2).Value = sh2.Range("S21").Value
.Range("IW" & y2).Value = sh2.Range("T21").Value
.Range("IX" & y2).Value = sh2.Range("U21").Value
.Range("IY" & y2).Value = sh2.Range("V21").Value
.Range("IZ" & y2).Value = sh2.Range("W21").Value
.Range("JA" & y2).Value = sh2.Range("X21").Value
.Range("JB" & y2).Value = sh2.Range("Y10").Value
.Range("JC" & y2).Value = sh2.Range("Z10").Value
.Range("JD" & y2).Value = sh2.Range("D22").Value
.Range("JE" & y2).Value = sh2.Range("E22").Value
.Range("JF" & y2).Value = sh2.Range("F22").Value
.Range("JG" & y2).Value = sh2.Range("G22").Value
.Range("JH" & y2).Value = sh2.Range("H22").Value
.Range("JI" & y2).Value = sh2.Range("I22").Value
.Range("JJ" & y2).Value = sh2.Range("J22").Value
.Range("JK" & y2).Value = sh2.Range("K22").Value
.Range("JL" & y2).Value = sh2.Range("L22").Value
.Range("JM" & y2).Value = sh2.Range("M22").Value
.Range("JN" & y2).Value = sh2.Range("N22").Value
.Range("JO" & y2).Value = sh2.Range("O22").Value
.Range("JP" & y2).Value = sh2.Range("P22").Value
.Range("JQ" & y2).Value = sh2.Range("Q22").Value
.Range("JR" & y2).Value = sh2.Range("R22").Value
.Range("JS" & y2).Value = sh2.Range("S22").Value
.Range("JT" & y2).Value = sh2.Range("T22").Value
.Range("JU" & y2).Value = sh2.Range("U22").Value
.Range("JV" & y2).Value = sh2.Range("V22").Value
.Range("JW" & y2).Value = sh2.Range("W22").Value
.Range("JX" & y2).Value = sh2.Range("X22").Value
.Range("JY" & y2).Value = sh2.Range("D23").Value
.Range("JZ" & y2).Value = sh2.Range("E23").Value
.Range("KA" & y2).Value = sh2.Range("F23").Value
.Range("KB" & y2).Value = sh2.Range("G23").Value
.Range("KC" & y2).Value = sh2.Range("H23").Value
.Range("KD" & y2).Value = sh2.Range("I23").Value
.Range("KE" & y2).Value = sh2.Range("J23").Value
.Range("KF" & y2).Value = sh2.Range("K23").Value
.Range("KG" & y2).Value = sh2.Range("L23").Value
.Range("KH" & y2).Value = sh2.Range("M23").Value
.Range("KI" & y2).Value = sh2.Range("N23").Value
.Range("KJ" & y2).Value = sh2.Range("O23").Value
.Range("KK" & y2).Value = sh2.Range("P23").Value
.Range("KL" & y2).Value = sh2.Range("Q23").Value
.Range("KM" & y2).Value = sh2.Range("R23").Value
.Range("KN" & y2).Value = sh2.Range("S23").Value
.Range("KO" & y2).Value = sh2.Range("T23").Value
.Range("KP" & y2).Value = sh2.Range("U23").Value
.Range("KQ" & y2).Value = sh2.Range("V23").Value
.Range("KR" & y2).Value = sh2.Range("W23").Value
.Range("KS" & y2).Value = sh2.Range("X23").Value
.Range("KT" & y2).Value = sh2.Range("D24").Value
.Range("KU" & y2).Value = sh2.Range("E24").Value
.Range("KV" & y2).Value = sh2.Range("F24").Value
.Range("KW" & y2).Value = sh2.Range("G24").Value
.Range("KX" & y2).Value = sh2.Range("H24").Value
.Range("KY" & y2).Value = sh2.Range("I24").Value
.Range("KZ" & y2).Value = sh2.Range("J24").Value
.Range("LA" & y2).Value = sh2.Range("K24").Value
.Range("LB" & y2).Value = sh2.Range("L24").Value
.Range("LC" & y2).Value = sh2.Range("M24").Value
.Range("LD" & y2).Value = sh2.Range("N24").Value
.Range("LE" & y2).Value = sh2.Range("O24").Value
.Range("LF" & y2).Value = sh2.Range("P24").Value
.Range("LG" & y2).Value = sh2.Range("Q24").Value
.Range("LH" & y2).Value = sh2.Range("R24").Value
.Range("LI" & y2).Value = sh2.Range("S24").Value
.Range("LJ" & y2).Value = sh2.Range("T24").Value
.Range("LK" & y2).Value = sh2.Range("U24").Value
.Range("LL" & y2).Value = sh2.Range("V24").Value
.Range("LM" & y2).Value = sh2.Range("W24").Value
.Range("LN" & y2).Value = sh2.Range("X24").Value
.Range("LO" & y2).Value = sh2.Range("D25").Value
.Range("LP" & y2).Value = sh2.Range("E25").Value
.Range("LQ" & y2).Value = sh2.Range("F25").Value
.Range("LR" & y2).Value = sh2.Range("G25").Value
.Range("LS" & y2).Value = sh2.Range("H25").Value
.Range("LT" & y2).Value = sh2.Range("I25").Value
.Range("LU" & y2).Value = sh2.Range("J25").Value
.Range("LV" & y2).Value = sh2.Range("K25").Value
.Range("LW" & y2).Value = sh2.Range("L25").Value
.Range("LX" & y2).Value = sh2.Range("M25").Value
.Range("LY" & y2).Value = sh2.Range("N25").Value
.Range("LZ" & y2).Value = sh2.Range("O25").Value
.Range("MA" & y2).Value = sh2.Range("P25").Value
.Range("MB" & y2).Value = sh2.Range("Q25").Value
.Range("MC" & y2).Value = sh2.Range("R25").Value
.Range("MD" & y2).Value = sh2.Range("S25").Value
.Range("ME" & y2).Value = sh2.Range("T25").Value
.Range("MF" & y2).Value = sh2.Range("U25").Value
.Range("MG" & y2).Value = sh2.Range("V25").Value
.Range("MH" & y2).Value = sh2.Range("W25").Value
.Range("MI" & y2).Value = sh2.Range("X25").Value
.Range("MJ" & y2).Value = sh2.Range("D26").Value
.Range("MK" & y2).Value = sh2.Range("E26").Value
.Range("ML" & y2).Value = sh2.Range("F26").Value
.Range("MM" & y2).Value = sh2.Range("G26").Value
.Range("MN" & y2).Value = sh2.Range("H26").Value
.Range("MO" & y2).Value = sh2.Range("I26").Value
.Range("MP" & y2).Value = sh2.Range("J26").Value
.Range("MQ" & y2).Value = sh2.Range("K26").Value
.Range("MR" & y2).Value = sh2.Range("L26").Value
.Range("MS" & y2).Value = sh2.Range("M26").Value
.Range("MT" & y2).Value = sh2.Range("N26").Value
.Range("MU" & y2).Value = sh2.Range("O26").Value
.Range("MV" & y2).Value = sh2.Range("P26").Value
.Range("MW" & y2).Value = sh2.Range("Q26").Value
.Range("MX" & y2).Value = sh2.Range("R26").Value
.Range("MY" & y2).Value = sh2.Range("S26").Value
.Range("MZ" & y2).Value = sh2.Range("T26").Value
.Range("NA" & y2).Value = sh2.Range("U26").Value
.Range("NB" & y2).Value = sh2.Range("V26").Value
.Range("NC" & y2).Value = sh2.Range("W26").Value
.Range("ND" & y2).Value = sh2.Range("X26").Value
.Range("NE" & y2).Value = sh2.Range("D27").Value
.Range("NF" & y2).Value = sh2.Range("E27").Value
.Range("NG" & y2).Value = sh2.Range("F27").Value
.Range("NH" & y2).Value = sh2.Range("G27").Value
.Range("NI" & y2).Value = sh2.Range("H27").Value
.Range("NJ" & y2).Value = sh2.Range("I27").Value
.Range("NK" & y2).Value = sh2.Range("J27").Value
.Range("NL" & y2).Value = sh2.Range("K27").Value
.Range("NM" & y2).Value = sh2.Range("L27").Value
.Range("NN" & y2).Value = sh2.Range("M27").Value
.Range("NO" & y2).Value = sh2.Range("N27").Value
.Range("NP" & y2).Value = sh2.Range("O27").Value
.Range("NQ" & y2).Value = sh2.Range("P27").Value
.Range("NR" & y2).Value = sh2.Range("Q27").Value
.Range("NS" & y2).Value = sh2.Range("R27").Value
.Range("NT" & y2).Value = sh2.Range("S27").Value
.Range("NU" & y2).Value = sh2.Range("T27").Value
.Range("NV" & y2).Value = sh2.Range("U27").Value
.Range("NW" & y2).Value = sh2.Range("V27").Value
.Range("NX" & y2).Value = sh2.Range("W27").Value
.Range("NY" & y2).Value = sh2.Range("X27").Value
.Range("NZ" & y2).Value = sh2.Range("Y22").Value
.Range("OA" & y2).Value = sh2.Range("Z22").Value
.Range("OB" & y2).Value = sh2.Range("D28").Value
.Range("OC" & y2).Value = sh2.Range("E28").Value
.Range("OD" & y2).Value = sh2.Range("F28").Value
.Range("OE" & y2).Value = sh2.Range("G28").Value
.Range("OF" & y2).Value = sh2.Range("H28").Value
.Range("OG" & y2).Value = sh2.Range("I28").Value
.Range("OH" & y2).Value = sh2.Range("J28").Value
.Range("OI" & y2).Value = sh2.Range("K28").Value
.Range("OJ" & y2).Value = sh2.Range("L28").Value
.Range("OK" & y2).Value = sh2.Range("M28").Value
.Range("OL" & y2).Value = sh2.Range("N28").Value
.Range("OM" & y2).Value = sh2.Range("O28").Value
.Range("ON" & y2).Value = sh2.Range("P28").Value
.Range("OO" & y2).Value = sh2.Range("Q28").Value
.Range("OP" & y2).Value = sh2.Range("R28").Value
.Range("OQ" & y2).Value = sh2.Range("S28").Value
.Range("OR" & y2).Value = sh2.Range("T28").Value
.Range("OS" & y2).Value = sh2.Range("U28").Value
.Range("OT" & y2).Value = sh2.Range("V28").Value
.Range("OU" & y2).Value = sh2.Range("W28").Value
.Range("OV" & y2).Value = sh2.Range("X28").Value
.Range("OW" & y2).Value = sh2.Range("D29").Value
.Range("OX" & y2).Value = sh2.Range("E29").Value
.Range("OY" & y2).Value = sh2.Range("F29").Value
.Range("OZ" & y2).Value = sh2.Range("G29").Value
.Range("PA" & y2).Value = sh2.Range("H29").Value
.Range("PB" & y2).Value = sh2.Range("I29").Value
.Range("PC" & y2).Value = sh2.Range("J29").Value
.Range("PD" & y2).Value = sh2.Range("K29").Value
.Range("PE" & y2).Value = sh2.Range("L29").Value
.Range("PF" & y2).Value = sh2.Range("M29").Value
.Range("PG" & y2).Value = sh2.Range("N29").Value
.Range("PH" & y2).Value = sh2.Range("O29").Value
.Range("PI" & y2).Value = sh2.Range("P29").Value
.Range("PJ" & y2).Value = sh2.Range("Q29").Value
.Range("PK" & y2).Value = sh2.Range("R29").Value
.Range("PL" & y2).Value = sh2.Range("S29").Value
.Range("PM" & y2).Value = sh2.Range("T29").Value
.Range("PN" & y2).Value = sh2.Range("U29").Value
.Range("PO" & y2).Value = sh2.Range("V29").Value
.Range("PP" & y2).Value = sh2.Range("W29").Value
.Range("PQ" & y2).Value = sh2.Range("X29").Value
.Range("PR" & y2).Value = sh2.Range("D30").Value
.Range("PS" & y2).Value = sh2.Range("E30").Value
.Range("PT" & y2).Value = sh2.Range("F30").Value
.Range("PU" & y2).Value = sh2.Range("G30").Value
.Range("PV" & y2).Value = sh2.Range("H30").Value
.Range("PW" & y2).Value = sh2.Range("I30").Value
.Range("PX" & y2).Value = sh2.Range("J30").Value
.Range("PY" & y2).Value = sh2.Range("K30").Value
.Range("PZ" & y2).Value = sh2.Range("L30").Value
.Range("QA" & y2).Value = sh2.Range("M30").Value
.Range("QB" & y2).Value = sh2.Range("N30").Value
.Range("QC" & y2).Value = sh2.Range("O30").Value
.Range("QD" & y2).Value = sh2.Range("P30").Value
.Range("QE" & y2).Value = sh2.Range("Q30").Value
.Range("QF" & y2).Value = sh2.Range("R30").Value
.Range("QG" & y2).Value = sh2.Range("S30").Value
.Range("QH" & y2).Value = sh2.Range("T30").Value
.Range("QI" & y2).Value = sh2.Range("U30").Value
.Range("QJ" & y2).Value = sh2.Range("V30").Value
.Range("QK" & y2).Value = sh2.Range("W30").Value
.Range("QL" & y2).Value = sh2.Range("X30").Value
.Range("QM" & y2).Value = sh2.Range("D31").Value
.Range("QN" & y2).Value = sh2.Range("E31").Value
.Range("QO" & y2).Value = sh2.Range("F31").Value
.Range("QP" & y2).Value = sh2.Range("G31").Value
.Range("QQ" & y2).Value = sh2.Range("H31").Value
.Range("QR" & y2).Value = sh2.Range("I31").Value
.Range("QS" & y2).Value = sh2.Range("J31").Value
.Range("QT" & y2).Value = sh2.Range("K31").Value
.Range("QU" & y2).Value = sh2.Range("L31").Value
.Range("QV" & y2).Value = sh2.Range("M31").Value
.Range("QW" & y2).Value = sh2.Range("N31").Value
.Range("QX" & y2).Value = sh2.Range("O31").Value
.Range("QY" & y2).Value = sh2.Range("P31").Value
.Range("QZ" & y2).Value = sh2.Range("Q31").Value
.Range("RA" & y2).Value = sh2.Range("R31").Value
.Range("RB" & y2).Value = sh2.Range("S31").Value
.Range("RC" & y2).Value = sh2.Range("T31").Value
.Range("RD" & y2).Value = sh2.Range("U31").Value
.Range("RE" & y2).Value = sh2.Range("V31").Value
.Range("RF" & y2).Value = sh2.Range("W31").Value
.Range("RG" & y2).Value = sh2.Range("X31").Value
.Range("RH" & y2).Value = sh2.Range("D32").Value
.Range("RI" & y2).Value = sh2.Range("E32").Value
.Range("RJ" & y2).Value = sh2.Range("F32").Value
.Range("RK" & y2).Value = sh2.Range("G32").Value
.Range("RL" & y2).Value = sh2.Range("H32").Value
.Range("RM" & y2).Value = sh2.Range("I32").Value
.Range("RN" & y2).Value = sh2.Range("J32").Value
.Range("RO" & y2).Value = sh2.Range("K32").Value
.Range("RP" & y2).Value = sh2.Range("L32").Value
.Range("RQ" & y2).Value = sh2.Range("M32").Value
.Range("RR" & y2).Value = sh2.Range("N32").Value
.Range("RS" & y2).Value = sh2.Range("O32").Value
.Range("RT" & y2).Value = sh2.Range("P32").Value
.Range("RU" & y2).Value = sh2.Range("Q32").Value
.Range("RV" & y2).Value = sh2.Range("R32").Value
.Range("RW" & y2).Value = sh2.Range("S32").Value
.Range("RX" & y2).Value = sh2.Range("T32").Value
.Range("RY" & y2).Value = sh2.Range("U32").Value
.Range("RZ" & y2).Value = sh2.Range("V32").Value
.Range("SA" & y2).Value = sh2.Range("W32").Value
.Range("SB" & y2).Value = sh2.Range("X32").Value
.Range("SC" & y2).Value = sh2.Range("D33").Value
.Range("SD" & y2).Value = sh2.Range("E33").Value
.Range("SE" & y2).Value = sh2.Range("F33").Value
.Range("SF" & y2).Value = sh2.Range("G33").Value
.Range("SG" & y2).Value = sh2.Range("H33").Value
.Range("SH" & y2).Value = sh2.Range("I33").Value
.Range("SI" & y2).Value = sh2.Range("J33").Value
.Range("SJ" & y2).Value = sh2.Range("K33").Value
.Range("SK" & y2).Value = sh2.Range("L33").Value
.Range("SL" & y2).Value = sh2.Range("M33").Value
.Range("SM" & y2).Value = sh2.Range("N33").Value
.Range("SN" & y2).Value = sh2.Range("O33").Value
.Range("SO" & y2).Value = sh2.Range("P33").Value
.Range("SP" & y2).Value = sh2.Range("Q33").Value
.Range("SQ" & y2).Value = sh2.Range("R33").Value
.Range("SR" & y2).Value = sh2.Range("S33").Value
.Range("SS" & y2).Value = sh2.Range("T33").Value
.Range("ST" & y2).Value = sh2.Range("U33").Value
.Range("SU" & y2).Value = sh2.Range("V33").Value
.Range("SV" & y2).Value = sh2.Range("W33").Value
.Range("SW" & y2).Value = sh2.Range("X33").Value
.Range("SX" & y2).Value = sh2.Range("Y28").Value
.Range("SY" & y2).Value = sh2.Range("Z28").Value
.Range("SZ" & y2).Value = sh2.Range("D34").Value
.Range("TA" & y2).Value = sh2.Range("E34").Value
.Range("TB" & y2).Value = sh2.Range("F34").Value
.Range("TC" & y2).Value = sh2.Range("G34").Value
.Range("TD" & y2).Value = sh2.Range("H34").Value
.Range("TE" & y2).Value = sh2.Range("I34").Value
.Range("TF" & y2).Value = sh2.Range("J34").Value
.Range("TG" & y2).Value = sh2.Range("K34").Value
.Range("TH" & y2).Value = sh2.Range("L34").Value
.Range("TI" & y2).Value = sh2.Range("M34").Value
.Range("TJ" & y2).Value = sh2.Range("N34").Value
.Range("TK" & y2).Value = sh2.Range("O34").Value
.Range("TL" & y2).Value = sh2.Range("P34").Value
.Range("TM" & y2).Value = sh2.Range("Q34").Value
.Range("TN" & y2).Value = sh2.Range("R34").Value
.Range("TO" & y2).Value = sh2.Range("S34").Value
.Range("TP" & y2).Value = sh2.Range("T34").Value
.Range("TQ" & y2).Value = sh2.Range("U34").Value
.Range("TR" & y2).Value = sh2.Range("V34").Value
.Range("TS" & y2).Value = sh2.Range("W34").Value
.Range("TT" & y2).Value = sh2.Range("X34").Value
.Range("TU" & y2).Value = sh2.Range("D35").Value
.Range("TV" & y2).Value = sh2.Range("E35").Value
.Range("TW" & y2).Value = sh2.Range("F35").Value
.Range("TX" & y2).Value = sh2.Range("G35").Value
.Range("TY" & y2).Value = sh2.Range("H35").Value
.Range("TZ" & y2).Value = sh2.Range("I35").Value
.Range("UA" & y2).Value = sh2.Range("J35").Value
.Range("UB" & y2).Value = sh2.Range("K35").Value
.Range("UC" & y2).Value = sh2.Range("L35").Value
.Range("UD" & y2).Value = sh2.Range("M35").Value
.Range("UE" & y2).Value = sh2.Range("N35").Value
.Range("UF" & y2).Value = sh2.Range("O35").Value
.Range("UG" & y2).Value = sh2.Range("P35").Value
.Range("UH" & y2).Value = sh2.Range("Q35").Value
.Range("UI" & y2).Value = sh2.Range("R35").Value
.Range("UJ" & y2).Value = sh2.Range("S35").Value
.Range("UK" & y2).Value = sh2.Range("T35").Value
.Range("UL" & y2).Value = sh2.Range("U35").Value
.Range("UM" & y2).Value = sh2.Range("V35").Value
.Range("UN" & y2).Value = sh2.Range("W35").Value
.Range("UO" & y2).Value = sh2.Range("X35").Value
.Range("UP" & y2).Value = sh2.Range("Y34").Value
.Range("UQ" & y2).Value = sh2.Range("Z34").Value
.Range("UR" & y2).Value = sh2.Range("D36").Value
.Range("US" & y2).Value = sh2.Range("E36").Value
.Range("UT" & y2).Value = sh2.Range("F36").Value
.Range("UU" & y2).Value = sh2.Range("G36").Value
.Range("UV" & y2).Value = sh2.Range("H36").Value
.Range("UW" & y2).Value = sh2.Range("I36").Value
.Range("UX" & y2).Value = sh2.Range("J36").Value
.Range("UY" & y2).Value = sh2.Range("K36").Value
.Range("UZ" & y2).Value = sh2.Range("L36").Value
.Range("VA" & y2).Value = sh2.Range("M36").Value
.Range("VB" & y2).Value = sh2.Range("N36").Value
.Range("VC" & y2).Value = sh2.Range("O36").Value
.Range("VD" & y2).Value = sh2.Range("P36").Value
.Range("VE" & y2).Value = sh2.Range("Q36").Value
.Range("VF" & y2).Value = sh2.Range("R36").Value
.Range("VG" & y2).Value = sh2.Range("S36").Value
.Range("VH" & y2).Value = sh2.Range("T36").Value
.Range("VI" & y2).Value = sh2.Range("U36").Value
.Range("VJ" & y2).Value = sh2.Range("V36").Value
.Range("VK" & y2).Value = sh2.Range("W36").Value
.Range("VL" & y2).Value = sh2.Range("X36").Value
.Range("VM" & y2).Value = sh2.Range("D37").Value
.Range("VN" & y2).Value = sh2.Range("E37").Value
.Range("VO" & y2).Value = sh2.Range("F37").Value
.Range("VP" & y2).Value = sh2.Range("G37").Value
.Range("VQ" & y2).Value = sh2.Range("H37").Value
.Range("VR" & y2).Value = sh2.Range("I37").Value
.Range("VS" & y2).Value = sh2.Range("J37").Value
.Range("VT" & y2).Value = sh2.Range("K37").Value
.Range("VU" & y2).Value = sh2.Range("L37").Value
.Range("VV" & y2).Value = sh2.Range("M37").Value
.Range("VW" & y2).Value = sh2.Range("N37").Value
.Range("VX" & y2).Value = sh2.Range("O37").Value
.Range("VY" & y2).Value = sh2.Range("P37").Value
.Range("VZ" & y2).Value = sh2.Range("Q37").Value
.Range("WA" & y2).Value = sh2.Range("R37").Value
.Range("WB" & y2).Value = sh2.Range("S37").Value
.Range("WC" & y2).Value = sh2.Range("T37").Value
.Range("WD" & y2).Value = sh2.Range("U37").Value
.Range("WE" & y2).Value = sh2.Range("V37").Value
.Range("WF" & y2).Value = sh2.Range("W37").Value
.Range("WG" & y2).Value = sh2.Range("X37").Value
.Range("WH" & y2).Value = sh2.Range("Y36").Value
.Range("WI" & y2).Value = sh2.Range("Z36").Value
.Range("WJ" & y2).Value = sh2.Range("D38").Value
.Range("WK" & y2).Value = sh2.Range("E38").Value
.Range("WL" & y2).Value = sh2.Range("F38").Value
.Range("WM" & y2).Value = sh2.Range("G38").Value
.Range("WN" & y2).Value = sh2.Range("H38").Value
.Range("WO" & y2).Value = sh2.Range("I38").Value
.Range("WP" & y2).Value = sh2.Range("J38").Value
.Range("WQ" & y2).Value = sh2.Range("K38").Value
.Range("WR" & y2).Value = sh2.Range("L38").Value
.Range("WS" & y2).Value = sh2.Range("M38").Value
.Range("WT" & y2).Value = sh2.Range("N38").Value
.Range("WU" & y2).Value = sh2.Range("O38").Value
.Range("WV" & y2).Value = sh2.Range("P38").Value
.Range("WW" & y2).Value = sh2.Range("Q38").Value
.Range("WX" & y2).Value = sh2.Range("R38").Value
.Range("WY" & y2).Value = sh2.Range("S38").Value
.Range("WZ" & y2).Value = sh2.Range("T38").Value
.Range("XA" & y2).Value = sh2.Range("U38").Value
.Range("XB" & y2).Value = sh2.Range("V38").Value
.Range("XC" & y2).Value = sh2.Range("W38").Value
.Range("XD" & y2).Value = sh2.Range("X38").Value
.Range("XE" & y2).Value = sh2.Range("D39").Value
.Range("XF" & y2).Value = sh2.Range("E39").Value
.Range("XG" & y2).Value = sh2.Range("F39").Value
.Range("XH" & y2).Value = sh2.Range("G39").Value
.Range("XI" & y2).Value = sh2.Range("H39").Value
.Range("XJ" & y2).Value = sh2.Range("I39").Value
.Range("XK" & y2).Value = sh2.Range("J39").Value
.Range("XL" & y2).Value = sh2.Range("K39").Value
.Range("XM" & y2).Value = sh2.Range("L39").Value
.Range("XN" & y2).Value = sh2.Range("M39").Value
.Range("XO" & y2).Value = sh2.Range("N39").Value
.Range("XP" & y2).Value = sh2.Range("O39").Value
.Range("XQ" & y2).Value = sh2.Range("P39").Value
.Range("XR" & y2).Value = sh2.Range("Q39").Value
.Range("XS" & y2).Value = sh2.Range("R39").Value
.Range("XT" & y2).Value = sh2.Range("S39").Value
.Range("XU" & y2).Value = sh2.Range("T39").Value
.Range("XV" & y2).Value = sh2.Range("U39").Value
.Range("XW" & y2).Value = sh2.Range("V39").Value
.Range("XX" & y2).Value = sh2.Range("W39").Value
.Range("XY" & y2).Value = sh2.Range("X39").Value
.Range("XZ" & y2).Value = sh2.Range("D40").Value
.Range("YA" & y2).Value = sh2.Range("E40").Value
.Range("YB" & y2).Value = sh2.Range("F40").Value
.Range("YC" & y2).Value = sh2.Range("G40").Value
.Range("YD" & y2).Value = sh2.Range("H40").Value
.Range("YE" & y2).Value = sh2.Range("I40").Value
.Range("YF" & y2).Value = sh2.Range("J40").Value
.Range("YG" & y2).Value = sh2.Range("K40").Value
.Range("YH" & y2).Value = sh2.Range("L40").Value
.Range("YI" & y2).Value = sh2.Range("M40").Value
.Range("YJ" & y2).Value = sh2.Range("N40").Value
.Range("YK" & y2).Value = sh2.Range("O40").Value
.Range("YL" & y2).Value = sh2.Range("P40").Value
.Range("YM" & y2).Value = sh2.Range("Q40").Value
.Range("YN" & y2).Value = sh2.Range("R40").Value
.Range("YO" & y2).Value = sh2.Range("S40").Value
.Range("YP" & y2).Value = sh2.Range("T40").Value
.Range("YQ" & y2).Value = sh2.Range("U40").Value
.Range("YR" & y2).Value = sh2.Range("V40").Value
.Range("YS" & y2).Value = sh2.Range("W40").Value
.Range("YT" & y2).Value = sh2.Range("X40").Value
.Range("YU" & y2).Value = sh2.Range("D41").Value
.Range("YV" & y2).Value = sh2.Range("E41").Value
.Range("YW" & y2).Value = sh2.Range("F41").Value
.Range("YX" & y2).Value = sh2.Range("G41").Value
.Range("YY" & y2).Value = sh2.Range("H41").Value
.Range("YZ" & y2).Value = sh2.Range("I41").Value
.Range("ZA" & y2).Value = sh2.Range("J41").Value
.Range("ZB" & y2).Value = sh2.Range("K41").Value
.Range("ZC" & y2).Value = sh2.Range("L41").Value
.Range("ZD" & y2).Value = sh2.Range("M41").Value
.Range("ZE" & y2).Value = sh2.Range("N41").Value
.Range("ZF" & y2).Value = sh2.Range("O41").Value
.Range("ZG" & y2).Value = sh2.Range("P41").Value
.Range("ZH" & y2).Value = sh2.Range("Q41").Value
.Range("ZI" & y2).Value = sh2.Range("R41").Value
.Range("ZJ" & y2).Value = sh2.Range("S41").Value
.Range("ZK" & y2).Value = sh2.Range("T41").Value
.Range("ZL" & y2).Value = sh2.Range("U41").Value
.Range("ZM" & y2).Value = sh2.Range("V41").Value
.Range("ZN" & y2).Value = sh2.Range("W41").Value
.Range("ZO" & y2).Value = sh2.Range("X41").Value
.Range("ZP" & y2).Value = sh2.Range("Y38").Value
.Range("ZQ" & y2).Value = sh2.Range("Z38").Value
.Range("ZR" & y2).Value = sh2.Range("Y42").Value
.Range("ZS" & y2).Value = sh2.Range("A45").Value
.Range("ZT" & y2).Value = sh2.Range("C48").Value
.Range("ZU" & y2).Value = sh2.Range("C49").Value
.Range("ZV" & y2).Value = sh2.Range("L48").Value
.Range("ZW" & y2).Value = sh2.Range("L49").Value
DoEvents
'（f） 2019/02/20(水) 11:07
End With
End Sub （隠居じーさん） 2019/02/21(木) 12:14
お世話になっております。ご対応ありがとうございます。
マクロを実行すると、
オブジェクト変数または with ブロック変数が設定されていません
のエラーが出て、デバックでは以下が示されました。
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
ちなみに、転記先シート名はB2に値がA,B,C,Dのどれかだとして、
情報入力（A）、情報入力（B）、情報入力（C）、情報入力（D）、
検査結果（A）、検査結果（B）、検査結果（C）、検査結果（D）
上記を
'振り分けする転記先のシート名、並び変えたい順番に左から記入
snm = Array（上記８つのシート名）にしているのですが、
そここは問題ないですよね？
列見出はツールより復元しております。
いろいろと試したいと思います。
（f） 2019/02/21(木) 13:40
（隠居じーさん） 2019/02/21(木) 14:01
（隠居じーさん） 2019/02/21(木) 14:08
"情報入力シート"
"検査シート"
"マスタ(都道府県)"
"マスタ(管理)"
なにかわかりましたらまたアップします。
m(__)m
（隠居じーさん） 2019/02/21(木) 14:30
勘違いしておりました。
承知いたしました。
シート名の精査行います。
ありがとうございます。
（f） 2019/02/21(木) 15:55
次は
With sh2
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
の部分にデバックが示されました。
エラーは同じく
オブジェクト変数または with ブロック変数が設定されていません
です。
引き続き、シート名の精査を行いたいと思います。
（f） 2019/02/21(木) 16:32
（隠居じーさん） 2019/02/21(木) 17:05
（隠居じーさん） 2019/02/21(木) 17:10
\\\\\\\\\\\\\\\\\\\
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")"
SsortA(n) = "情報入力シート(" & Snmstr & ")"
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
sh2.Rows(6).Delete
End If
ReDim Preserve SsortA(n)
SsortA(n) = sh2.Name
n = n + 1
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = "検査シート(" & Snmstr & ")"
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
sh3.Range(sh3.Rows(1), sh3.Rows(2)).Clear
End If
ReDim Preserve SsortB(N2)
SsortB(N2) = sh3.Name
N2 = N2 + 1
On Error GoTo 0
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
上記部分の
BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")"
SsortA(n) = "情報入力シート(" & Snmstr & ")"
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
らへんは、転記元シートのことですよね？？
転記元シートのシート名は情報入力シート、検査シートで固定なので、
(" & Snmstr & ")はいらない気がしますが、間違いでしょうか？（もし、上の方で説明ミスがあったらごめんなさい）。
それを直したら動きましたが
また、お伝えできていなかったのですが、
転記先のファイルには下記の８つのシート以外に、
"出力メニュー"というシートが一番左にあり、そのシートに注意事項とボタンを配置してこのマクロを実行させようとしておりました。
現在、そのシートにすべて転記されてします。
という状況なので、どこかいじらなければいけないですよね（振り分けができてない状況です）。
転記先シート
―---------------------------------―ーーーーーー
転記先シート名はB2に値がA,B,C,Dのどれかだとして、
情報入力（A）、情報入力（B）、情報入力（C）、情報入力（D）、
検査結果（A）、検査結果（B）、検査結果（C）、検査結果（D）
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
上記＋出力メニューシートという状況です。
以上、よろしくお願いいたします。
（f） 2019/02/21(木) 17:27
上記についてお忘れください（説明間違いです。出力シートは本当に存在しています。）
少し、いろいろいじってみたいと思います。
（f） 2019/02/21(木) 17:32
上記についてお忘れください（説明間違いです。出力シートは本当に存在しています。）
少し、いろいろいじってみたいと思います。
（f） 2019/02/21(木) 17:32
（f） 2019/02/21(木) 17:27で
お尋ねの件は逆です。
そこで書込みシートを自動で作成しています。
あればそのまま使い無ければ作成します。
初期状態は列見出シートのみ存在すればＯＫです
更新をせんたくしても、キャンセルでも
他のシートが有ってもいけるはずなのですが。
更新の場合
削除対象は
検査シート(Ａ〜Ｅ)
情報入力シート(Ａ〜Ｅ)
です
それ以外は削除致しません。
変更されたコードをさしつかえなければ
アップいただくと何か判明するかもです。
最下層の書込み２プロシジャーは省いて
いただいて。長くなって見づらいとおも
いますので。
多分全てのトラブル要因はシート名かと。。。
あくまで予想ですが。。。
こちらでは結構快適にうごいてくれているのですが。
なにかテスト環境に相違点があるのでしょうね。
でわ
（隠居じーさん） 2019/02/21(木) 18:07
（隠居じーさん） 2019/02/21(木) 19:04
すこし、あわてて、作りましたので、途中、ロジックの変更もあり 無駄な部分やシート作成部分、並び替え部分に不備が有るかもしれません。 再チェックしてますので。暫くお待ちくださいね。 m(_ _)m
（隠居じーさん） 2019/02/21(木) 20:13
いつもありがとうございます。
またいと思い、こちらの回答が遅れ申し訳ございません。
とりあえず、列見出し以外のシートを削除して、
Set BB = Workbooks(BaseBookName)
のところでエラーがでてしましました。
私の設定等がもしかしたら悪いのかもしれません。
お忙しい中ご対応ありがとうございます。
（f） 2019/02/21(木) 20:22
コードの一番最初
＞＞'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。
＞＞ Const BaseBookName As String = "データ転記.xlsm"
↑
ここ、実際にマクロ貼り付けているＢＯＯＫ名に変えていただいていますでしょうか。
（隠居じーさん） 2019/02/21(木) 20:27
検証Man参上！！！いや、SoulMan？参上！！！(おっさん、、その振りはもうええから、、はよ！本題にいかんかえ！はい！わかりました。m(__)m ぼけないとしゃべれないという関西人特有の(笑)））
冗談は、さておき↓こんなものが出てきましたです。はい！！
私には、全然、、わかりませんが、、素晴らしい限りでございます。参りました。感服致しました。
情報入力シート(データ１) データ１ 81 データ転記.xlsm データ１ 管理者名 データ３ データ４ データ５ データ６ データ７ データ８ 和歌山県 岩出市 番地 データ９ データ10 データ11 データ１２ データ１３ データ１４ データ１５ データ１６ データ１７ データ１８ データ１９ データ２０ データ２１ データ22 データ２３ データ２４ データ25 データ２５ データ２６ データ２８ データ２９ データ３０ データ３１ データ３２ データ３３ データ３４ データ３５ データ３６ データ37 データ３８ データ３９ データ４０ データ４１ データ４２ データ４３ データ４４ データ４５ データ４６ データ４７ データ４８ データ４９ データ５０ データ５１ データ５２ データ５３ データ５４ データ５４ データ５６ データ５７ データ５９ データ５０ 001428 和歌山県岩出市 データ10 データ11
検査シート(データ１) データ１ 81 データ転記.xlsm データ１ 管理者名 データ３ データ４ データ５
以上、、ご報告まで！！！ （SoulMan） 2019/02/21(木) 20:37
SoulManさま 。。。 いつもすみません。(*^^*) ご検証、ありがとうございます。 お時間をおさき戴き、感謝いたします。 お師匠様のツール無しでは、できませんでしたですよ。いいな〜 わたしもいま似たようなのを自作しようかなと。。。お師匠様のコードと 半平太先生のコードにらんでいるのですが。前途多難です。 でわ、また m(_ _)m
（隠居じーさん） 2019/02/21(木) 21:00
隠居じーさん さん 様 は、よしましょうよ(笑)
>お時間をおさき戴き、感謝いたします。
時間なんかとってませんよ。。ほんの１、２分です。
F8を押して黄色くなったら、、なんでだろう？？→修正→
2、3回繰り返しただけです。。。まぁ、、これくらいはしないと、、、猫踏んじゃった！！！です。
どうもお疲れさまでした。m(__)m
また、週末にあばれましょうぞ！！！！
では、では、、 （SoulMan） 2019/02/21(木) 21:10
隠居じーさん様
すみません。昨日投稿したつもりが出来てませんでした。
ブック名は実際にマクロ貼り付けているＢＯＯＫ名に変えている状況です。
今まで私の回答、テストが遅れている状況できたが、土日は時間が取れるのでじっくり調べていこうと思います。
（f） 2019/02/22(金) 11:08
fさん おはようございます。 ＾＾ 了解いたしました。 昨日、すこし整理してみました。 １．新規ＢＯＯＫにソースコードをコピペ、コードの先頭部分を保存したファイル名に変更 ２．列見出、シートを作成 は変わりません。
変更詳細 1.振分コード部分にA 〜 E 以外が入力されていれば結果的にエラー処理（やり直し）する。 2.作成シート名は８個に固定 3.シートの並び替えを修正 4.シートの削除を修正 5.情報入力、検査、双方の書込み時、振分コード、ファイル名、管理者、をキーとして 重複は上書き、その他は追加書込みを追加 6.両、書込みプロシジャーをコンパクトに整理 以上です。書込み位置に関する部分を修正（変更はしていませんが）の為 再度、情報の確認が必要です。１００ファイル位でしたら、そんなに時間は かからないと思います。 本日はこれから出かけますので、夕方までは閉局となります。 でわ とりあえずデーター書込み優先で作成したもので、 説明不足でご迷惑をおかけしたかもしれませんね。 すみませんでした。 m(_ _)m でわ
Option Explicit
Sub 転記_Ver3()
'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。
Const BaseBookName As String = "データ転記03.xlsm"
Dim fpath As String, fname As String
Dim WB As Workbook
Dim BB As Workbook
Rem 転記先 Write
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Rem 転記元 Read
Dim sh4 As Worksheet
Dim sh5 As Worksheet
Dim sh6 As Worksheet
Dim sh7 As Worksheet
Dim Jr As Range
Dim Mtr As Range
Dim Mkr As Range
Dim snm2
Dim Snmstr As String
Dim i As Long
Dim j As Long
Dim y As Long
Dim y2 As Long
Dim ry As Long
Dim ry2 As Long
Dim lr As Long
Dim lr2 As Long
Dim t
Dim cnt As Long
Dim tmpary()
Dim w_flg As Boolean
t = Timer
'振り分けする転記先のシート名、並び変えたい順番に左から記入
snm2 = Array("情報入力シート(A)", "情報入力シート(B)", _
"情報入力シート(C)", "情報入力シート(D)", _
"検査シート(A)", "検査シート(B)", _
"検査シート(C)", "検査シート(D)")
If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel) Then
Sheet_Delete snm2
End If
Set BB = Workbooks(BaseBookName)
fpath = BB.Path & "\転記元\"
Set sh1 = BB.Worksheets("列見出")
fname = Dir(fpath & "*.xls*"): cnt = 1
Application.ScreenUpdating = False
Do Until fname = ""
DoEvents
i = 0
If fname <> BB.Name Then
Set WB = Workbooks.Open(fpath & fname, UpdateLinks:=0)
Set sh4 = WB.Worksheets("情報入力シート")
Set sh5 = WB.Worksheets("検査シート")
Set sh6 = WB.Worksheets("マスタ(都道府県)")
Set sh7 = WB.Worksheets("マスタ(管理)")
Set Jr = sh4.UsedRange
Set Mtr = sh6.Range("C2").CurrentRegion
Set Mkr = sh7.Range("B2").CurrentRegion
Snmstr = Trim(sh4.Range("B2").Value)
'書込み先シート名をsh4.Range("B2")の値で振り分け処理
Snmstr = IIf(Snmstr = "E", "D", Snmstr)
If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then
MsgBox "シート名が設定されていません" & vbNewLine & _
"確認後設定してやり直してください。" & vbNewLine & _
WB.Name
For j = 1 To Windows.Count
If ActiveWorkbook.Name <> BaseBookName Then
ActiveWorkbook.Close False
End If
Next
Sheet_Delete snm2
Exit Sub
End If
On Error Resume Next
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")"
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
sh2.Range(sh2.Rows(3), sh2.Rows(15)).Delete
End If
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = "検査シート(" & Snmstr & ")"
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
sh3.Range(sh3.Rows(1), sh3.Rows(5)).Delete
End If
On Error GoTo 0
Rem 情報シート書出
With sh2
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr = IIf(lr < 3, 3, lr)
y = lr
For ry = 3 To lr
If (.Cells(ry, 1) = Snmstr) * (.Cells(ry, 3) = WB.Name) * _
(.Cells(ry, 5) = sh4.Range("F2").Value) Then
w_flg = True
Exit For
End If
Next
If w_flg Then
y = ry
w_flg = False
End If
Write_J y, sh2, sh4, WB
'シート名
.Cells(y, 1) = Snmstr
'BS列に地域コードを書込処理
For i = 2 To Mtr.Rows.Count
If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then
.Cells(y, "BS") = Mtr(i, 1)
End If
Next
'管理者コードを各B列書込処理
i = WorksheetFunction.Match(Jr(2, 6), Mkr.Rows(1), 0)
.Cells(y, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
Rem 検査シート書出
With sh3
lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr2 = IIf(lr2 < 7, 7, lr2)
y2 = lr2
For ry2 = 7 To lr2
If (.Cells(ry2, 1) = Snmstr) * (.Cells(ry2, 3) = WB.Name) * _
(.Cells(ry2, 5) = sh4.Range("F2").Value) Then
w_flg = True
Exit For
End If
Next
If w_flg Then
y2 = ry2
w_flg = False
End If
Write_K y2, sh3, sh4, sh5, WB
.Cells(y2, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
WB.Close SaveChanges:=False
End If
fname = Dir()
DoEvents
Application.StatusBar = Space(7) & "IN = " & Format(cnt, "0,0")
cnt = cnt + 1
Loop
ReDim tmpary(Worksheets.Count)
For i = 1 To Worksheets.Count
For j = 0 To UBound(snm2)
If Worksheets(i).Name = snm2(j) Then
tmpary(j) = Worksheets(i).Name
End If
Next
Next
For i = 0 To UBound(tmpary)
If tmpary(i) <> "" Then
Worksheets(tmpary(i)).Move after:=Worksheets(Worksheets.Count)
End If
Next
Application.ScreenUpdating = True
Application.StatusBar = ""
MsgBox "作業完了。所要時間、単位秒 ＝ " & Format(Timer - t, "0.0 秒")
End Sub
Private Sub Sheet_Delete(ByVal snm2 As Variant)
Dim i As Long
Dim j As Long
Dim tmpary()
Application.DisplayAlerts = False
ReDim tmpary(Worksheets.Count)
For i = 1 To Worksheets.Count
For j = 0 To UBound(snm2)
If Worksheets(i).Name = snm2(j) Then
tmpary(j) = Worksheets(i).Name
End If
Next
Next
For i = 0 To UBound(tmpary)
If tmpary(i) <> "" Then
Worksheets(tmpary(i)).Delete
End If
Next
Application.DisplayAlerts = True
End Sub
Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook)
'sh2 = 情報入力シート,sh4 = 検査シート?
Dim myad1
Dim myad2
Dim i&
myad1 = Array("A", "D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _
"U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", _
"AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", _
"AZ", "BA", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BK", "BL", "BM", "BN", _
"BO", "BP", "BR", "BT", "BU", "BV")
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _
"H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _
"B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _
"H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _
"I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _
"B6", "E6")
With ws
.Range("C" & y) = WB.Name
For i = 0 To UBound(myad1)
.Range(myad1(i) & y) = sh2.Range(myad2(i)).Value
DoEvents
Next
End With
Rem（f） 2019/02/20(水) 11:05
End Sub
Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, WB As Workbook)
Dim myad1
Dim myad2
Dim buf
Dim buf2
Dim i&
Rem 'sh2 = 検査シート, sh4 = 情報入力シート
'*************************************************
myad1 = Array("A", "D", "E", "F", "G", "H")
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2")
'*************************************************
buf = Array("J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ", "BA", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BK", "BL", "BM", "BN", "BO", "BP", "BQ", "BR", "BS", "BT", "BU", "BV", "BW", "BX", "BY", "BZ", "CA", "CB", "CC", "CD", "CE", "CF", "CG", "CH", "CI", "CJ", "CK", "CL", "CM", "CN", "CO", "CP", "CQ", "CR", "CS", "CT", "CU", "CV", "CW", "CX", "CY", "CZ", "DA", "DB", "DC", "DD", "DE", "DF", "DG", "DH", "DI", "DJ", "DK", "DL", "DM", "DN", "DO", "DP", "DQ", "DR", "DS", "DT", "DU", "DV", "DW", "DX", "DY", "DZ", _
"EA", "EB", "EC", "ED", "EE", "EF", "EG", "EH", "EI", "EJ", "EK", "EL", "EM", "EN", "EO", "EP", "EQ", "ER", "ES", "ET", "EU", "EV", "EW", "EX", "EY", "EZ", "FA", "FB", "FC", "FD", "FE", "FF", "FG", "FH", "FI", "FJ", "FK", "FL", "FM", "FN", "FO", "FP", "FQ", "FR", "FS", "FT", "FU", "FV", "FW", "FX", "FY", "FZ", "GA", "GB", "GC", "GD", "GE", "GF", "GG", "GH", "GI", "GJ", "GK", "GL", "GM", "GN", "GO", "GP", "GQ", "GR", "GS", "GT", "GU", "GV", "GW", "GX", "GY", "GZ", "HA", "HB", "HC", "HD", "HE", "HF", "HG", "HH", "HI", "HJ", "HK", "HL", "HM", "HN", "HO", "HP", "HQ", "HR", "HS", "HT", "HU", "HV", "HW", "HX", "HY", "HZ", _
"IA", "IB", "IC", "ID", "IE", "IF", "IG", "IH", "II", "IJ", "IK", "IL", "IM", "IN", "IO", "IP", "IQ", "IR", "IS", "IT", "IU", "IV", "IW", "IX", "IY", "IZ", "JA", "JB", "JC", "JD", "JE", "JF", "JG", "JH", "JI", "JJ", "JK", "JL", "JM", "JN", "JO", "JP", "JQ", "JR", "JS", "JT", "JU", "JV", "JW", "JX", "JY", "JZ", "KA", "KB", "KC", "KD", "KE", "KF", "KG", "KH", "KI", "KJ", "KK", "KL", "KM", "KN", "KO", "KP", "KQ", "KR", "KS", "KT", "KU", "KV", "KW", "KX", "KY", "KZ", "LA", "LB", "LC", "LD", "LE", "LF", "LG", "LH", "LI", "LJ", "LK", "LL", "LM", "LN", "LO", "LP", "LQ", "LR", "LS", "LT", "LU", "LV", "LW", "LX", "LY", "LZ", "MA", "MB", "MC", "MD", "ME", "MF", "MG", "MH", "MI", "MJ", "MK", "ML", "MM", "MN", "MO", "MP", "MQ", "MR", "MS", "MT", "MU", "MV", "MW", "MX", "MY", "MZ", _
"NA", "NB", "NC", "ND", "NE", "NF", "NG", "NH", "NI", "NJ", "NK", "NL", "NM", "NN", "NO", "NP", "NQ", "NR", "NS", "NT", "NU", "NV", "NW", "NX", "NY", "NZ", "OA", "OB", "OC", "OD", "OE", "OF", "OG", "OH", "OI", "OJ", "OK", "OL", "OM", "ON", "OO", "OP", "OQ", "OR", "OS", "OT", "OU", "OV", "OW", "OX", "OY", "OZ", "PA", "PB", "PC", "PD", "PE", "PF", "PG", "PH", "PI", "PJ", "PK", "PL", "PM", "PN", "PO", "PP", "PQ", "PR", "PS", "PT", "PU", "PV", "PW", "PX", "PY", "PZ", "QA", "QB", "QC", "QD", "QE", "QF", "QG", "QH", "QI", "QJ", "QK", "QL", "QM", "QN", "QO", "QP", "QQ", "QR", "QS", "QT", "QU", "QV", "QW", "QX", "QY", "QZ", _
"RA", "RB", "RC", "RD", "RE", "RF", "RG", "RH", "RI", "RJ", "RK", "RL", "RM", "RN", "RO", "RP", "RQ", "RR", "RS", "RT", "RU", "RV", "RW", "RX", "RY", "RZ", "SA", "SB", "SC", "SD", "SE", "SF", "SG", "SH", "SI", "SJ", "SK", "SL", "SM", "SN", "SO", "SP", "SQ", "SR", "SS", "ST", "SU", "SV", "SW", "SX", "SY", "SZ", "TA", "TB", "TC", "TD", "TE", "TF", "TG", "TH", "TI", "TJ", "TK", "TL", "TM", "TN", "TO", "TP", "TQ", "TR", "TS", "TT", "TU", "TV", "TW", "TX", "TY", "TZ", "UA", "UB", "UC", "UD", "UE", "UF", "UG", "UH", "UI", "UJ", "UK", "UL", "UM", "UN", "UO", "UP", "UQ", "UR", "US", "UT", "UU", "UV", "UW", "UX", "UY", "UZ", _
"VA", "VB", "VC", "VD", "VE", "VF", "VG", "VH", "VI", "VJ", "VK", "VL", "VM", "VN", "VO", "VP", "VQ", "VR", "VS", "VT", "VU", "VV", "VW", "VX", "VY", "VZ", "WA", "WB", "WC", "WD", "WE", "WF", "WG", "WH", "WI", "WJ", "WK", "WL", "WM", "WN", "WO", "WP", "WQ", "WR", "WS", "WT", "WU", "WV", "WW", "WX", "WY", "WZ", "XA", "XB", "XC", "XD", "XE", "XF", "XG", "XH", "XI", "XJ", "XK", "XL", "XM", "XN", "XO", "XP", "XQ", "XR", "XS", "XT", "XU", "XV", "XW", "XX", "XY", "XZ", "YA", "YB", "YC", "YD", "YE", "YF", "YG", "YH", "YI", "YJ", "YK", "YL", "YM", "YN", "YO", "YP", "YQ", "YR", "YS", "YT", "YU", "YV", "YW", "YX", "YY", "YZ", "ZA", "ZB", "ZC", "ZD", "ZE", "ZF", "ZG", "ZH", "ZI", "ZJ", "ZK", "ZL", "ZM", "ZN", "ZO", "ZP", "ZQ", "ZR", "ZS", "ZT", "ZU", "ZV", "ZW")
buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _
"E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _
"H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _
"I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _
"L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _
"M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _
"N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _
"M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49")
'**************************************************
With ws
.Range("C" & y2).Value = WB.Name
For i = 0 To UBound(myad1)
.Range(myad1(i) & y2) = sh4.Range(myad2(i)).Value
DoEvents
Next
For i = 0 To UBound(buf)
.Range(buf(i) & y2) = sh2.Range(buf2(i)).Value
DoEvents
Next
'***********************************************************************************************
End With
End Sub
（隠居じーさん） 2019/02/22(金) 11:21
処理速度の件っす (*^^*)、
けっして
情報確認に掛かる所要時間のことではありません
(￣▽￣)
でわ
（隠居じーさん） 2019/02/22(金) 11:26
ご対応ありがとうございます。
平日はなかなか時間が取れず申し訳ございません。
作成コードに関して、できるだけ早いうちに確認し、報告させていただきます。
以上、よろしくお願いいたします。
（f） 2019/02/22(金) 11:34
どうも↓ここを +1 するか ReDim tmpary(Worksheets.Count + 1)
こっちを -1 するかしないとExcelが怒る様な気がします。。。。 tmpary(j - 1) = Worksheets(i).Name
間違っていましたらすみません。m(__)m （SoulMan） 2019/02/22(金) 13:58
こんにちは ＾＾ ありがとうございますぅ〜〜〜〜 m(_ _)m 早速、確認、確認。。。。( ..)φメモメモ いま 歯医者さん。いっていました。歯石のおそうじ。。。 ｗｗｗいたかったぁぁあああ。 ← どうでもいい！。 はい。すんまそ（笑） ただちに デバッグ開始！ (￣▽￣) またお願いいたします。 m(_ _)m （隠居じーさん） 2019/02/22(金) 16:02
こんにちは ＾＾ いまながめているのですが。。。。確かに、不安要素が、 シートの数がsnm2の最大要素数より少ないとき。 最大要素数のシート名が何らかの理由で存在すれば エクセル様にどやされそぉですね。。。。(/_;) Soulmanさん。すみません。 解決策ですが 専用要素カウンター別でもうけて Redim Preserve で必要数だけ確保するか もしくはsnm2の最大要素数確保 もしくは 余分に気前よく50くらい ＾＾； ←これは冗談としても。＾＾ありかも ということでしょうか
（隠居じーさん） 2019/02/22(金) 16:49
すみません。
全体をつかめていませんので、、なんともなんですが、、、
取り敢えず、、検証Manとしましては、、、必要最小限のBook(一つ）で試しましたら
怒られましたので、、、ご報告しました次第です。(^^;
下限が、、0 から始まるのと 1 から始めるとの違いかと思いましたが、、、
入れ物は、、余分目でもいいかもしれませんね？邪魔にならないのであれば、、、 （SoulMan） 2019/02/22(金) 16:59
SoulManさん。。。ありがとうございます。両方で間違えてるかもですね。 ありがとうございました、テストして修正版、アップ致します。 。。。ほんと、助かりますわぁ〜 (*^^*)ｖ m(_ _)m
（隠居じーさん） 2019/02/22(金) 17:12
ありがとうございます。
皆様の高度なコードになかなｋついていけません。。。笑
やってもらってばかりで本当に申し訳ないので、質問している間に進めていた、シートの振り分け部分について私なりにですが書いてみました。単純ですが、振り分け部分はこれでも行ける気がしました。
ちなみに現在、 fpath = ThisWorkbook.Path & "\転記元\"のファイルを対象にしているのですが、このフォルダをユーザに選択させることはできますでしょうか？（ウインドみたいなやつを表示させて、デスクトップのフォルダを選択など）
また、xlsxだけではなくxlsも対象にしたい場合、以下で問題ないでしょうか
fname = Dir(fpath & "*.xls", vbNormal)
Sub 取り込み()
If MsgBox("取り込みを行います。" & vbCrLf & "よろしいですか？ ", vbOKCancel, "取り込み") = vbOK Then
Application.ScreenUpdating = False
fpath = ThisWorkbook.Path & "\転記元\"
fname = Dir(fpath & "*.xls", vbNormal)
Do Until fname = ""
Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0)
With sh2
'B2 によって、処理を分ける
Select Case .Range("B2").Value
Case "A"
Call 取り込みマクロ情報入力A
Case "D", "E"
Call 取り込みマクロ情報入力DE
Case "B"
' Call 取り込みマクロ情報入力B
Case "C"
' Call 取り込みマクロ情報入力C
End Select
End With
fname = Dir()
Loop
Application.ScreenUpdating = True
End If
End Sub
以下、情報入力A〜D,検査A〜D
（ｆ） 2019/02/22(金) 17:16
ちょっと話が前後しますが、、すみません。
私がよくやるには IF で分岐して 最大値なら 最大値 とかでしょうか？？？
見当違いでしたらすみません。m(__)m （SoulMan） 2019/02/22(金) 17:19
むかぁ〜〜し！こんな↓コードかいてますねぇ(^^;
ぐぐれば他にも沢山ありますよ？ [[20070314165615]] （SoulMan） 2019/02/22(金) 17:36
SoulManさんありがとうございます。 参考にさせていただきます。 いや〜、書き出し部分にしても、セルの端、左右上下、 情報の読込みに関しても、読み残しや、読み込みすぎ など、境い目といいますか角といいますかイレギュラーな事になる 確率が高いですね。 処理にはきを付けないと。。。とは 思っているのですが、ついつい、おろそかに なってしまいます。急がば回れとでもいいますか。 大変勉強になります。 m(_ _)m fさん、 ファイルダイアログ、といううのが有ったように思いますよ。 検索して調べてみて下さい。 上記の部分に関しては、後で書き換えて、その時、お知らせしますね。 では、頑張ってください。
（隠居じーさん） 2019/02/22(金) 17:55
こんばんわ ＾＾ シートの並び替え、シートの削除 の各コード部分を下記の様に書き換えて下さい ８個、固定のシート名を調べて配列に格納する部分です
ReDim tmpary(UBound(snm2) + 1)
For i = 1 To Worksheets.Count
For j = 0 To UBound(snm2)
If Worksheets(i).Name = snm2(j) Then
tmpary(j) = Worksheets(i).Name
End If
Next
Next
シートのカウンターと
配列snm2の要素カウンターとは分けてあり
配列snm2とtmparyがどうきされますので、
これでよろしいかと。。。。思います。です。(*_*; ← ほんとかな？
という事で宜しくお願い致します。私の作成コードで何かありましたら
またご一報頂ければ、出来る範囲で ← 重要 ＾＾；
対応させていただきます。でわ
m(_ _)m
（隠居じーさん） 2019/02/22(金) 18:26
ばっちり！！！でございます。 （SoulMan） 2019/02/22(金) 18:31
はは〜〜〜m(_ _)m ありがとうございました。
[[20070314165615]]
試して見ました。 すごいですね こんなことも出来るのですね。(*^^*)ｖ
（隠居じーさん） 2019/02/22(金) 18:46
お世話になっております。ご対応ありがとうございます。
ファイルダイアログについて調べたら、こちらの方がユーザにとっては使いやすいのかなと思いました。
組み込んでみたいと思います。
（ｆ） 2019/02/25(月) 10:53
（ACA） 2019/02/25(月) 16:49
こんばんは ＾＾ ＞＞作成コードに関して、できるだけ早いうちに確認し、報告させていただきます。 の方はどうでしたでせうか。。。お待ちしているあいだに。。。何かどんどん。 完成後のお話の方に。。。 何の参考にも、ならなかったかもしれませんが。ご自作のコードで完成された 様にもお見受けいたしますので。もしそうであれば、大変良い事だと存じますので これで、私は失礼致します。 動いたのかどうか。（データーの内容が違うのは、一番お詳しいｆさんに お願いしなければしょうがないとしましても）だけでも 教えていただけますでしょうか。 ↑ 動いてなければ、ガ〜ン w(◎o×)w！。。。すみませんでした。m(__)m でわ
（隠居じーさん） 2019/02/25(月) 18:28
>プロシージャが大きすぎますと出てしまいますね。。
これは、部分的にコメントして、、細々走らせました。(^^;
>動いてなければ、ガ〜ン w(◎o×)w！。。。すみませんでした。m(__)m でわ
検証Manとして、、ばっちりです！！！ （SoulMan） 2019/02/25(月) 20:33
SoulManさん こんばんは。。。(^^)/ たびたびの、ご検証、有難う御座います。。。 いや〜もう、ほんとうに、申し訳ございません。 感謝、感謝です。 でわ、また m(__)m
（隠居じーさん） 2019/02/25(月) 20:54
以上、よろしくお願いいたします。
（ACA） 2019/02/25(月) 21:11
こんばんは ＾＾ ACAさん、とｆさんって。。。同じ方ですか？ （・。・）？ 当初のご予定と幾分、相違点があるようですが。 ま、いろいろ、ご事情もあるのでしょうね。 ＞＞プロシージャが大きすぎますと出てしまいますね。。 単純に考えればですが ＾＾； に関しましては。そのプロシジャ〜を分割してしまえば、すむお話ではないでしょうか。 三個くらいに分けて、順番に呼び出す？ いづれにしましても、変更されたコードを拝見しなければ何とも申し上げられません。 最初にも申し上げましたが、かなりVBAはお詳しいようですので 今後の処理につきましてはお困りの箇所を随時、簡単なエクセル の表、型式とコードも可能な限りご提示の上で（サンプルでもOK） アップいただくと、私だけでなく様々な方から適切なアドバイスが 多数あると思います。 勿論私も、できる限り参加致します。 わたしが作成したコードを分けろ、という事でしたらお知らせください 分解致します。＾＾； でわ （隠居じーさん） 2019/02/25(月) 23:07
おはようございます ＾＾
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
分解せずに済む方法。
１．アプリケーションカーラ（コーラー？。。。叱られてるみたい＾＾；）を使う
２．１．とほぼ同じですが、本体を変更して一つのプロシジャーで処理！
でしょうか。勘違いでしたらすみません。
とりあえず、私ならこうしたかも。。。というのをアップ致します。
何か参考にでも。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
１．Private Sub 転記_Ver6BTN(ByVal X As String)
の、Const BaseBookName As String = "データ転記06BTN.xlsm"、は
このマクロが有る転記先のBOOK名です｡実物の名前に変えて下さい｡
２．シート、列見出 、を作成してください。
３．シート、menu 、（空）を作成してください
４．Private Sub Workbook_Open()から kaisi を呼ぶと便利です。
５．処理高速化の為、情報の書込みルーチンも修正していますので
情報の再チェックは必須です。＾＾；。。。m(__)m
６．menu シートに他のシェープを追加すれば誤作動する可能性が
あります。（何もしなければ関係はありません）
７．ボタンの表示はPrivate Sub btn_maker()の
.Characters.Text = "BTN"
の "BTN" を変えて下さい。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
Sub kaisi()
With Worksheets("menu")
If .Shapes.Count = 0 Then
btn_maker
End If
.Activate
End With
End Sub
Private Sub btn_maker()
Dim br As Range
Set br = Worksheets("menu").Range("F3:G4")
With Worksheets("menu").Buttons.Add(br.Left, br.Top, br.Width, br.Height)
.OnAction = "Choice_Sh"
.Characters.Text = "BTN"
End With
End Sub
Private Sub Choice_Sh()
Dim ss As String
ss = Application.InputBox("", "", , , , , , 2)
If ss = "False" Or ss = "" Then Exit Sub
If ss <> "A" And ss <> "B" And ss <> "C" And ss <> "D" And ss <> "E" Then
Exit Sub
End If
転記_Ver6BTN ss
End Sub
Private Sub 転記_Ver6BTN(ByVal X As String)
'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。
Const BaseBookName As String = "データ転記06BTN.xlsm"
Dim fpath As String, fname As String
Dim WB As Workbook
Dim BB As Workbook
Rem 転記先 Write
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Rem 転記元 Read
Dim sh4 As Worksheet
Dim sh5 As Worksheet
Dim sh6 As Worksheet
Dim sh7 As Worksheet
Dim Jr
Dim Mtr
Dim Mkr
Dim snm2
Dim Snmstr As String
Dim i As Long
Dim j As Long
Dim y As Long
Dim y2 As Long
Dim ry As Long
Dim ry2 As Long
Dim lr As Long
Dim lr2 As Long
Dim t
Dim cnt As Long
Dim tmpary()
Dim w_flg As Boolean
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
t = Timer
'振り分けする転記先のシート名、並び変えたい順番に左から記入
snm2 = Array("情報入力シート(A)", "情報入力シート(B)", _
"情報入力シート(C)", "情報入力シート(D)", _
"検査シート(A)", "検査シート(B)", _
"検査シート(C)", "検査シート(D)")
If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel) Then
Sheet_Delete snm2
End If
Set BB = Workbooks(BaseBookName)
fpath = BB.Path & "\転記元\"
Set sh1 = BB.Worksheets("列見出")
fname = Dir(fpath & "*.xls*"): cnt = 1
Do Until fname = ""
DoEvents
If fname <> BB.Name Then
Set WB = Workbooks.Open(fpath & fname, UpdateLinks:=0)
'ActiveWindow.Visible = False
Set sh4 = WB.Worksheets("情報入力シート")
Set sh5 = WB.Worksheets("検査シート")
Set sh6 = WB.Worksheets("マスタ(都道府県)")
Set sh7 = WB.Worksheets("マスタ(管理)")
Jr = sh4.UsedRange
Mtr = sh6.Range("C2").CurrentRegion
Mkr = Intersect(sh7.Range("C:L"), sh7.Range("B2").CurrentRegion.Rows(1))
Snmstr = Trim(sh4.Range("B2").Value)
Select Case X
Case "A", "B", "C"
If Snmstr <> X Then
WB.Close False
GoTo step1
End If
Case "D", "E"
If Snmstr <> "D" And Snmstr <> "E" Then
WB.Close False
GoTo step1
End If
End Select
'書込み先シート名をsh4.Range("B2")の値で振り分け処理
Snmstr = IIf(Snmstr = "E", "D", Snmstr)
If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then
MsgBox "シート名が設定されていません" & vbNewLine & _
"確認後設定してやり直してください。" & vbNewLine & _
WB.Name
For j = 1 To Windows.Count
If ActiveWorkbook.Name <> BaseBookName Then
ActiveWorkbook.Close False
End If
Next
Sheet_Delete snm2
For_End_Proc
Exit Sub
End If
On Error Resume Next
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")"
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
sh2.Range(sh2.Rows(3), sh2.Rows(15)).Delete
End If
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = "検査シート(" & Snmstr & ")"
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
sh3.Range(sh3.Rows(1), sh3.Rows(5)).Delete
End If
On Error GoTo 0
Rem 情報シート書出
With sh2
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr = IIf(lr < 3, 3, lr)
y = lr
For ry = 3 To lr
If (.Cells(ry, 1) = Snmstr) * (.Cells(ry, 3) = WB.Name) * _
(.Cells(ry, 5) = sh4.Range("F2").Value) Then
w_flg = True
Exit For
End If
Next
If w_flg Then
y = ry
w_flg = False
End If
Write_J y, sh2, sh4, WB
'シート名
.Cells(y, 1) = Snmstr
'BS列に地域コードを書込処理
For i = 2 To UBound(Mtr, 1)
If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then
.Cells(y, "BS") = Mtr(i, 1)
End If
Next
'管理者コードを各B列書込処理
i = WorksheetFunction.Match(Jr(2, 6), Mkr, 0)
.Cells(y, "B") = Mkr(1, i)
.UsedRange.EntireColumn.AutoFit
End With
Rem 検査シート書出
With sh3
lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr2 = IIf(lr2 < 7, 7, lr2)
y2 = lr2
For ry2 = 7 To lr2
If (.Cells(ry2, 1) = Snmstr) * (.Cells(ry2, 3) = WB.Name) * _
(.Cells(ry2, 5) = sh4.Range("F2").Value) Then
w_flg = True
Exit For
End If
Next
If w_flg Then
y2 = ry2
w_flg = False
End If
Write_K y2, sh3, sh4, sh5, WB
.Cells(y2, "B") = Mkr(1, i)
.UsedRange.EntireColumn.AutoFit
End With
WB.Close SaveChanges:=False
End If
step1:
fname = Dir()
DoEvents
Application.StatusBar = Space(7) & "IN = " & Format(cnt, "0,0")
cnt = cnt + 1
Loop
ReDim tmpary(UBound(snm2) + 1)
For i = 1 To Worksheets.Count
For j = 0 To UBound(snm2)
If Worksheets(i).Name = snm2(j) Then
tmpary(j) = Worksheets(i).Name
End If
Next
Next
For i = 0 To UBound(tmpary)
If tmpary(i) <> "" Then
Worksheets(tmpary(i)).Move after:=Worksheets(Worksheets.Count)
End If
Next
For_End_Proc
MsgBox "作業完了。所要時間、単位秒 ＝ " & Format(Timer - t, "0.0 秒")
End Sub
Private Sub Sheet_Delete(ByVal snm2 As Variant)
Dim i As Long
Dim j As Long
Dim tmpary()
Application.DisplayAlerts = False
ReDim tmpary(UBound(snm2) + 1)
For i = 1 To Worksheets.Count
For j = 0 To UBound(snm2)
If Worksheets(i).Name = snm2(j) Then
tmpary(j) = Worksheets(i).Name
End If
Next
Next
For i = 0 To UBound(tmpary)
If tmpary(i) <> "" Then
Worksheets(tmpary(i)).Delete
End If
Next
Application.DisplayAlerts = True
End Sub
Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook)
'sh2 = 情報入力シート,sh4 = 検査シート?
Dim buffer(1 To 74)
Dim rbuf
Dim tr As Range
Dim myad2
Dim i As Long
Dim j As Long
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _
"H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _
"B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _
"H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _
"I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _
"B6", "E6")
With ws
For i = 1 To UBound(buffer)
If i = 2 Or i = 3 Or i = 9 Or i = 68 Then GoTo step1
buffer(i) = sh2.Range(myad2(j)).Value
j = j + 1
step1:
Next
buffer(3) = WB.Name
.Cells(y, 1).Resize(, UBound(buffer)) = buffer
End With
End Sub
Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, WB As Workbook)
Dim myad2
Dim buf
Dim buf2
Dim i&, j&, K&, l&
Dim buffer(1 To 699)
Rem 'sh2 = 検査シート, sh4 = 情報入力シート
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2")
buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _
"E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _
"H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _
"I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _
"L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _
"M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _
"N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _
"M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49")
With ws
For i = 1 To UBound(buffer)
If i <= 9 Then
Select Case i
Case 1, 4 To 8
buffer(i) = sh4.Range(myad2(j)).Value
j = j + 1
End Select
ElseIf i > 9 Then
buffer(i) = sh2.Range(buf2(K)).Value
K = K + 1
End If
DoEvents
Next
buffer(3) = WB.Name
.Cells(y2, 1).Resize(, UBound(buffer)) = buffer
End With
End Sub
Private Sub For_End_Proc()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.StatusBar = ""
End With
End Sub
（隠居じーさん） 2019/02/26(火) 07:29
失礼いたしました。Private Sub Choice_Sh() の
ss = Application.InputBox("", "", , , , , , 2)
↑ここ
A〜E （半角、大文字）を入力して下さい
に してください。エラー処理まではまだしてません。。。m(__)m でわ （隠居じーさん） 2019/02/26(火) 08:06
おはようございます。＾＾ お話の続きですが。ここらへんで一度整理をしていただいて。 あとは、処理対象フォルダの選択機能の追加くらいでしょうか （隠居じーさん） 2019/02/26(火) 09:53
プロシージャは分けてそこはクリアすることはできました。
課題としてはファイル名の重複チェックでしょうか。
（ACA） 2019/02/26(火) 10:35
＞＞課題としてはファイル名の重複チェックでしょうか。 はい。 あ。。。うまく書込みできていませんでしたか？ 確認致しますね。 （隠居じーさん） 2019/02/26(火) 11:27
違うフォルダに同一ファイル名があるとか、同じフォルダでも一回目と二回目と 中身入れ替えた時とか、想定されますが 新規の場合は、同一フォルダ内に同じファイルは存在出来ないと思いますので。 更新するかどうか聞くポップが出ると思うのですがキャンンセルを選んでいただくと｡ ファイル名、管理者、パターン（A〜E）をキーとして追加、上書きが出来るとおもいま す。このキーを増減調整すればいろいろ可能かとOKを選択すれば過去の情報を削除後､ 新規作成としています｡確認したところ正常に動作しているようです｡他に何か機能を 追加するのでしょうか｡重複ファイルは一斉､認めないということでしたら｡最新版で恐 怖の禁断のgoto文を使用してしまいました。これ、使えば簡単に、同じく読み飛ばしは 可能かと一か所くらいなら大丈夫かとおもいます。。。。。＾＾； でわ （隠居じーさん） 2019/02/26(火) 13:04
検証Manとしましては、、、見出し列以降を実行しますと、、
問題なく、、Msgboxがでてきましたが、、、何も変化がない様にも思いますけど、、
何かを見落としているんでしょうね(^^;
現在の状況を完全に見失っています(*´ω｀*)
ひょっとして現在は、待て の状態でしょうか？？？
To 隠居じーさん さんへ
土筆ですよぉ、、、あれから一年ですね。早いですね。。
これからもよろしくお願いします。。。m(__)m （SoulMan） 2019/02/26(火) 19:47
Soulman さん こんばんは ＾＾ 何時も何時も本当に済みません。感謝してもしきれません。 (*^^*) menuシートにボタン、一つこさえただけっす。 ＾＾； あと、書き出し部分を配列にしましたけど。いっそ全件配列に貯めこんで。 カメハメハ〜〜〜。。。ぁ みたく。はきだしたかったのですがｗｗｗｗ 元気がわいてきませんでしたぁ〜〜〜〜。で 内容的にはご指摘の通り、何も変わっておりませんです。 ＞＞ひょっとして現在は、待て の状態でしょうか？？？ ほぼ、終了待ちかと。。。。(￣▽￣；)。。。わかりませんが。。。。m(__)m ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ おおおおぉ、そぉおおおをですね。もう春がそこまで。。。土筆ですかぁ なつかしいですね。 こちらこそ、今後とも宜しくお願いいたします。 << _ _ >> （隠居じーさん） 2019/02/26(火) 20:08
いつもお世話になっております。Ｆです。
また返信が遅れました。。申し訳ございません。
ここに来て、少しオーダーが変わりした。。
もしよろしければで良いので見ていただけないでしょうか。
頼ってばかりですみません。
１．以下の部分で、ファイル名を指定しているのですが、それをなくすことはできますでしょうか？
このマクロを使う人は複数で、その人がファイル名を変えてしまう可能性が高いからです（その人にマクロを直す知識はないです。。。）
１．Private Sub 転記_Ver6BTN(ByVal X As String) の、Const BaseBookName As String = "データ転記06BTN.xlsm
2.現在、マクロを実行する際、情報シートなら３行目から転記され、検査シートなら7行目から転記されると思います。その後再度、マクロを実行すると、情報は３行目、７行目から再度上書きになってしまうと思います。そこを、上書きではなく、データ転記されている最終行の次の行に追加していくことはかのうでしょうか？蓄積していくイメージです。この仕様でファイル名チェックもあればかなり使いがってのいいものになると思うのですが。。。
以上、よろしくお願い致します。
（ねぎ） 2019/02/27(水) 20:09
こんばんは ＾＾ 拝見いたしました。 出来ると思いますので、暫時お待ちください。 m(__)m （隠居じーさん） 2019/02/27(水) 20:20
すみません。。。
あと、自分が作っていたコードでは、フォルダ選択（下部にコード貼ります）ができたのですが、
（隠居じーさん） 2019/02/26(火) 07:29のコードにはそのまま貼れば良いのでしょうか？
今、テストできない環境でして、もしわかれば教えていただけないでしょうか。
Public Function SelectFolder(ByVal strDefault As String, ByRef strSelect As String) As Boolean
SelectFolder = False
strSelect = ""
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = strDefault
.Title = "フォルダ選択"
.ButtonName = "選択確定"
.AllowMultiSelect = False
If .Show = True Then
strSelect = .SelectedItems(1)
SelectFolder = True
Else
.Execute
End If
End With
End Function
（Ｆ） 2019/02/27(水) 20:43
'フォルダ選択ダイアログの表示
fpath = ThisWorkbook.Path & "\転記元\"
If SelectFolder(fpath, strPath) Then
fpath = strPath & "\"
Call 取り込み
End If
End Sub
（Ｆ） 2019/02/27(水) 20:47
ーーーーーーーコメントブロックした部分ーーーーーーーーーーーーーーーー
Ｓub kaisi()
With Worksheets("menu")
If .Shapes.Count = 0 Then
btn_maker
End If
.Activate
End With
End Sub
Private Sub btn_maker()
Dim br As Range
Set br = Worksheets("menu").Range("F3:G4")
With Worksheets("menu").Buttons.Add(br.Left, br.Top, br.Width, br.Height)
.OnAction = "Choice_Sh"
.Characters.Text = "BTN"
End With
End Sub
Private Sub Choice_Sh()
Dim ss As String
ss = Application.InputBox("", "", , , , , , 2)
If ss = "False" Or ss = "" Then Exit Sub
If ss <> "A" And ss <> "B" And ss <> "C" And ss <> "D" And ss <> "E" Then
Exit Sub
End If
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
（Ｆ） 2019/02/27(水) 21:15
ss = Application.InputBox("", "", , , , , , 2)
↑ここ
A〜E （半角、大文字）を入力して下さい
とのことですが、以下であってますでしょうか？？
ss = Application.InputBox("A, "B", "C", "D", "E", 2)
（Ｆ） 2019/02/27(水) 21:27
こんばんは ＾＾
ご希望の変更点ですが、以下でよろしいでしょうか。
１．ＢＯＯＫ名の固定をはずす
２．上書きは中止、追加書込みのみとする
３．重複ファイルがあれば通知する
４．対象フォルダを指定出来るようにする。
すこし、改修工事（見直し、テスト等）になりますので。
暫く御猶予ください。出来るだけがんばります。
ss = Application.InputBox("", "", , , , , , 2)
も了解いたしました。直しておきます。
ボタンを設置する、件ですが
今、menuシートにボタンが自動で設置される仕様なのですが。
そこに取扱説明＆注意事項をコピペではいけませんか？シートの位置は
何処でも構わないはずです。
もしよければ、ボタンの貼り付け位置はどこでも、変更可能です
以上、ご連絡をお待ちいたします。
（隠居じーさん） 2019/02/27(水) 21:48
追伸 すみません。ボタンの件ですが、 ご希望のシートのご希望の位置に設置することも、可能です。 ただ、他にも図形、等、があり消えてしまうとか、他にも、 何らかの理由でボタンはご自作されるとの事でしたら。そのように 変更いたします。 ご連絡をお待ちして。改修にとりかかります。＾＾； でわ （隠居じーさん） 2019/02/27(水) 21:56
おはようございます ＾＾
読込ファイル名に何か他の関係無いファイルと識別できる様な特徴はありますか
必ずこれは付けるとか、あれば教えて下さい。
例 AXyyyymmdd_A
検査*.xls*
情報*.xls*
ご提示のサンプル情報にはファイル名を取得されていますが
これは、実際には無い（ダミー）のでしょうか、それとも
同じセルアドレスに存在して、使用可能ですか。
以上2点、お願いいたします。
m(__)m
（隠居じーさん） 2019/02/28(木) 07:07
１．ＢＯＯＫ名の固定をはずす
■ファイル名に依存しない、このマクロファイルさえあれば誰でも取り込みができる仕様だと最高です。
２．上書きは中止、追加書込みのみとする
■おっしゃる通りです。どんどん蓄積されるイメージです。
３．重複ファイルがあれば通知する
■おっしゃる通りです。重複ファイルシート的なものに取り込み日時とファイル名を出せたら最高です。
４．対象フォルダを指定出来るようにする。
■おっしゃる通りです。もし、空のフォルダ（転記対象データがないフォルダ）を選択した場合、アラートをだすことは可能でしょうか（取り込み対象データがありません。など
★ボタンについて
大変申し訳ございませんが、諸事情でシート１（説明シート）にあるボタンにマクロを登録。ユーザはそれを押すとフォルダ選択→処理開始という流れにしたいのです。。。ご厚意でいろいろしてくれたのに本当にごめんなさい。申し訳ないです。。。。
（Ｆ） 2019/02/28(木) 11:17
検査*.xls*
情報*.xls*
■これについては、("情報入力シート")("検査シート")が必ず存在するということでしょうか。マスタシートもです。
運用上でも関係がないデータをフォルダには分けておくようには注意はするのですが、マクロで弾けたら安全ですね。
?Aご提示のサンプル情報にはファイル名を取得されていますが
これは、実際には無い（ダミー）のでしょうか、それとも
同じセルアドレスに存在して、使用可能ですか。」
■上記については、すみませんどういう意味か理解できませんでいした。すみません。ファイル名はB列に取得する必要があり、それで重複チェックできたらと思ってましたが。。。
（Ｆ） 2019/02/28(木) 11:26
こんにちは ＾＾ ご返信確認致しました。ご希望に沿えるように処理致します。 もうすこし待ってくださいね。 m(__)m でわ
（隠居じーさん） 2019/02/28(木) 12:13
こんにちは ＾＾ あ、はい。Ｂ列のファイル名かき集めて確認する様に調整してます。。。 ＞＞重複ファイルシート的なものに取り込み日時とファイル名を出せたら最高です。 ご希望シート名、ありましたら。（なければてきと〜になってしまいます。） 取込日時はマクロ動かした当日でいいですね。 では 今夜はむりかも。。。出来次第アップしておきますね。(￣▽￣)。。。 では。m(_ _)m
（隠居じーさん） 2019/02/28(木) 16:47
以上、よろしくお願いします。
（f） 2019/02/28(木) 22:19
こんばんは ＾＾ そぉでしたね (￣▽￣；)。。。了解致しましたです。 。。。。。→ 工事中。。。→ おい！いつまでやっとんねん！ ← はいすみません。間もなく＾＾；
いや〜あわてると、ろくなものが。。。←言い訳。 すみません、間もなくです。 では m(__)m （隠居じーさん） 2019/02/28(木) 23:45
おはようございます ＾＾ 緊急速報。。。決して忘れて、遊びになど、行っておりませんです。はい （笑） ご注文が多かったので。。。悪戦苦闘中です。。。^^;;; エクセルでも。暫く反応がなければ。。。ｗ大丈夫かな。。。って思いますので。←私は もうほぼ出来かかっていますが気になる点も２，３残していますので。処理中です でわ m(_ _)m
（隠居じーさん） 2019/03/01(金) 09:11
お待たせいたしました ＾＾
追加作成事項がたてこんだのと、モジュールレベル変数は使用していない 関係で 少し。つぎはぎ感が残りもう少し整理はした方が良いとは思います が、動作は致しますのでアップ致します。事前に
従来通りのシート 列見出 新規の空シート 重複ファイルシート
を作成して下さい 標準モジュールにコードをコピペの後、既存のシート上にFさんが作成 され た ボタンに Sub 出力() を登録してください。入念にテストをしていただいて。何かあればまた ご連絡いただければ対応いたします。 でわ
Option Explicit
Sub 出力()
Dim Fs
Dim Fcnt As Long
Dim strSelect As String
strSelect = SelectFolder
Set Fs = CreateObject("Scripting.FileSystemObject")
If Fs.GetFolder(strSelect).Files.Count = 0 Then
MsgBox "選択されたフォルダにはファイルが有りません"
Exit Sub
End If
If strSelect <> "" Then
取り込み strSelect & "\"
Else
MsgBox "フォルダが取得できません"
Exit Sub
End If
End Sub
Private Function SelectFolder() As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ThisWorkbook.Path & "\転記元\"
.Title = "フォルダ選択"
.ButtonName = "選択確定"
If .Show Then
SelectFolder = .SelectedItems(1)
End If
End With
End Function
Private Sub 取り込み(ByVal fp As String)
Dim ss As String
ss = Application.InputBox("パターン、A〜E（半角、大文字）を入力して下さい", "Excel_VBA", , , , , , 2)
If ss = "False" Or ss = "" Then Exit Sub
If ss <> "A" And ss <> "B" And ss <> "C" And ss <> "D" And ss <> "E" Then
Exit Sub
End If
For_Start_Proc
転記_Ver6BTN ss, fp
End Sub
Private Sub 転記_Ver6BTN(ByVal X As String, fp As String)
Dim fpath As String, fname As String
Dim wb As Workbook
Dim BB As Workbook
Rem 転記先 Write
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Rem 転記元 Read
Dim sh4 As Worksheet
Dim sh5 As Worksheet
Dim sh6 As Worksheet
Dim sh7 As Worksheet
Dim Jr
Dim Mtr
Dim Mkr
Dim snm2
Dim Snmstr As String
Dim i As Long
Dim j As Long
Dim y As Long
Dim y2 As Long
Dim ry As Long
Dim ry2 As Long
Dim lr As Long
Dim lr2 As Long
Dim t
Dim cnt As Long
Dim cntf As Long
Dim tmpary()
Dim w_flg As Boolean
Dim f_flg As Boolean
Dim Fm
Dim Myd()
ThisWorkbook.Worksheets("重複ファイルシート").Cells(1, 2).Resize(, 3) = _
Array("従前書込済ファイル名", "追加した重複ファイル名", "重複追加処理日時")
t = Timer
'振り分けする転記先のシート名、並び変えたい順番に左から記入
snm2 = Array("情報入力シート(A)", "情報入力シート(B)", _
"情報入力シート(C)", "情報入力シート(D)", _
"検査シート(A)", "検査シート(B)", _
"検査シート(C)", "検査シート(D)")
If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel) Then
Sheet_Delete snm2
End If
Set BB = Workbooks(ThisWorkbook.Name)
fpath = fp
Set sh1 = BB.Worksheets("列見出")
fname = Dir(fpath & "*.xls*"): cnt = 1
'読込済ファイルマスター作成
Fm = File_Master_Chk
Do Until fname = ""
DoEvents
If fname <> BB.Name Then
Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0)
Set sh4 = wb.Worksheets("情報入力シート")
Set sh5 = wb.Worksheets("検査シート")
Set sh6 = wb.Worksheets("マスタ(都道府県)")
Set sh7 = wb.Worksheets("マスタ(管理)")
Jr = sh4.UsedRange
Mtr = sh6.Range("C2").CurrentRegion
Mkr = Intersect(sh7.Range("C:L"), sh7.Range("B2").CurrentRegion.Rows(1))
Snmstr = Trim(sh4.Range("B2").Value)
'*******************************************************
'重複ファイル読飛、追加書込、判定
f_flg = File_Dup_Chk(fname, Fm, Snmstr, X, Myd, cntf)
If f_flg Then
wb.Close
GoTo step1
End If
'******************************************************
Select Case X
Case "A", "B", "C"
If Snmstr <> X Then
wb.Close False
GoTo step1
End If
Case "D", "E"
If Snmstr <> "D" And Snmstr <> "E" Then
wb.Close False
GoTo step1
End If
End Select
'書込み先シート名をsh4.Range("B2")の値で振り分け処理
Snmstr = IIf(Snmstr = "E", "D", Snmstr)
If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then
MsgBox "シート名が設定されていません" & vbNewLine & _
"確認後設定してやり直してください。" & vbNewLine & _
wb.Name
wb.Close False
GoTo step1
End If
On Error Resume Next
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")"
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
sh2.Range(sh2.Rows(3), sh2.Rows(15)).Delete
End If
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
If Err.Number > 0 Then
sh1.Copy before:=BB.Worksheets(1)
BB.ActiveSheet.Name = "検査シート(" & Snmstr & ")"
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
sh3.Range(sh3.Rows(1), sh3.Rows(5)).Delete
End If
On Error GoTo 0
Rem 情報シート書出, 201902、追加のみに修正
With sh2
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr = IIf(lr < 3, 3, lr)
y = lr
For ry = 3 To lr
If (.Cells(ry, 1) = Snmstr) * (.Cells(ry, 3) = wb.Name) * _
(.Cells(ry, 5) = sh4.Range("F2").Value) Then
w_flg = False
Exit For
End If
Next
If w_flg Then
y = ry
w_flg = False
End If
Write_J y, sh2, sh4, wb
'シート名
.Cells(y, 1) = Snmstr
'BS列に地域コードを書込処理
For i = 2 To UBound(Mtr, 1)
If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then
.Cells(y, "BS") = Mtr(i, 1)
End If
Next
'管理者コードを各B列書込処理
i = WorksheetFunction.Match(Jr(2, 6), Mkr, 0)
.Cells(y, "B") = Mkr(1, i)
.UsedRange.EntireColumn.AutoFit
End With
Rem 検査シート書出, 201902、追加のみに修正
With sh3
lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr2 = IIf(lr2 < 7, 7, lr2)
y2 = lr2
For ry2 = 7 To lr2
If (.Cells(ry2, 1) = Snmstr) * (.Cells(ry2, 3) = wb.Name) * _
(.Cells(ry2, 5) = sh4.Range("F2").Value) Then
w_flg = False
Exit For
End If
Next
If w_flg Then
y2 = ry2
w_flg = False
End If
Write_K y2, sh3, sh4, sh5, wb
.Cells(y2, "B") = Mkr(1, i)
.UsedRange.EntireColumn.AutoFit
End With
wb.Close SaveChanges:=False
End If
step1:
fname = Dir()
DoEvents
Application.StatusBar = Space(7) & "IN = " & Format(cnt, "0,0")
cnt = cnt + 1
Loop
ReDim tmpary(UBound(snm2) + 1)
For i = 1 To Worksheets.Count
For j = 0 To UBound(snm2)
If Worksheets(i).Name = snm2(j) Then
tmpary(j) = Worksheets(i).Name
End If
Next
Next
For i = 0 To UBound(tmpary)
If tmpary(i) <> "" Then
Worksheets(tmpary(i)).Move after:=Worksheets(Worksheets.Count)
End If
Next
If cntf > 0 Then Last_Write Myd
For_End_Proc
Erase Myd
MsgBox "作業完了。所要時間、単位秒 ＝ " & Format(Timer - t, "0.0 秒")
End Sub
Private Function File_Master_Chk() As Variant
Dim buf
Dim buf2()
Dim i As Long
Dim j As Long
Dim k As Long
Dim mya
Dim D
Set D = CreateObject("Scripting.Dictionary")
buf = Array("情報入力シート(A)", "情報入力シート(B)", "情報入力シート(C)", "情報入力シート(D)")
For i = 1 To ThisWorkbook.Worksheets.Count
For j = 0 To UBound(buf)
If ThisWorkbook.Worksheets(i).Name = buf(j) Then
ReDim Preserve buf2(k)
buf2(k) = ThisWorkbook.Worksheets(i).Name
k = k + 1
Exit For
End If
Next
Next
'配列が空なら（一件でも発生していれば1加算されている）
If k = 0 Then
File_Master_Chk = False
Exit Function
End If
For i = 0 To UBound(buf2)
With ThisWorkbook.Worksheets(buf2(i))
mya = Intersect(.Range("C:C"), .Range(.Rows(3), .Rows(.Cells(3, 3).CurrentRegion.Rows.Count + 2)))
If TypeName(mya) <> Empty Then
If TypeName(mya) = "String" Then
If Not D.exists(mya) Then
D.Add mya, mya
End If
Else
For k = 1 To UBound(mya, 1)
If mya(k, 1) <> "" Then
If Not D.exists(mya(k, 1)) Then
D.Add mya(k, 1), mya(k, 1)
End If
End If
Next
End If
If TypeName(mya) <> "String" Then
Erase mya
Else
mya = Empty
End If
End If
End With
Next
If D.Count = 0 Then
File_Master_Chk = False
Else
With ThisWorkbook.Worksheets("重複ファイルシート")
.Range("B:B").SpecialCells(2).Clear
.Cells(1, 2) = "従前書込済ファイル名"
k = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Cells(k, 2).Resize(D.Count, 1) = WorksheetFunction.Transpose(D.keys)
End With
File_Master_Chk = D.keys
End If
End Function
Private Function File_Dup_Chk(ByVal BName As String, _
ByVal BMaster As Variant, _
ByVal X As String, _
ByVal Fptn As String, _
ByRef Myd As Variant, _
ByRef cnt As Long) As Boolean
Dim i As Long
If TypeName(BMaster) = "Boolean" Then
Exit Function
End If
For i = LBound(BMaster) To UBound(BMaster)
If BName = BMaster(i) And Fptn = X Then
If vbOK = MsgBox("同一ファイル名の情報がが存在します。" & vbNewLine & _
"OK ボタンで書き込みません" & vbNewLine & BName, vbOKCancel) Then
File_Dup_Chk = True
Exit Function
Else
'ログ情報作成
ReDim Preserve Myd(cnt)
Myd(cnt) = Array(BName, Format(Now(), "yyyy/mm/dd - hh:mm:ss"))
cnt = cnt + 1
End If
End If
Next
End Function
Private Sub Sheet_Delete(ByVal snm2 As Variant)
Dim i As Long
Dim j As Long
Dim tmpary()
ThisWorkbook.Worksheets("重複ファイルシート").Cells.Clear
ThisWorkbook.Worksheets("重複ファイルシート").Cells(1, 2).Resize(, 3) = _
Array("従前書込済ファイル名", "追加した重複ファイル名", "重複追加処理日時")
Application.DisplayAlerts = False
ReDim tmpary(UBound(snm2) + 1)
For i = 1 To Worksheets.Count
For j = 0 To UBound(snm2)
If Worksheets(i).Name = snm2(j) Then
tmpary(j) = Worksheets(i).Name
End If
Next
Next
For i = 0 To UBound(tmpary)
If tmpary(i) <> "" Then
Worksheets(tmpary(i)).Delete
End If
Next
Application.DisplayAlerts = True
End Sub
Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, wb As Workbook)
Dim buffer(1 To 74)
Dim myad2
Dim i As Long
Dim j As Long
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _
"H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _
"B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _
"H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _
"I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _
"B6", "E6")
With ws
For i = 1 To UBound(buffer)
If i = 2 Or i = 3 Or i = 9 Or i = 68 Then GoTo step1
buffer(i) = sh2.Range(myad2(j)).Value
j = j + 1
step1:
Next
buffer(3) = wb.Name
.Cells(y, 1).Resize(, UBound(buffer)) = buffer
End With
End Sub
Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, wb As Workbook)
Dim myad2
Dim buf2
Dim i As Long
Dim j As Long
Dim k As Long
Dim buffer(1 To 699)
Rem 'sh2 = 検査シート, sh4 = 情報入力シート
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2")
buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _
"E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _
"H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _
"I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _
"L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _
"M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _
"N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _
"M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49")
With ws
For i = 1 To UBound(buffer)
If i <= 9 Then
Select Case i
Case 1, 4 To 8
buffer(i) = sh4.Range(myad2(j)).Value
j = j + 1
End Select
ElseIf i > 9 Then
buffer(i) = sh2.Range(buf2(k)).Value
k = k + 1
End If
DoEvents
Next
buffer(3) = wb.Name
.Cells(y2, 1).Resize(, UBound(buffer)) = buffer
End With
End Sub
Private Sub For_Start_Proc()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub
Private Sub For_End_Proc()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.StatusBar = ""
End With
With ThisWorkbook.Worksheets("重複ファイルシート")
.Range("A:E").EntireColumn.AutoFit
.Activate
End With
End Sub
Private Sub Last_Write(ByVal arg1 As Variant)
Dim lr As Long
With ThisWorkbook.Worksheets("重複ファイルシート")
lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
.Cells(lr, 3).Resize(UBound(arg1, 1) + 1, 2) = WorksheetFunction.Transpose(WorksheetFunction.Transpose(arg1))
End With
End Sub
（隠居じーさん） 2019/03/01(金) 12:02
こんにちは ＾＾ すみませんでした。 Sub 出力()だけ、丸ごと下記に変えて下さい。 ★フォルダ選択ダイアログ、キャンセル時にエラーを、修正
Sub 出力()
Dim Fs
Dim Fcnt As Long
Dim strSelect As String
Set Fs = CreateObject("Scripting.FileSystemObject")
strSelect = SelectFolder
If strSelect <> "" Then
If Fs.GetFolder(strSelect).Files.Count = 0 Then
MsgBox "選択されたフォルダにはファイルが有りません"
Exit Sub
End If
取り込み strSelect & "\"
Else
MsgBox "フォルダが取得できません"
Exit Sub
End If
End Sub
（隠居じーさん） 2019/03/01(金) 12:35
（隠居じーさん） 2019/03/01(金) 12:39
ありがとうございます。
何度も申し訳ございません。以下の処理について教えていただけますでしょうか。
■確認事項
１．インプットボックスにはA〜Eの内取り込みたい者を入力する仕様でしょうか。
できればインプットボックスは表示させず、フォルダ内全てのファイルを取り込みたいです。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub 取り込み(ByVal fp As String)
Dim ss As String
ss = Application.InputBox("パターン、A〜E（半角、大文字）を入力して下さい", "Excel_VBA", , , , , , 2)
If ss = "False" Or ss = "" Then Exit Sub
If ss <> "A" And ss <> "B" And ss <> "C" And ss <> "D" And ss <> "E" Then
Exit Sub
End If
For_Start_Proc
転記_Ver6BTN ss, fp
End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
２．情報入力シートと検査シートの取り込みデータが検査結果（A~E）にまとめられてないでしょうか？？？
インプットボックスにAを入力し、マクロを実行すると、検査シート（A）しか残りません。
３．フォルダ内の全てのエクセルが取り込まれてますでしょうか？私がAを入力したファイルを２つフォルダに保存し、
実行したところ一つしか転記されませんでした。
４．マクロを実行したとこボタンを配置したシート（説明用）も削除される仕様でしょうか
もし、私の適応方法が間違っていればすみません。
とのことで、以下のようには改変は難しいでしょうか？
・シートの削除、書き込み用シートの作成はせず、私が最初に投降したような単純に指定のシート名に振り分ける（既存のシートに放り込む）のは難しいでしょうか？
情報入力シート(A〜D)と検査シート(A〜D)は必ず存在しますので。。
・インプットボックスは表示させず、
シート１のボタンを押す→取り込みしますか？しません？のメッセージボックス→フォルダ選択→取り込み、重複確認処理。
もし私の適用方法が間違っていたらすみません。
ちなみにシートの削除、書き込み用シート仕様をやめたいのは、私もですが知識がない方がマクロを実行しシートが消えたとなると、混乱を招くからです。。
既存のシート計８つにデータを放り込む仕様だと嬉しいです（ご厚意でやっていいただいたとは思いますが、すみません。。。）。
以上、よろしくお願いします。
（Ｆ） 2019/03/01(金) 14:28
お邪魔します。
検証Manとしましては、問題なく動きましたことをご報告致します。
でも、今回の場合は動いただけではダメなようですね(^^;
To 隠居じーさん さんへ
もう少しみたいですから頑張て下さいね。。。。
お力になれず申し訳ないです。
では、、では、、、 （SoulMan） 2019/03/01(金) 14:47
お世話になっております。
・シートの振り分け（Ａ〜Ｅ）は貴環境では正しく動作されてますでしょうか。
・フォルダにあるファイルすべてが取り込まれてますでしょうか。
・すでにデータがある状態で実行された場合、データを上書きせず、最終行次行以降に蓄積されてますでしょうか。
私の適用方法が悪い可能性がある（高い）ので、もしわかれば教えていただけないでしょうか。
「 でも、今回の場合は動いただけではダメなようですね(^^;
To 隠居じーさん さんへ もう少しみたいですから頑張て下さいね。。。。」 要求ばかりですみません。ユーザがＰＣへの知識が低く、できるだけユーザ負担にならないようなものができればという考えがありまして。。
以上、よろしくお願いします。
（Ｆ） 2019/03/01(金) 15:00
>・シートの振り分け（Ａ〜Ｅ）は貴環境では正しく動作されてますでしょうか。 >・フォルダにあるファイルすべてが取り込まれてますでしょうか。 >・すでにデータがある状態で実行された場合、データを上書きせず、最終行次行以降に蓄積されてますでしょうか。
あっ、、すみません。。この辺はよく分かってないです。。m(__)m
混乱させちゃいましたね。。。すみません。
でも、隠居じーさん さんがきっと解決してくださると思いますので、、今しばらくお待ちください。m(__)m （SoulMan） 2019/03/01(金) 15:06
隠居じーさん様
頼ってばかりで申し訳ございません。本当にいいものをつくっていただいて感謝しかないです。。。
（Ｆ） 2019/03/01(金) 15:10
SoulMan さん すみません〜〜〜〜。ありがとうございましたあ〜m(__)m いや〜ダメでしたか。。。(￣▽￣；)。。。。。只今元気を充電中。。。。ピコピコ？ お師匠様に似てきましたね（笑） Fさん 今の私のコードの修正希望点を箇条書きで、もう一度アップしておいてください。 がんばるぞぉおぉを〜〜〜〜 でも すこしお時間下さいね。＾＾； でわ （隠居じーさん） 2019/03/01(金) 15:31
F さんへ 現状の確認ですが ご質問 １．インプットボックスにはA〜Eの内取り込みたい者を入力する仕様でしょうか。 ２．情報入力シートと検査シートの取り込みデータが検査結果（A~E）にまとめられてないでしょうか？？？ インプットボックスにAを入力し、マクロを実行すると、検査シート（A）しか残りません。 ３．フォルダ内の全てのエクセルが取り込まれてますでしょうか？私がAを入力したファイルを２つフォルダに保存し、 実行したところ一つしか転記されませんでした。 ４．マクロを実行したとこボタンを配置したシート（説明用）も削除される仕様でしょうか
1.はその通りです。変更可能です。 2.すこし意味が解らないのですが。情報シート（Ａ）と検査シート（Ａ）が残るはずです。 3.2.とも関連すると思いますが当方のテスト環境では存在するファイル全て取り込んでいます ただ情報入力シート（読込みファイル）Ｂ２の値が指定した値と違えばとりこみません。 再度ご確認お願いいたします。 4.指定の8個のシート以外は削除いたしません。、左の角に隠れていませんでしょうか。
（隠居じーさん） 2019/03/01(金) 16:04
インプットボックスにAを入力し、マクロを実行すると、検査シート（A）しか残りません。 ３．フォルダ内の全てのエクセルが取り込まれてますでしょうか？私がAを入力したファイルを２つフォルダに保存し、 実行したところ一つしか転記されませんでした。 ４．マクロを実行したとこボタンを配置したシート（説明用）も削除される仕様でしょうか 【ご回答】 1.はその通りです。変更可能です。 ■インプットボックスは表示させず、フォルダにあるすべてのファイルを取り込みたいです。 2.すこし意味が解らないのですが。情報シート（Ａ）と検査シート（Ａ）が残るはずです。 ■検査シート（Ａ）という名前のシートが残り、列見出しシートのレイアウトになっております。 これは私がどこかミスしてますね。。。 3.2.とも関連すると思いますが当方のテスト環境では存在するファイル全て取り込んでいます ただ情報入力シート（読込みファイル）Ｂ２の値が指定した値と違えばとりこみません。 再度ご確認お願いいたします。 ■値間違いはないですね。 4.指定の8個のシート以外は削除いたしません。、左の角に隠れていませんでしょうか。 ■２の状況ですので、隠れてはないですね。。 削除せず８個とも残す、もしくは書き出しシートではなく、あるシートに値を転記は難しいでしょうか？
やはり私の適用方法が間違ってそうですね。精査します。
（Ｆ） 2019/03/01(金) 16:40
はい。わかりました。再現ソフトのお力をお借りして整えた時点では相違無しの状態でも その後それを基にダミー情報作成過程でミスってる事もあるかもしれませんね。＾＾；
読込ファイルシート名
情報入力シート 検査シート マスタ(都道府県) マスタ(管理)
書込みファイルシート名
情報入力シート(A) 情報入力シート(B) 情報入力シート(C) 情報入力シート(D) 検査シート(A) 検査シート(B) 検査シート(C) 検査シート(D)
以上です。
＞＞やはり私の適用方法が間違ってそうですね。精査します。 一概には言えませんのでこちらでも原因を探して見ます。 他の操作方法は如何様にでも比較的簡単に変更できますが。 情報の突合せはそうもいきません。かつ一番重要部分かと。 あと1ファイル、1レコードの情報の書き出し位置、内容は 問題御座いませんか。 （隠居じーさん） 2019/03/01(金) 17:12
書込みファイルシート名 には列見出しもありますかね？ ■列見出し ２、３行目、ＢＶ列まで：情報入力シートの見出し
６〜11行目、ＺＷ列まで：検査シートの見出し
というレイアウトですが同じですかね？
一度こちらから、シート名、Ｂ２の値を上記内容にし、テストしてみます。
（Ｆ） 2019/03/01(金) 17:36
こんばんは。＾＾ はいあります 列見出 です。 ＞＞一度こちらから、シート名、Ｂ２の値を上記内容にし、テストしてみます お願い致します、あわせて下記も。お願いいたします。
現状のコードを使い 本体 転記_Ver6BTN(ByVal X As String, fp As String) の
Do Until fname = ""
DoEvents
If fname <> BB.Name Then
Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0)
Set sh4 = wb.Worksheets("情報入力シート")
Set sh5 = wb.Worksheets("検査シート")
Set sh6 = wb.Worksheets("マスタ(都道府県)")
Set sh7 = wb.Worksheets("マスタ(管理)")
Jr = sh4.UsedRange
Mtr = sh6.Range("C2").CurrentRegion
Mkr = Intersect(sh7.Range("C:L"), sh7.Range("B2").CurrentRegion.Rows(1))
Snmstr = Trim(sh4.Range("B2").Value)
Stop
↑ これを挿入して
'*******************************************************
'重複ファイル読飛、追加書込、判定
f_flg = File_Dup_Chk(fname, Fm, Snmstr, X, Myd, cntf)
If f_flg Then
wb.Close
GoTo step1
End If
'******************************************************
下記のコードの '.StatusBar = "" をコメントにして。
Private Sub For_End_Proc()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
'.StatusBar = ""
End With
With ThisWorkbook.Worksheets("重複ファイルシート")
.Range("A:E").EntireColumn.AutoFit
.Activate
End With
End Sub
プログラムが停止しますので F5キーで再開 一ファイルづつ視認していただいて 読込まれているか Ａ〜Ｅとの対応に整合性があるか 実際に書き込まれているか（終了後しかわかりませんが） 下の左端のステータスバーに読込みファイル件数が残っていると思います ので確認してみて下さい。（何件読み込んだか解ります） （隠居じーさん） 2019/03/01(金) 17:49
■確認事項
・マスタ（管理）からＢ列に転記する部分が管理者コード（３行目）ではなく、管理者名（２行目）からとっている？？？
・追加ではなく、上書き状態？（マクロを実行の度、情報入力シートなら３行目、検査シートなら７行目からデータが転記される。
・重複チェックが機能していない？すでにデータを取り込んで、再度同じフォルダを指定すると、私の想定では取り込みを続けるか否かの選択と重複ファイルシートへの出力があったのですが、現段階ではチェックはされていないのでしょうか？？
■要望（えらそうにごめんなさい）
・インプットボックスを表示させず、Ａ〜Ｅどの値でも取り込む
・現状、インプットボックスにＢを入力すると情報入力シート(B)と検査シート(B)のみ残るが、Ａ、Ｃ，Ｄも保持したいです。
→理由は上記で上書きではなく追加（蓄積）にしていただきたいと述べた通り、どんどんとこのファイルに書き溜めていきたいのです。
以上、よろしくお願いします。
私もいろいろ調べてみます。
（Ｆ） 2019/03/01(金) 18:51
転記元フォルダーの情報入力シートのB2に A と入力されていて
インプットBoxで A と入力すると
情報入力シート(A) 検査シート(A)
が表れて、、確かに転記されています。
でも、これだと、、転記元のB2と違う Keyを入れると全部消えちゃいます？？？
当然、、蓄積はされませんよね？？？ 間違っていましたらすみませんm(__)m
以上、、検証Man途中経過でした。。。 （SoulMan） 2019/03/01(金) 19:18
あっ、、そういう仕様であればあっていると言えば、、あってますね？？？
沢山あるファイルから指定した Key だけを転記するんですね？？？
でも、どうもトピ主さんの話だと、、、
>・重複チェックが機能していない？ >すでにデータを取り込んで、再度同じフォルダを指定すると、 >私の想定では取り込みを続けるか否かの選択と重複ファイルシートへの出力があったのですが、 >現段階ではチェックはされていないのでしょうか？？
重複ファイルシート には、、何も転記されていませんので、1回目から何か転記されていないと次が判断できません？？？
どうも違うようですね？？？？
なかなかハードルの高いご要望ですね(^^;
検証Man、、第二途中経過でした。。。。m(__)m （SoulMan） 2019/03/01(金) 19:44
SoulManさんこんばんは ＾＾。。。(^^♪ すみません、ありがとうございます。 << _ _ >>
そのとおりです。エラーチェック機能のつもりが厳しすぎたようです。 ご注文に無い機能でした。 二回目以降ＯＫではなく全てキャンセル処理すれば 追加書込みで、重複チェック機能が働きますです。 ただし初回は取込情報が無い訳ですから新規です。 重複機能は二回目以降になります ボタンの名前もメッセージも悪かったですね。 取扱説明もなしでした。混乱を招いて済みません。
Fさん二回目もＯＫの更新ボタンを押していませんでしょうか。
★・マスタ（管理）からＢ列に転記する部分が管理者コード（３行目）
ではなく、管理者名（２行目）から とっている
そうなっていますね。管理者コードに変えればいいですか。
この関係の情報違いについては他にも間違いが有りましたら
対比表のような感じでお願いいたします。
例 ？？シートの Ｂ３ → ｘｘシートのＣ5 に変える
でわ
（隠居じーさん） 2019/03/01(金) 19:51
重複チェックですけど、、そのファイルの最終更新日を調べて、、
それと同じだったら、、警告？違ったら、、取り込み？？？
でしょうか？？？
ヘルプか何かのまんまですけど、、、↓こんなコードが私のPCの中にありました。。
Function LastSaveTime()
Application.Volatile
LastSaveTime = ThisWorkbook.BuiltinDocumentProperties("Last save time").Value
End Function
（SoulMan） 2019/03/01(金) 19:57
おぉぉぉぉぉ、、、失礼しましたm(__)m
転記されましたです。(^^;
ばっちり！！！！です。(^_-)-☆ （SoulMan） 2019/03/01(金) 20:09
SoulManさん 、ありがとうございます。＾＾ お〜〜ぉ、こんな、プロパティ！あったのですね。知りませんでした。使わ せて戴きます。私のはこのようなハイレベルの物では御座いませんで情報シ ートに記録されたファイル名を連想配列で一意にし、読込みファイルと突合 せする、単にファイル名のみで参照です。処理日は当日の日付、エクセルの ＮＯＷ（）様です（笑）
（隠居じーさん） 2019/03/01(金) 19:51 の補足です＾＾； ＞＞二回目以降ＯＫではなく全てキャンセル処理すれば ' 回数に関係無くでした｡早い話が更新は処理対象シート ' 消しているだけです｡あと無ければコードで追加処理しています｡ ' でも他のシートも消えるっていううのは不思議ですね〜 (? 。? : ' こちらでは8個のシート以外消えたりしませんが｡ （隠居じーさん） 2019/03/01(金) 20:13
ちなみに、、↓こんな感じになりました。
従前書込済ファイル名 追加した重複ファイル名 重複追加処理日時 データ転記.xlsm データ転記.xlsm 2019/03/01 - 20:07:31
以上、、検証Manでした。 （SoulMan） 2019/03/01(金) 20:15
こんばんは ＾＾ 今宵、なにかと御用ご繁多の砌、 重ね重ねのご検証、ご高配を賜り、 恐悦至極に存じ上げ奉りまする。 はは〜〜〜 << _ _ >> ← おまえはどこかの家老か。。。いえ、隠居じーさん すみません m(__)m。。。でもほんとうに、ありがとうございます。 （隠居じーさん） 2019/03/01(金) 20:32
いえいえい、、御やすい御用でございます。。
ところで、、
一番簡単なのは、
If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel + vbDefaultButton2) Then
Sheet_Delete snm2
End If
として、ユーザーが意図しないと消えない様にすることでしょうか？(^^; （SoulMan） 2019/03/01(金) 20:39
Fさん二回目もＯＫの更新ボタンを押していませんでしょうか。
■その通りでした。１回目も２回目以降も転記シート更新しますか？→ＯＫなら追加、キャンセルなら処理中止
とかは可能ですかね？大幅にいじることになりますでしょうか？？
★・マスタ（管理）からＢ列に転記する部分が管理者コード（３行目）
ではなく、管理者名（２行目）から とっている
そうなっていますね。管理者コードに変えればいいですか。
この関係の情報違いについては他にも間違いが有りましたら
対比表のような感じでお願いいたします。
例 ？？シートの Ｂ３ → ｘｘシートのＣ5 に変える
でわ
■承知いたしました。それはほかにはなさそうです。
すごいですねこれ。。
いろいろ試してみます！！
（Ｆ） 2019/03/01(金) 20:53
それと私がよくやるのが、、この
重複ファイルシート は非表示 (xlSheetVeryHidden)にしておいて、一般ユーザーには触らせない ことですね。
すると、ユーザーは「なんで？？わかるの？？」とびっくりします。(笑)
こどもだましなんですけどね(^^;
Bookを開くときに、、ディクショナリーでさらっとなめておいて、、、
Book名と最終保存日でユニークなKeyですから、、あったら 警告です。
それでも、、やりますぅ？？？ みたいな(笑) （SoulMan） 2019/03/01(金) 21:05
はい。そうだとおもいます。＾＾ そもそも、自分で使うならこう、しておけば何かと便利！ （シートが一杯になり、見づらい重い）とか、月単位で 保存とか、多分有ると推測し、現状だとそのままファイル名 変えて保存しとけば退避用ですし、後、ボタン一つで更新 出来、いいかな〜と、思ったのですが。Ａ〜Ｅ、振分に についても、何か振分ルーチンのご質問みたいなのが有った ように、思い選択制にしたのですが、これは、私のはやとちり だったみたいですね ＾＾；エンドユーザー様は。。。 (*_*)何か慌てると、途端に、そこらへんのボタン押しまくる 人もいるかもですね。。。(￣▽￣；)今度は機能を外すだけ みたいなので。なんとかなるみたいですね。 シートの削除も無しになりますので、もう消えたりしないですね (*^^*)///
（隠居じーさん） 2019/03/01(金) 21:19
＞＞重複ファイルシート は非表示 (xlSheetVeryHidden)にしておいて 妙案ですね(*^^*)ｖ Fさんへ そんなに難しくありませんです。改善案 取り纏めて下さいね。 （隠居じーさん） 2019/03/01(金) 21:22
To 隠居じーさん さんへ
3月中旬から新しいプロジェクト(そんな大したもんじゃないんですけど）が始まって(もう既に始まってますけど）
4月からは本格的に稼働しますから、、登校回数が激減すると思います。多分？？多分？？です。
今でもそんなに多くは登校してませんけど(笑)
でも、慣れれば、、、普段通りかなぁ？？？2、3ヶ月はかかるかなぁ？？なれるまでに、、、
まぁ、、年もとしなんで、、、つらいですけど、、、よろしくお願いします。m(__)m
fさん、、トピをお借りしてどうもすみませんでした。。
いいものが出来るといいですね。
では、、では、、 （SoulMan） 2019/03/01(金) 21:37
SoulManさんへ たいへんそぉですね。頑張ってくださいませ。。。 こちらこそ、今後とも、宜しくお願い致します。 m(_ _)m （隠居じーさん） 2019/03/01(金) 21:48
それと、今、私のマイブームは、↓これです。
seiya さん のパクリですけど、、、実に素晴らしいです。
If Not Evaluate("=ISREF(重複ファイルシート!A1)") Then Sheets.Add.Name = "重複ファイルシート"
以前は、、Loop して Flg で、、、追加でしょう？？？
今日も会社のコードを書き直しておきましたよ。(笑) （SoulMan） 2019/03/01(金) 21:49
おお、貴重なコードを、ありがとうございます。 試して見ますね。今回の改修工事に使わせてもらいます。 (*^^*)ｖ ( ..)φメモメモ。。。記録済！
（隠居じーさん） 2019/03/01(金) 22:04
おはようございます。
では、現存上からの改善点を以下に記載致します（偉そうにすみません）。
・１回目も２回目以降も転記シート更新しますか？→ＯＫなら追加、キャンセルなら処理中止
・インプットボックスで値を入力させるのではなく、B２の値が何であれ選択フォルダ内エクセル全てを取り込みする
・シートの削除はしない（処理後も説明シート（ボタン配置シート）、８つの振り分けシート、列見出、重複ファイルシートが残るイメ―ジです。
（Ｆ） 2019/03/02(土) 11:14
（Ｆ）さんへ おはようございます。＾＾ はい。
承りました。今回ははやとちりで失敗しない様にしないと。。。。。只、少し他の予定
も有り、お時間を少し賜りたいと思います。後、確認、チェック等、も有るとは思いますが
悪しからずご了承くださいね。出来るだけ早く致します。では、とりかかります。
その都度確認事項が発生すると思いますので。こちらでお聞きしますね。
以下教えて下さい。
＞＞ファイル数の確認。
ゼロの場合とゼロ以上の場合
１．MSGBOXをだす
２．出さない
＞＞・インプットボックスで値を入力させるのではなく、B２の値が何であれ選択フォルダ内エクセル全てを取り込みする
もし入力間違い等でＡ〜Ｅ以外があればどうされますか。
１．読み飛ばし（何もしない）
２．情報入力シート（その他）、検査シート（その他）、の
シート作ってそこに格納
３．その他のご希望処理があれば教えて下さい。
★シートの削除は致しません。 ★確認事項 最初のみ、必要シートはあればそのまま、無ければ作成といたします。
（隠居じーさん） 2019/03/02(土) 11:59
Fさんへ シート名変更のお願い
当該の固定の8個ある書き出し用シート名ですか（）を外させていただいてもよろしいですか。 良くエクセルで使用されるもので何かとトラブルの原因にもなりかねませんので 例無ければ動くが有ればエラーみたいな。。。。ま、たまにでしょうけど。。。 ○○××に近寄らず、みたいな理由ですが m(__)m
情報入力シート(C) → 情報入力シートC
（隠居じーさん） 2019/03/02(土) 12:25
（隠居じーさん） 2019/03/02(土) 12:25 のお願いは保留にしておいてください。ｗ 最後がアルファベットでもダメなようです。 他の方法を考えます。 再度お願いするかもしれませんがとりあえず保留でお願いいたします
（隠居じーさん） 2019/03/02(土) 12:31
■承知いたしました。むしろいつも本当すみません。。ただ、細かい制御ののところは無視してでかまいませんので、
指定フォルダのエクセルファイルを取り込む→B2で振り分け→各シートに追加（蓄積）のところのみ、
どうしても先に見せたい（こうなって効率化されるよを見せたい）のですが、可能でしょうか。。。。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
「以下教えて下さい。
＞＞ファイル数の確認。
ゼロの場合とゼロ以上の場合
１．MSGBOXをだす
２．出さない
■１でお願いします。取り込み対象ファイルが存在しませんでした。→マクロ終了
＞＞・インプットボックスで値を入力させるのではなく、B２の値が何であれ選択フォルダ内エクセル全てを取り込みする
もし入力間違い等でＡ〜Ｅ以外があればどうされますか。
１．読み飛ばし（何もしない）
２．情報入力シート（その他）、検査シート（その他）、の
シート作ってそこに格納
３．その他のご希望処理があれば教えて下さい。
■２の案すばらしいですね。２が可能ならお願いしたいです。。。。
一応B２には入力規則でA〜Eしか入力できないようにはしてます。
★シートの削除は致しません。 ■すみません。ありがとうございます。
★確認事項 最初のみ、必要シートはあればそのまま、無ければ作成といたします」 ■それでお願いします。ただ、このマクロファイルを配布し、保護をかける予定なので、シートが欠けていることはないと思っています。
以上、よろしくお願いします。
（Ｆ） 2019/03/02(土) 13:19
＞＞■それでお願いします。ただ、このマクロファイルを配布し、保護をかける予定なので、シートが欠けていることはないと思っています。 上記以外は確認、了解致しました。 上記の件ですが、ご案内の通りだと、無駄も省け完成時間も短縮（。。。ちょっとだけ＾＾；） されますので予め１１シート作成、存在するものと、させて戴きます。 以下に詳細を提示致します 予め作成していただくシート（既存の、列見出、シートは不要になります。）
情報入力シート(A) 情報入力シート(B) 情報入力シート(C) 情報入力シート(D) 情報入力シート(その他) 検査シート(A) 検査シート(B) 検査シート(C) 検査シート(D) 検査シート(その他) 重複ファイルシート
以上です。（）は使用していただいて（今まで通り）結構です。 上記の件で、不都合が御座いましたらおしらせください。 m(__)m （隠居じーさん） 2019/03/02(土) 14:02
シート構成についても以下で承知いたしました。（）仕様についても了解しました。ありがとうございます。
情報入力シート(A) 情報入力シート(B) 情報入力シート(C) 情報入力シート(D) 情報入力シート(その他) 検査シート(A) 検査シート(B) 検査シート(C) 検査シート(D) 検査シート(その他) 重複ファイルシート
以上、よろしくお願いします。
（Ｆ） 2019/03/02(土) 14:20
＞＞指定フォルダのエクセルファイルを取り込む→B2で振り分け→各シートに追加（蓄積）のところのみ、 ＞＞どうしても先に見せたい（こうなって効率化されるよを見せたい）のですが、可能でしょうか。。。。 につきましては一番最初、アップさせていただいたものはたしか。そのような仕様だった記憶があるのですが。。。 調べてみますね。。。サンプルみたいなの。
Sub 転記_Ver3()
'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。
Const BaseBookName As String = "データ転記03.xlsm"
で情報はフォルダ、転記元、に固定 存在するＡ〜Ｅを自動で振り分けてシート作成 をアアップしたように思います。無いパターンの シートは作成されませんが、読み込ますサンプルに 全パターンあれば全シート作成したはずです。間に合わせに は良いかもですね。。。。いや、アップしなかったかもですね。 みてみますぅ〜(￣▽￣)
（隠居じーさん） 2019/03/02(土) 15:33
Fさんへ 2019/02/22(金) 18:26 に修正した分ですが、動きませんでしたですか。
（隠居じーさん） 2019/03/02(土) 16:22
2019/02/22(金) 11:21のを 2019/02/22(金) 18:26に修正したマクロということですよね？ 動きましたよ！！ただ、これはフォルダ選択対象タイプではないですよね？たしか。試してきます。 （Ｆ） 2019/03/02(土) 18:16
はい、ただこんな感じになるよぉ〜くらいはお解り戴けるかと ＾＾； それに、フォルダ選択機能と重複確認機能をつけたものがご要望の物に、よく似てますです。 でわ m(__)m （隠居じーさん） 2019/03/02(土) 19:31
F さん、おはようございます ＾＾ お待たせいたしました。出来ましたのでアップしておきます。 ○ Ｂ列管理者名 → コード 修正致しました。すみませんでした。 ○ Sub 出力() 、を既存のコマンドボタンに登録してください。
新機能 ★最初に必要シートが揃っているかチェックします。（自動） 他のシートが有っても構いません。コード内の、シート名と 実際のシート名を合わせて下さい。作り替える時も間違いが ないか確認できますので推奨いたします。 ★パターンは自動振分、全て処理は追加書込みです。 ★削除機能は撤去致しました。 ★フォルダ選択、対応 ★空フォルダ対策、対応 取説 ☆フォルダ選択後、空でなければ、自動で追加取込が始まります。 ☆重複確認時の動作が前回とは逆にしています。ＯＫで追加します キャンセルで抜かして次のファイルを処理します。 本日は今から外出予定ですので、その後の対応は夜、以降になります。 何かありましたら。アップしておいてください。＾＾； でわでわ m(_ _)m
Option Explicit
Sub 出力()
Dim Fdnm As String
Dim Fm
SheetChk
Fdnm = FolderSelect
FileCount Fdnm
ForStartProc
Fm = FileMasterChk
転記Ver7 Fdnm, Fm
ForEndProc
End Sub
Private Sub SheetChk()
Dim ws
Dim Wsflg() As Boolean
Dim i As Long
Dim s
Dim buf As String
ws = Array("情報入力シート(A)", "情報入力シート(B)", _
"情報入力シート(C)", "情報入力シート(D)", "情報入力シート(その他)", _
"検査シート(A)", "検査シート(B)", "検査シート(C)", _
"検査シート(D)", "検査シート(その他)", "重複ファイルシート")
ReDim Wsflg(UBound(ws))
For Each s In ThisWorkbook.Worksheets
For i = 0 To UBound(ws)
If s.Name = ws(i) Then
Wsflg(i) = True
End If
Next
Next
For i = 0 To UBound(Wsflg)
If Not Wsflg(i) Then
buf = buf & ws(i) & vbNewLine
End If
Next
If buf <> "" Then
MsgBox "処理に必要なシートが存在しません。作成後再起動してください。" & vbNewLine & buf
End
End If
End Sub
Private Function FolderSelect() As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ThisWorkbook.Path & "\転記元\"
.Title = "フォルダ選択"
.ButtonName = "選択確定"
If .Show Then
FolderSelect = .SelectedItems(1) & "\"
Else
MsgBox "フォルダが取得できません"
FolderSelect = ""
End
End If
End With
End Function
Private Sub FileCount(ByVal fp As String)
Dim Fnm As String
Dim Cnt As Long
Fnm = Dir(fp & "*.xls*")
Do Until Fnm = ""
DoEvents
Cnt = Cnt + 1
Fnm = Dir()
Loop
If Cnt = 0 Then
MsgBox "取り込み対象ファイルが存在しませんでした"
End
End If
End Sub
Private Sub ForStartProc()
With ThisWorkbook.Worksheets("重複ファイルシート")
.Cells(1, 2).Resize(, 3) = _
Array("従前書込済ファイル名", "追加した重複ファイル名", "重複追加処理日時")
End With
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub
Private Function FileMasterChk() As Variant
Dim buf
Dim buf2()
Dim i As Long
Dim j As Long
Dim k As Long
Dim mya
Dim D
Set D = CreateObject("Scripting.Dictionary")
buf = Array("情報入力シート(A)", "情報入力シート(B)", "情報入力シート(C)", _
"情報入力シート(D)", "情報入力シート(その他)")
For i = 1 To ThisWorkbook.Worksheets.Count
For j = 0 To UBound(buf)
If ThisWorkbook.Worksheets(i).Name = buf(j) Then
ReDim Preserve buf2(k)
buf2(k) = ThisWorkbook.Worksheets(i).Name
k = k + 1
Exit For
End If
Next
Next
'配列が空なら（一件でも発生していれば1加算されている）
If k = 0 Then
FileMasterChk = False
Exit Function
End If
For i = 0 To UBound(buf2)
With ThisWorkbook.Worksheets(buf2(i))
mya = Intersect(.Range("C:C"), .Range(.Rows(3), .Rows(.Cells(3, 3).CurrentRegion.Rows.Count + 2)))
If TypeName(mya) <> "Empty" Then
If TypeName(mya) = "String" Then
If Not D.exists(mya) Then
D.Add mya, mya
End If
Else
For k = 1 To UBound(mya, 1)
If mya(k, 1) <> "" Then
If Not D.exists(mya(k, 1)) Then
D.Add mya(k, 1), mya(k, 1)
End If
End If
Next
End If
If TypeName(mya) <> "String" Then
Erase mya
Else
mya = Empty
End If
End If
End With
Next
If D.Count = 0 Then
FileMasterChk = False
Else
With ThisWorkbook.Worksheets("重複ファイルシート")
.Range("B:B").SpecialCells(2).Clear
.Cells(1, 2) = "従前書込済ファイル名"
k = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Cells(k, 2).Resize(D.Count, 1) = WorksheetFunction.Transpose(D.keys)
End With
FileMasterChk = D.keys
End If
End Function
Private Sub 転記Ver7(ByVal fp As String, Fm As Variant)
Dim Fname As String
Dim WB As Workbook
Dim BB As Workbook
Rem 転記先 Write
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Rem 転記元 Read
Dim sh4 As Worksheet
Dim sh5 As Worksheet
Dim sh6 As Worksheet
Dim sh7 As Worksheet
Dim Jr
Dim Mtr
Dim Mkr
Dim snm2
Dim Snmstr As String
Dim i As Long
Dim j As Long
Dim y As Long
Dim y2 As Long
Dim ry As Long
Dim ry2 As Long
Dim lr As Long
Dim lr2 As Long
Dim t As Date
Dim Cnt As Long
Dim cntf As Long
Dim tmpary()
Dim f_flg As Boolean
Dim Myd()
t = Timer
Set BB = Workbooks(ThisWorkbook.Name)
Fname = Dir(fp & "*.xls*")
Cnt = 1
Do Until Fname = ""
DoEvents
If Fname <> BB.Name Then
Set WB = Workbooks.Open(fp & Fname, UpdateLinks:=0)
Set sh4 = WB.Worksheets("情報入力シート")
Set sh5 = WB.Worksheets("検査シート")
Set sh6 = WB.Worksheets("マスタ(都道府県)")
Set sh7 = WB.Worksheets("マスタ(管理)")
Jr = sh4.UsedRange
Mtr = sh6.Range("C2").CurrentRegion
Mkr = Intersect(sh7.Range("C:L"), _
sh7.Range(sh7.Range("B2").CurrentRegion.Rows(1), sh7.Range("B2").CurrentRegion.Rows(2)))
Snmstr = Trim(sh4.Range("B2").Value)
'*******************************************************
'重複ファイル読飛、追加書込、判定
f_flg = File_Dup_Chk(Fname, Fm, Myd, cntf)
If f_flg Then
WB.Close
GoTo step1
End If
'******************************************************
'書込み先シート名をsh4.Range("B2")の値で振り分け処理
Snmstr = IIf(Snmstr = "E", "D", Snmstr)
If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then
Snmstr = "その他"
End If
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
Rem 情報シート書出, 201902、追加のみに修正
With sh2
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr = IIf(lr < 3, 3, lr)
y = lr
Write_J y, sh2, sh4, WB
'シート名
.Cells(y, 1) = Snmstr
'BS列に地域コードを書込処理
For i = 2 To UBound(Mtr, 1)
If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then
.Cells(y, "BS") = Mtr(i, 1)
End If
Next
'管理者コードを各B列書込処理
i = WorksheetFunction.Match(Jr(2, 6), WorksheetFunction.Index(Mkr, 1, 0), 0)
.Cells(y, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
Rem 検査シート書出, 201902、追加のみに修正
With sh3
lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr2 = IIf(lr2 < 7, 7, lr2)
y2 = lr2
Write_K y2, sh3, sh4, sh5, WB
.Cells(y2, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
WB.Close SaveChanges:=False
End If
step1:
Fname = Dir()
DoEvents
Application.StatusBar = Space(7) & "IN = " & Format(Cnt, "0,0")
Cnt = Cnt + 1
Loop
If cntf > 0 Then Last_Write Myd
Erase Myd
MsgBox "作業完了。所要時間、単位秒 ＝ " & Format(Timer - t, "0.0 秒")
End Sub
Private Function File_Dup_Chk(ByVal BName As String, _
ByVal BMaster As Variant, _
ByRef Myd As Variant, _
ByRef Cnt As Long) As Boolean
Dim i As Long
If TypeName(BMaster) = "Boolean" Then
Exit Function
End If
For i = LBound(BMaster) To UBound(BMaster)
If BName = BMaster(i) Then
If vbOK = MsgBox("同一ファイル名の情報がが存在します。" & vbNewLine & Chr(10) & _
"追加処理開始＝ＯＫ" & "追加せず次のファイルを処理＝キャンセル" & _
vbNewLine & Chr(10) & BName, vbOKCancel) Then
ReDim Preserve Myd(Cnt)
Myd(Cnt) = Array(BName, Format(Now(), "yyyy/mm/dd - hh:mm:ss"))
Cnt = Cnt + 1
Exit Function
Else
File_Dup_Chk = True
End If
End If
Next
End Function
Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook)
Dim buffer(1 To 74)
Dim myad2
Dim i As Long
Dim j As Long
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _
"H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _
"B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _
"H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _
"I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _
"B6", "E6")
With ws
For i = 1 To UBound(buffer)
If i = 2 Or i = 3 Or i = 9 Or i = 68 Then GoTo step1
buffer(i) = sh2.Range(myad2(j)).Value
j = j + 1
step1:
Next
buffer(3) = WB.Name
.Cells(y, 1).Resize(, UBound(buffer)) = buffer
End With
End Sub
Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, WB As Workbook)
Dim myad2
Dim buf2
Dim i As Long
Dim j As Long
Dim k As Long
Dim buffer(1 To 699)
Rem 'sh2 = 検査シート, sh4 = 情報入力シート
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2")
buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _
"E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _
"H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _
"I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _
"L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _
"M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _
"N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _
"M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49")
With ws
For i = 1 To UBound(buffer)
If i <= 9 Then
Select Case i
Case 1, 4 To 8
buffer(i) = sh4.Range(myad2(j)).Value
j = j + 1
End Select
ElseIf i > 9 Then
buffer(i) = sh2.Range(buf2(k)).Value
k = k + 1
End If
DoEvents
Next
buffer(3) = WB.Name
.Cells(y2, 1).Resize(, UBound(buffer)) = buffer
End With
End Sub
Private Sub Last_Write(ByVal arg1 As Variant)
Dim lr As Long
With ThisWorkbook.Worksheets("重複ファイルシート")
lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
.Cells(lr, 3).Resize(UBound(arg1, 1) + 1, 2) = WorksheetFunction.Transpose(WorksheetFunction.Transpose(arg1))
End With
End Sub
Private Sub ForEndProc()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.StatusBar = ""
End With
With ThisWorkbook.Worksheets("重複ファイルシート")
.Range("A:E").EntireColumn.AutoFit
.Activate
End With
End Sub
（隠居じーさん） 2019/03/03(日) 09:35
おはようございます。
検証Man参上！！！
ばっちりでございます。(^^; （SoulMan） 2019/03/03(日) 10:08
ありがとうございま〜ぁ〜す。m(__)mm(__)mm(__)m (*^^*)ｖ （隠居じーさん） 2019/03/03(日) 10:10
こんばんは。＾＾ かえってきました。。。ｗ 慌てていたとは言え、つい。昔の悪い癖が。。。さすがにこのコード （↑の） のＧＯＴＯ文はいけませんね。おはずかしい。あとで修正、アップしておきます。A^_^; 全て、条件文で代替出来ますね。ｗ(￣▽￣)ｗ。。。でわでわ ま、動くと言えば動きますけどね。。。下から上向けてジャンプよりかはましかもですね。 m(_ _)m （隠居じーさん） 2019/03/03(日) 16:52
こんばんは。 ＾＾ ツッコミどころ満載ですが。。。 すこぉ〜し、ましになりました。 m(_ _)m
Option Explicit
Sub 出力()
Dim Fdnm As String
Dim Fm
SheetChk
Fdnm = FolderSelect
FileCount Fdnm
ForStartProc
Fm = FileMasterChk
転記Ver7 Fdnm, Fm
ForEndProc
End Sub
Private Sub SheetChk()
Dim ws
Dim Wsflg() As Boolean
Dim i As Long
Dim s
Dim buf As String
ws = Array("情報入力シート(A)", "情報入力シート(B)", _
"情報入力シート(C)", "情報入力シート(D)", "情報入力シート(その他)", _
"検査シート(A)", "検査シート(B)", "検査シート(C)", _
"検査シート(D)", "検査シート(その他)", "重複ファイルシート")
ReDim Wsflg(UBound(ws))
For Each s In ThisWorkbook.Worksheets
For i = 0 To UBound(ws)
If s.Name = ws(i) Then
Wsflg(i) = True
End If
Next
Next
For i = 0 To UBound(Wsflg)
If Not Wsflg(i) Then
buf = buf & ws(i) & vbNewLine
End If
Next
If buf <> "" Then
MsgBox "処理に必要なシートが存在しません。作成後再起動してください。" & vbNewLine & buf
End
End If
End Sub
Private Function FolderSelect() As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ThisWorkbook.Path & "\転記元\"
.Title = "フォルダ選択"
.ButtonName = "選択確定"
If .Show Then
FolderSelect = .SelectedItems(1) & "\"
Else
MsgBox "フォルダが取得できません"
FolderSelect = ""
End
End If
End With
End Function
Private Sub FileCount(ByVal fp As String)
Dim Fnm As String
Dim Cnt As Long
Fnm = Dir(fp & "*.xls*")
Do Until Fnm = ""
DoEvents
Cnt = Cnt + 1
Fnm = Dir()
Loop
If Cnt = 0 Then
MsgBox "取り込み対象ファイルが存在しませんでした"
End
End If
End Sub
Private Sub ForStartProc()
With ThisWorkbook.Worksheets("重複ファイルシート")
.Cells(1, 2).Resize(, 3) = _
Array("従前書込済ファイル名", "追加した重複ファイル名", "重複追加処理日時")
End With
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub
Private Function FileMasterChk() As Variant
Dim buf
Dim buf2()
Dim i As Long
Dim j As Long
Dim k As Long
Dim mya
Dim D
Set D = CreateObject("Scripting.Dictionary")
buf = Array("情報入力シート(A)", "情報入力シート(B)", "情報入力シート(C)", _
"情報入力シート(D)", "情報入力シート(その他)")
For i = 1 To ThisWorkbook.Worksheets.Count
For j = 0 To UBound(buf)
If ThisWorkbook.Worksheets(i).Name = buf(j) Then
ReDim Preserve buf2(k)
buf2(k) = ThisWorkbook.Worksheets(i).Name
k = k + 1
Exit For
End If
Next
Next
'配列が空なら（一件でも発生していれば1加算されている）
If k = 0 Then
FileMasterChk = False
Exit Function
End If
For i = 0 To UBound(buf2)
With ThisWorkbook.Worksheets(buf2(i))
mya = Intersect(.Range("C:C"), .Range(.Rows(3), .Rows(.Cells(3, 3).CurrentRegion.Rows.Count + 2)))
If TypeName(mya) <> "Empty" Then
If TypeName(mya) = "String" Then
If Not D.exists(mya) Then
D.Add mya, mya
End If
Else
For k = 1 To UBound(mya, 1)
If mya(k, 1) <> "" Then
If Not D.exists(mya(k, 1)) Then
D.Add mya(k, 1), mya(k, 1)
End If
End If
Next
End If
If TypeName(mya) <> "String" Then
Erase mya
Else
mya = Empty
End If
End If
End With
Next
If D.Count = 0 Then
FileMasterChk = False
Else
With ThisWorkbook.Worksheets("重複ファイルシート")
.Range("B:B").SpecialCells(2).Clear
.Cells(1, 2) = "従前書込済ファイル名"
k = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Cells(k, 2).Resize(D.Count, 1) = WorksheetFunction.Transpose(D.keys)
End With
FileMasterChk = D.keys
End If
End Function
Private Sub 転記Ver7(ByVal fp As String, Fm As Variant)
Dim fname As String
Dim WB As Workbook
Dim BB As Workbook
Rem 転記先 Write
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Rem 転記元 Read
Dim sh4 As Worksheet
Dim sh5 As Worksheet
Dim sh6 As Worksheet
Dim sh7 As Worksheet
Dim Jr
Dim Mtr
Dim Mkr
Dim snm2
Dim Snmstr As String
Dim i As Long
Dim j As Long
Dim y As Long
Dim y2 As Long
Dim ry As Long
Dim ry2 As Long
Dim lr As Long
Dim lr2 As Long
Dim t As Date
Dim Cnt As Long
Dim cntf As Long
Dim tmpary()
Dim f_flg As Boolean
Dim Myd()
t = Timer
Set BB = Workbooks(ThisWorkbook.Name)
fname = Dir(fp & "*.xls*")
Cnt = 1
Do Until fname = ""
DoEvents
If fname <> BB.Name Then
Set WB = Workbooks.Open(fp & fname, UpdateLinks:=0)
Set sh4 = WB.Worksheets("情報入力シート")
Set sh5 = WB.Worksheets("検査シート")
Set sh6 = WB.Worksheets("マスタ(都道府県)")
Set sh7 = WB.Worksheets("マスタ(管理)")
Jr = sh4.UsedRange
Mtr = sh6.Range("C2").CurrentRegion
Mkr = Intersect(sh7.Range("C:L"), _
sh7.Range(sh7.Range("B2").CurrentRegion.Rows(1), sh7.Range("B2").CurrentRegion.Rows(2)))
Snmstr = Trim(sh4.Range("B2").Value)
f_flg = File_Dup_Chk(fname, Fm, Myd, cntf)
'重複ファイル読飛、追加書込、判定,trueで読み飛ばしfalseで実行
If Not f_flg Then
'書込み先シート名をsh4.Range("B2")の値で振り分け処理
Snmstr = IIf(Snmstr = "E", "D", Snmstr)
If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then
Snmstr = "その他"
End If
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
Rem 情報シート書出, 201902、追加のみに修正
With sh2
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr = IIf(lr < 3, 3, lr)
y = lr
Write_J y, sh2, sh4, WB
'シート名
.Cells(y, 1) = Snmstr
'BS列に地域コードを書込処理
For i = 2 To UBound(Mtr, 1)
If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then
.Cells(y, "BS") = Mtr(i, 1)
End If
Next
'管理者コードを各B列書込処理
i = WorksheetFunction.Match(Jr(2, 6), WorksheetFunction.Index(Mkr, 1, 0), 0)
.Cells(y, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
Rem 検査シート書出, 201902、追加のみに修正
With sh3
lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr2 = IIf(lr2 < 7, 7, lr2)
y2 = lr2
Write_K y2, sh3, sh4, sh5, WB
.Cells(y2, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
End If
End If
WB.Close SaveChanges:=False
fname = Dir()
DoEvents
Application.StatusBar = Space(7) & "IN = " & Format(Cnt, "0,0")
Cnt = Cnt + 1
Loop
If cntf > 0 Then Last_Write Myd
Erase Myd
MsgBox "作業完了。所要時間、単位秒 ＝ " & Format(Timer - t, "0.0 秒")
End Sub
Private Function File_Dup_Chk(ByVal BName As String, _
ByVal BMaster As Variant, _
ByRef Myd As Variant, _
ByRef Cnt As Long) As Boolean
Dim i As Long
If TypeName(BMaster) = "Boolean" Then
Exit Function
End If
For i = LBound(BMaster) To UBound(BMaster)
If BName = BMaster(i) Then
If vbOK = MsgBox("同一ファイル名の情報がが存在します。" & vbNewLine & Chr(10) & _
"追加処理開始＝ＯＫ" & "追加せず次のファイルを処理＝キャンセル" & _
vbNewLine & Chr(10) & BName, vbOKCancel) Then
ReDim Preserve Myd(Cnt)
Myd(Cnt) = Array(BName, Format(Now(), "yyyy/mm/dd - hh:mm:ss"))
Cnt = Cnt + 1
Exit Function
Else
File_Dup_Chk = True
End If
End If
Next
End Function
Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook)
Dim buffer(1 To 74)
Dim myad2
Dim i As Long
Dim j As Long
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _
"H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _
"B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _
"H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _
"I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _
"B6", "E6")
With ws
For i = 1 To UBound(buffer)
If (i <> 2) * (i <> 3) * (i <> 9) * (i <> 68) Then
buffer(i) = sh2.Range(myad2(j)).Value
j = j + 1
End If
Next
buffer(3) = WB.Name
.Cells(y, 1).Resize(, UBound(buffer)) = buffer
End With
End Sub
Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, WB As Workbook)
Dim myad2
Dim buf2
Dim i As Long
Dim j As Long
Dim k As Long
Dim buffer(1 To 699)
Rem 'sh2 = 検査シート, sh4 = 情報入力シート
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2")
buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _
"E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _
"H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _
"I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _
"L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _
"M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _
"N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _
"M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49")
With ws
For i = 1 To UBound(buffer)
If i <= 9 Then
Select Case i
Case 1, 4 To 8
buffer(i) = sh4.Range(myad2(j)).Value
j = j + 1
End Select
ElseIf i > 9 Then
buffer(i) = sh2.Range(buf2(k)).Value
k = k + 1
End If
DoEvents
Next
buffer(3) = WB.Name
.Cells(y2, 1).Resize(, UBound(buffer)) = buffer
End With
End Sub
Private Sub Last_Write(ByVal arg1 As Variant)
Dim lr As Long
With ThisWorkbook.Worksheets("重複ファイルシート")
lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
.Cells(lr, 3).Resize(UBound(arg1, 1) + 1, 2) = WorksheetFunction.Transpose(WorksheetFunction.Transpose(arg1))
End With
End Sub
Private Sub ForEndProc()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.StatusBar = ""
End With
With ThisWorkbook.Worksheets("重複ファイルシート")
.Range("A:E").EntireColumn.AutoFit
.Activate
End With
End Sub
（隠居じーさん） 2019/03/03(日) 18:10
なんか本格的になってきましたね
快適に動いておりますですよ。
私は、Motivationが全然あがりませんので見物です。
でも、これはこれで、、中々、、面白い(笑) （SoulMan） 2019/03/03(日) 19:25
こんばんは。＾＾ Soulmanさんのご助力がなければ。出来ていませんでしたよ。↑の条件文もお師匠様の パクリですよ。毎度お世話になっております。有難うございました。m(__)m でわ
（隠居じーさん） 2019/03/03(日) 19:59
お世話になっております。
（隠居じーさん） 2019/03/03(日) 18:10のコードを試させていただきました。
これはすごいですね。処理も早いです。。。
シーと名等こちらの環境に変えて試してみます。。。
すごいです。ありがとうございます。
（Ｆ） 2019/03/04(月) 10:19
上記でインデックスが有効な範囲内にないと言われますね。。。。
シート名、B２の値は間違いなく変えたのですが。。
ただ、テスト環境で完璧に動いているので、完全にどこか間違えてますね。精査します。
（Ｆ） 2019/03/04(月) 11:32
Snmstr = "その他"
End If
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
Rem 情報シート書出, 201902、追加のみに修正
上記のA〜Eを変更してますが、日本語だからダメというわけではないですよね？
また、 Rem 情報シート書出, 201902、追加のみに修正はそのままでも良いですかね（実際のシート名に変更）
（Ｆ） 2019/03/04(月) 11:40
■重複しーとにつて
重複ファイル名のチェックは部分一致なのでしょうか？何かファイル名以外で重複チェックされてますでしょうか。
テスト実行結果
既存ファイル名 追加した重複ファイル名 重複追加処理日時
京都 - コピー.xlsx a - コピー.xlsx 2019/03/04 - 11:49:52
京都.xlsx a.xlsx 2019/03/04 - 11:49:53
d.xlsx 大阪.xlsx 2019/03/04 - 11:50:03
（Ｆ） 2019/03/04(月) 11:54
こんにちは ＾＾
Private Function FileMasterChk() As Variant
の
buf = Array("情報入力シート(A)", "情報入力シート(B)", "情報入力シート(C)", _
"情報入力シート(D)", "情報入力シート(その他)")
のシートのＢ列に記載のファイル名を取得して
完全一致で処理です（イコールです）
ので上記配列bufのシート名も実際の物に変更する必要があります。
（隠居じーさん） 2019/03/04(月) 12:30
追伸、 コードのエディター内（コード内の先頭で）Ctrl + Ｆ で シート 、で検索かけて ヒットしたもので、シートー名の物は実際のシート名に変更が必要です。 （隠居じーさん） 2019/03/04(月) 12:36
＞＞重複ファイル名のチェックは部分一致なのでしょうか？何かファイル名以外で重複チェックされてますでしょうか。 エラーでは無くなにか内容に、不都合が有ったのでしょうか。
（隠居じーさん） 2019/03/04(月) 12:46
上記で少し思ったのが、「既存ファイル名」と「追加した重複ファイル名」は同じものになるはずではないでしょうか？（勘違いですかね？？）
たとえは、京都 - コピー.xls横の「追加した重複ファイル名」には京都 - コピー.xlsが来るのではないでしょうか（現状、a - コピー.xlsx）
勘違いしていたらすみません。
（Ｆ） 2019/03/04(月) 13:05
こんにちは ＾＾ あ！はい。そおいう事でしたか。確かに現状ではおっしゃる通りです。 今回追加分を含む含まないは別といたしましても。既存ファイルは現在対象シートに 取り込んだファイルで、追加したファイルは追加分だけですので。おのずと中身は 同じにはなり得ないと思います。 現状は、取込開始前の各シートのファイルを取込、重複した名前は削除して、比較 に使うマスターの中身として表示しています。必ずしも数は一致しません。 変更しますか。（お聞きすれば良かったですね。済みません） もし変更するなら、詳細を教えて下さい。 （隠居じーさん） 2019/03/04(月) 13:40
上記はかなりの改修になりますでしょうか？
（Ｆ） 2019/03/04(月) 13:50
上記はかなりの改修になりますでしょうか？
（Ｆ） 2019/03/04(月) 13:50
いえ、そんなに難しくは有りませんが。１，２か所変更すれば。。。とはいきません 、それと一寸私の勘違いだったかも。。。。 京都 - コピー.xlsxを再度読み込んで重複処理すれば京都 - コピー.xlsxが表示されるはずですが。 確認してみます。 いずれにしても、既存ファイルは要らない、とのご希望でしたら、修正致しますが。 どうすれば良いですか。 １．そのままにして既存ファイル列をご希望の表示にする。 ２．やっぱり取り消して、重複、キャンセル明細にする。 m(__)m （隠居じーさん） 2019/03/04(月) 14:08
いえ、そんなに難しくは有りませんが。１，２か所変更すれば。。。とはいきません ■やはりそうですよね。すみません。 ２．やっぱり取り消して、重複、キャンセル明細にする。 ■できたらこちらでお願いします。既存ファイルは取り込みシートをみるということで。。。 （Ｆ） 2019/03/04(月) 14:15
d = Left(t, 2)
m = Mid(t, 3, 2)
m = m / 60
s = Right(t, Len(t) - 4)
s = s / 60 / 60
Conv = d + m + s
End Function
呼び出し方
.Range("BU" & i).Value= Conv(sh4.Range("B6").Value)
.Range("BV" & i).Value = Conv(sh4.Range("E6").Value)
（Ｆ） 2019/03/04(月) 14:28
確認致しました。 既存ファイル列はユニークになっている為とキャンセル時は追加ファイルには記載が有りませんので 数は個なりますが既存ファイルにないファイルは重複処理されません。従って、重複ファイル名は 必ず既存ファイル列に含まれているはずです。後学の為（Ｆ）さん 2019/03/04(月) 13:05の実験内容 を教えて下さい。宜しくお願い致します。(私が間違っていますと修正しないと意味がありませんので） 10進数は見てみますね。。。m(__)m でわでわ （隠居じーさん） 2019/03/04(月) 14:46
sh4.Range("B6").Value
sh4.Range("E6").Value
の具体的な値を教えて下さい
データ10、データ11
ではわかりませんです。
（隠居じーさん） 2019/03/04(月) 14:58
（隠居じーさん） 2019/03/04(月) 15:10
２．上記フォルダを取り込みます。
３．再度そのフォルダを取り込み、重複シートを確認しました（OK、キャンセルはランダムで選択）
４．（Ｆ） 2019/03/04(月) 13:05のように既存ファイルと追加したファイル名が異なっていたのでおやっと思いました。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
大変失礼いたしました。
B6に入るのは緯度
E6に入っているのは経度データです。
60進数
緯度 :354052.45
経度:139461.65
↓
10進数
緯度:35.681236
経度: 139.767125
小数点以下の桁数はデータによって違う可能性ありです。
（Ｆ） 2019/03/04(月) 15:15
こんにちは。 実験内容、有難うございました。再度、同じようにしてみます。 コードを再点検してみますね。 10進数変換については 提示いただいたコードをそのまま使用して 結果も何も触らず。そのまま、コードに 組み込めばいいですかね。
35.68123611
14.58379167
という結果になりますが。。。おかしいですよね。
（変換した内容をそのまま所定の位置へ書込み。） 情報入力シートだけですね。 そんなに難しくはないと思いますので早速取り掛かります。 では
m(__)m
（隠居じーさん） 2019/03/04(月) 15:43
重複ファイル列の件はやりようによってはFさんの様な内容も起こりえない事は無いと言う事で。ただ追加、キャンセルは正確に把握できていることは 確認できましたので。変更いたしますね、緯度経度はあまりわかりませんで 済みません。ご提示のコードで計算結果が正しいのであればそのまま組み込 みます。 でわ
（隠居じーさん） 2019/03/04(月) 16:13
■緯度経度について
おかしいですね。。。
すみません。精査します。
緯度の度は２桁で経度は３桁なので、その辺がおかしいでしょうか。
以上、よろしくお願いします。
（Ｆ） 2019/03/04(月) 17:04
＞＞緯度の度は２桁で経度は３桁なので、その辺がおかしいでしょうか。 そうかもしれませんね。 ご提示のコードは取り込んだ文字列を先頭から2文字3文字目から2文字、後残り全てに 三分割して、２，３番目を各、６０で割り算して、３項目を足算したものです。 多分時間計算用？。。。？？ 計算式がお解りでしたら教えていただくとコード化は出来ますけど。
（隠居じーさん） 2019/03/04(月) 17:29
＞＞重複ファイル名をA列に、キャンセルしたファイル名をB列、重複追加処理日時をC列に表示するでお願いします 出来ましたけど、一回、作動させる毎に、初期化しますか、累積しますか。 累積すればするほど見にくくなるかもですね。
A B C
1 追加した重複ファイル名 キャンセルした重複ファイル名 重複追加処理日時
2 D.xlsm 京都 - コピー.xlsm 2019/03/04 - 17:35:29
3 京都.xlsm 2019/03/04 - 17:35:32
（隠居じーさん） 2019/03/04(月) 17:46
（隠居じーさん） 2019/03/04(月) 17:56
354052.45 139461.65 ではなく、
354052.45 1394601.65 ではないでしょうか？（東京駅ですかね）
でもって、60進数→10進数変換は、先週話題になったので（[[20190226155306]]）、その時の私のコードを関数化すると、以下になります。
Function dd(dw As Double) As Double
Dim cw As String
cw = Format(dw, "0000000.0000")
dd = Mid(cw, 1, 3) * 1 + Mid(cw, 4, 2) / 60 + Mid(cw, 6) / 3600
End Function
これで変換すると、10進数では以下。
35.68123611 139.767125 （???） 2019/03/04(月) 18:01
＾＾；計算式解りました。組み替えます。暫時お待ちを。。。。。でわ （隠居じーさん） 2019/03/04(月) 18:01
？？？さんありがとうございます。。。m(__)m助かります。 編集かぶっていまして。お礼が後先になり済みませんでした （隠居じーさん） 2019/03/04(月) 18:02
？？？さんの関数そのままパクらさせて頂きます。＾＾； 感謝、感謝です m(__)m （隠居じーさん） 2019/03/04(月) 18:06
いろいろありがとうございます。
隠居じーさん様
＞＞重複ファイル名をA列に、キャンセルしたファイル名をB列、重複追加処理日時をC列に表示するでお願いします
出来ましたけど、一回、作動させる毎に、初期化しますか、累積しますか。
累積すればするほど見にくくなるかもですね。
■そうですね。ただ、累積でお願いします。
A B C
1 追加した重複ファイル名 キャンセルした重複ファイル名 重複追加処理日時
2 D.xlsm 京都 - コピー.xlsm 2019/03/04 - 17:35:29
3 京都.xlsm
（Ｆ） 2019/03/04(月) 18:07
（隠居じーさん） 2019/03/04(月) 18:19
Ｆさんすみませんご案内の計算コードも 二つ目は60で 三つ目は3600でわっていましたね。 （隠居じーさん） 2019/03/04(月) 18:32
おはようございます ＾＾ とりあえず コード書きなおしましたけど。。。まだ デバッグの残骸が残っています。昼すぎくらいに整理は出来ると思うのですが テストはしていません。そちらでやってみていただけます。。。？ 午後３時以降くらいになりましたら。エラー対応可能です ＾＾； （隠居じーさん） 2019/03/05(火) 10:43
こんにちは。。。 ＾＾ お待たせ致しました。。。え〜と、帰ってくるの４時頃になりそぉなので。。。すみません でわ
Option Explicit
Sub 出力()
Dim Fdnm As String
SheetChk
Fdnm = FolderSelect
FileCount Fdnm
ForStartProc
転記Ver8 Fdnm
ForEndProc
End Sub
Private Sub SheetChk()
Dim ws
Dim Wsflg() As Boolean
Dim i As Long
Dim s
Dim buf As String
ws = Array("情報入力シート(A)", "情報入力シート(B)", _
"情報入力シート(C)", "情報入力シート(D)", "情報入力シート(その他)", _
"検査シート(A)", "検査シート(B)", "検査シート(C)", _
"検査シート(D)", "検査シート(その他)", "重複ファイルシート")
ReDim Wsflg(UBound(ws))
For Each s In ThisWorkbook.Worksheets
For i = 0 To UBound(ws)
If s.Name = ws(i) Then
Wsflg(i) = True
End If
Next
Next
For i = 0 To UBound(Wsflg)
If Not Wsflg(i) Then
buf = buf & ws(i) & vbNewLine
End If
Next
If buf <> "" Then
MsgBox "処理に必要なシートが存在しません。作成後再起動してください。" & vbNewLine & buf
End
End If
End Sub
Private Function FolderSelect() As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ThisWorkbook.Path & "\転記元\"
.Title = "フォルダ選択"
.ButtonName = "選択確定"
If .Show Then
FolderSelect = .SelectedItems(1) & "\"
Else
MsgBox "フォルダが取得できません"
FolderSelect = ""
End
End If
End With
End Function
Private Sub FileCount(ByVal fp As String)
Dim Fnm As String
Dim Cnt As Long
Fnm = Dir(fp & "*.xls*")
Do Until Fnm = ""
DoEvents
Cnt = Cnt + 1
Fnm = Dir()
Loop
If Cnt = 0 Then
MsgBox "取り込み対象ファイルが存在しませんでした"
End
End If
End Sub
Private Sub ForStartProc()
With ThisWorkbook.Worksheets("重複ファイルシート")
If .Cells(1) = "" Then
.Cells(1, 1).Resize(, 3) = _
Array("追加した重複ファイル名", "キャンセルした重複ファイル名", "重複追加処理日時")
End If
End With
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub
Private Function File_Dup_Chk(ByVal BName As String, _
ByVal BMaster As Variant, _
ByRef MD() As Object, _
ByRef Dcnt() As Long) As Boolean
Dim i As Long
If BMaster.Count = 0 Then
File_Dup_Chk = False
Exit Function
End If
For i = 0 To BMaster.Count - 1
If BName = BMaster.keys()(i) Then
If vbOK = MsgBox("同一ファイル名の情報がが存在します。" & vbNewLine & Chr(10) & _
"追加処理開始＝ＯＫ" & "追加せず次のファイルを処理＝キャンセル" & _
vbNewLine & Chr(10) & BName, vbOKCancel) Then
MD(1).Add Dcnt(1), BName
MD(3).Add Dcnt(3), Format(Now(), "yyyy/mm/dd - hh:mm:ss")
Dcnt(1) = Dcnt(1) + 1
Dcnt(3) = Dcnt(3) + 1
File_Dup_Chk = False
Exit Function
Else
MD(2).Add Dcnt(2), BName
Dcnt(2) = Dcnt(2) + 1
File_Dup_Chk = True
End If
End If
Next
End Function
Private Function FileMasterChk() As Object
Dim buf
Dim buf2()
Dim i As Long
Dim j As Long
Dim k As Long
Dim mya
Dim D As Object
Set D = CreateObject("Scripting.Dictionary")
buf = Array("情報入力シート(A)", "情報入力シート(B)", "情報入力シート(C)", _
"情報入力シート(D)", "情報入力シート(その他)")
For i = 1 To ThisWorkbook.Worksheets.Count
For j = 0 To UBound(buf)
If ThisWorkbook.Worksheets(i).Name = buf(j) Then
ReDim Preserve buf2(k)
buf2(k) = ThisWorkbook.Worksheets(i).Name
k = k + 1
Exit For
End If
Next
Next
'配列が空なら（一件でも発生していれば1加算されている）
If k = 0 Then Exit Function
For i = 0 To UBound(buf2)
With ThisWorkbook.Worksheets(buf2(i))
mya = Intersect(.Range("C:C"), .Range(.Rows(3), .Rows(.Cells(3, 3).CurrentRegion.Rows.Count + 2)))
If TypeName(mya) <> "Empty" Then
If TypeName(mya) = "String" Then
If Not D.exists(mya) Then
D.Add mya, mya
End If
Else
For k = 1 To UBound(mya, 1)
If mya(k, 1) <> "" Then
If Not D.exists(mya(k, 1)) Then
D.Add mya(k, 1), mya(k, 1)
End If
End If
Next
End If
If TypeName(mya) <> "String" Then
Erase mya
Else
mya = Empty
End If
End If
End With
Next
Set FileMasterChk = D
End Function
Private Sub 転記Ver8(ByVal fp As String)
Dim fname As String
Dim WB As Workbook
Dim BB As Workbook
Rem 転記先 Write
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Rem 転記元 Read
Dim sh4 As Worksheet
Dim sh5 As Worksheet
Dim sh6 As Worksheet
Dim sh7 As Worksheet
Dim Jr
Dim Mtr
Dim Mkr
Dim snm2
Dim Snmstr As String
Dim i As Long
Dim j As Long
Dim y As Long
Dim y2 As Long
Dim ry As Long
Dim ry2 As Long
Dim lr As Long
Dim lr2 As Long
Dim t As Date
Dim Cnt As Long
Dim Dcnt(1 To 3) As Long
Dim tmpary()
Dim f_flg As Boolean
Dim MD(1 To 3) As Object
Dim M_flg
t = Timer
Dim BD As Object
Set BD = FileMasterChk
For i = 1 To 3
Set MD(i) = CreateObject("Scripting.Dictionary")
Next
Set BB = Workbooks(ThisWorkbook.Name)
fname = Dir(fp & "*.xls*")
Cnt = 1
Do Until fname = ""
DoEvents
If fname <> BB.Name Then
Set WB = Workbooks.Open(fp & fname, UpdateLinks:=0)
Set sh4 = WB.Worksheets("情報入力シート")
Set sh5 = WB.Worksheets("検査シート")
Set sh6 = WB.Worksheets("マスタ(都道府県)")
Set sh7 = WB.Worksheets("マスタ(管理)")
Jr = sh4.UsedRange
Mtr = sh6.Range("C2").CurrentRegion
Mkr = Intersect(sh7.Range("C:L"), _
sh7.Range(sh7.Range("B2").CurrentRegion.Rows(1), sh7.Range("B2").CurrentRegion.Rows(2)))
Snmstr = Trim(sh4.Range("B2").Value)
'FLG判定
f_flg = File_Dup_Chk(fname, BD, MD(), Dcnt)
'重複ファイル読飛、追加書込、判定,trueで読み飛ばしfalseで実行
If Not f_flg Then
'書込み先シート名をsh4.Range("B2")の値で振り分け処理
Snmstr = IIf(Snmstr = "E", "D", Snmstr)
If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then
Snmstr = "その他"
End If
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
Rem 情報シート書出, 201902、追加のみに修正
'情報入力シートのBU列、BV列に転記元（sh4）B6、E6から値を取得。
'呼び出し方
'.Range("BU" & i).Value = Conv(sh4.Range("B6").Value) Jr(6,2)
' .Range("BV" & i).Value = Conv(sh4.Range("E6").Value) Jr(6,5)
'（Ｆ） 2019/03/04(月) 14:28 6,2 6,5
With sh2
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr = IIf(lr < 3, 3, lr)
y = lr
Write_J y, sh2, sh4, WB
'緯度、経度変換追加
On Error Resume Next
If IsNumeric(CDbl(Jr(6, 2))) Then
.Cells(y, "BU") = dd(CDbl(Jr(6, 2)))
.Cells(y, "BV") = dd(CDbl(Jr(6, 5)))
End If
On Error GoTo 0
'シート名
.Cells(y, 1) = Snmstr
'BS列に地域コードを書込処理
For i = 2 To UBound(Mtr, 1)
If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then
.Cells(y, "BS") = Mtr(i, 1)
End If
Next
i = 0
'管理者コードを各B列書込処理
i = WorksheetFunction.Match(Jr(2, 6), WorksheetFunction.Index(Mkr, 1, 0), 0)
.Cells(y, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
Rem 検査シート書出, 201902、追加のみに修正
With sh3
lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr2 = IIf(lr2 < 7, 7, lr2)
y2 = lr2
Write_K y2, sh3, sh4, sh5, WB
.Cells(y2, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
End If
End If
WB.Close SaveChanges:=False
fname = Dir()
DoEvents
Application.StatusBar = Space(7) & "IN = " & Format(Cnt, "0,0")
Cnt = Cnt + 1
Loop
Last_Write MD()
For i = 1 To 3
Set MD(i) = Nothing
Next
Set BD = Nothing
MsgBox "作業完了。所要時間、単位秒 ＝ " & Format(Timer - t, "0.0 秒")
End Sub
Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook)
Dim buffer(1 To 74)
Dim myad2
Dim i As Long
Dim j As Long
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _
"H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _
"B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _
"H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _
"I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _
"B6", "E6")
With ws
For i = 1 To UBound(buffer)
If (i <> 2) * (i <> 3) * (i <> 9) * (i <> 68) Then
buffer(i) = sh2.Range(myad2(j)).Value
j = j + 1
End If
Next
buffer(3) = WB.Name
.Cells(y, 1).Resize(, UBound(buffer)) = buffer
End With
End Sub
Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, WB As Workbook)
Dim myad2
Dim buf2
Dim i As Long
Dim j As Long
Dim k As Long
Dim buffer(1 To 699)
Rem 'sh2 = 検査シート, sh4 = 情報入力シート
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2")
buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _
"E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _
"H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _
"I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _
"L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _
"M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _
"N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _
"M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49")
With ws
For i = 1 To UBound(buffer)
If i <= 9 Then
Select Case i
Case 1, 4 To 8
buffer(i) = sh4.Range(myad2(j)).Value
j = j + 1
End Select
ElseIf i > 9 Then
buffer(i) = sh2.Range(buf2(k)).Value
k = k + 1
End If
DoEvents
Next
buffer(3) = WB.Name
.Cells(y2, 1).Resize(, UBound(buffer)) = buffer
End With
End Sub
Private Sub Last_Write(ByRef arg1() As Object)
Dim lr As Long
Dim i As Long
Dim X As Long
With ThisWorkbook.Worksheets("重複ファイルシート")
For i = 1 To 3
lr = .Cells(.Rows.Count, i).End(xlUp).Row + 1
If arg1(i).Count > 0 Then
.Cells(lr, i).Resize(arg1(i).Count, 1) = WorksheetFunction.Transpose(arg1(i).items)
End If
Next
End With
End Sub
Private Sub ForEndProc()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.StatusBar = ""
End With
With ThisWorkbook.Worksheets("重複ファイルシート")
.Range("A:E").EntireColumn.AutoFit
.Activate
End With
End Sub
Function dd(dw As Double) As Double
Dim cw As String
cw = Format(dw, "0000000.0000")
dd = Mid(cw, 1, 3) * 1 + Mid(cw, 4, 2) / 60 + Mid(cw, 6) / 3600
End Function
（隠居じーさん） 2019/03/05(火) 12:46
Function dd(dw As Double) As Double
↓ に変更しておいてください。
Private Function dd(dw As Double) As Double
（隠居じーさん） 2019/03/05(火) 12:55
ただ、一つだけ変更したいのですが（何度もすみません）、
情報入力シート（A〜D）のBT列には情報入力シートのB5とC5を転記させたいのですが、
現状C5の値です。
myad2 = Array( 〜〜〜〜省略"B2&C5"〜〜省略)
だとエラーが出ます。rangeの場合は上記のような&でもいけましたが、配列？の場合はまた違うのでしょうか？
（Ｆ） 2019/03/05(火) 14:04
こんにちは。 長い道のりもやつとゴールが見えてきましたですね。＾＾
Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook) の一番最後
buffer(3) = WB.Name .Cells(y, 1).Resize(, UBound(buffer)) = buffer
↓
buffer(3) = WB.Name buffer(72) = sh2.Range(myad2(66)) & sh2.Range(myad2(67)) .Cells(y, 1).Resize(, UBound(buffer)) = buffer
の様に変えて下さい。（1行コード挿入） （隠居じーさん） 2019/03/05(火) 15:57
上記承知いたしました。ありがとうございます。
ちなみに、現verは列見出シートは必要ない感じでしょうか？
（Ｆ） 2019/03/05(火) 17:06
こんばんは ＾＾ いえいえ。他の回答者様なら、もっと早くて、 コードもスマートなの作ってくださったかもしれませんね。 列見出しシート。。。は使用していません。 応援して下さったみなさん、有難うございました。 Ｆさん、お疲れさまでした。でわ。 m(__)m
（隠居じーさん） 2019/03/05(火) 17:13
ただ、重複しーとについて１点気づいてしまいました。
■現状
追加した重複ファイル名 キャンセルした重複ファイル名 重複追加処理日時
a.xlsx b.xlsx 2019/03/05 - 17:08:23 c.xlsx 2019/03/05 - 17:08:24
■理想
追加した重複ファイル名 重複追加処理日時 キャンセルした重複ファイル名 重複追加処理日時
a.xlsx 2019/03/05 - 17:08:23 b.xlsx 2019/03/05 - 17:08:23 c.xlsx 2019/03/05 - 17:08:24
追加処理した時間（B列）、キャンセルした処理の時間列（D列）にするのが良いかのかなと今更思いました。
どうでしょうか？現状は追加した時間がC列に表示されてます？
（Ｆ） 2019/03/05(火) 17:24
こんばんは ＾＾ で 変更ご希望ですか？
(*^^*) （隠居じーさん） 2019/03/05(火) 17:56
こんばんは ＾＾ そんなにむつかしくはないのですが。何箇所か変更、追記が必要でしたので 書き換えておきました。 でわ
Option Explicit
Sub 出力()
Dim Fdnm As String
SheetChk
Fdnm = FolderSelect
FileCount Fdnm
ForStartProc
転記Ver8 Fdnm
ForEndProc
End Sub
Private Sub SheetChk()
Dim ws
Dim Wsflg() As Boolean
Dim i As Long
Dim s
Dim buf As String
ws = Array("情報入力シート(A)", "情報入力シート(B)", _
"情報入力シート(C)", "情報入力シート(D)", "情報入力シート(その他)", _
"検査シート(A)", "検査シート(B)", "検査シート(C)", _
"検査シート(D)", "検査シート(その他)", "重複ファイルシート")
ReDim Wsflg(UBound(ws))
For Each s In ThisWorkbook.Worksheets
For i = 0 To UBound(ws)
If s.Name = ws(i) Then
Wsflg(i) = True
End If
Next
Next
For i = 0 To UBound(Wsflg)
If Not Wsflg(i) Then
buf = buf & ws(i) & vbNewLine
End If
Next
If buf <> "" Then
MsgBox "処理に必要なシートが存在しません。作成後再起動してください。" & vbNewLine & buf
End
End If
End Sub
Private Function FolderSelect() As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ThisWorkbook.Path & "\転記元\"
.Title = "フォルダ選択"
.ButtonName = "選択確定"
If .Show Then
FolderSelect = .SelectedItems(1) & "\"
Else
MsgBox "フォルダが取得できません"
FolderSelect = ""
End
End If
End With
End Function
Private Sub FileCount(ByVal fp As String)
Dim Fnm As String
Dim Cnt As Long
Fnm = Dir(fp & "*.xls*")
Do Until Fnm = ""
DoEvents
Cnt = Cnt + 1
Fnm = Dir()
Loop
If Cnt = 0 Then
MsgBox "取り込み対象ファイルが存在しませんでした"
End
End If
End Sub
Private Sub ForStartProc()
With ThisWorkbook.Worksheets("重複ファイルシート")
If .Cells(1) = "" Then
.Cells(1, 1).Resize(, 4) = _
Array("追加した重複ファイル名", "重複追加処理日時", "キャンセルした重複ファイル名", "重複追加キャンセル日時")
End If
End With
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub
Private Function File_Dup_Chk(ByVal BName As String, _
ByVal BMaster As Variant, _
ByRef MD() As Object, _
ByRef Dcnt() As Long) As Boolean
Dim i As Long
If BMaster.Count = 0 Then
File_Dup_Chk = False
Exit Function
End If
For i = 0 To BMaster.Count - 1
If BName = BMaster.keys()(i) Then
If vbOK = MsgBox("同一ファイル名の情報がが存在します。" & vbNewLine & Chr(10) & _
"追加処理開始＝ＯＫ" & "追加せず次のファイルを処理＝キャンセル" & _
vbNewLine & Chr(10) & BName, vbOKCancel) Then
MD(1).Add Dcnt(1), BName
MD(3).Add Dcnt(3), Format(Now(), "yyyy/mm/dd - hh:mm:ss")
Dcnt(1) = Dcnt(1) + 1
Dcnt(3) = Dcnt(3) + 1
File_Dup_Chk = False
Exit Function
Else
MD(2).Add Dcnt(2), BName
MD(4).Add Dcnt(4), Format(Now(), "yyyy/mm/dd - hh:mm:ss")
Dcnt(2) = Dcnt(2) + 1
Dcnt(4) = Dcnt(4) + 1
File_Dup_Chk = True
End If
End If
Next
End Function
Private Function FileMasterChk() As Object
Dim buf
Dim buf2()
Dim i As Long
Dim j As Long
Dim k As Long
Dim mya
Dim D As Object
Set D = CreateObject("Scripting.Dictionary")
buf = Array("情報入力シート(A)", "情報入力シート(B)", "情報入力シート(C)", _
"情報入力シート(D)", "情報入力シート(その他)")
For i = 1 To ThisWorkbook.Worksheets.Count
For j = 0 To UBound(buf)
If ThisWorkbook.Worksheets(i).Name = buf(j) Then
ReDim Preserve buf2(k)
buf2(k) = ThisWorkbook.Worksheets(i).Name
k = k + 1
Exit For
End If
Next
Next
'配列が空なら（一件でも発生していれば1加算されている）
If k = 0 Then Exit Function
For i = 0 To UBound(buf2)
With ThisWorkbook.Worksheets(buf2(i))
mya = Intersect(.Range("C:C"), .Range(.Rows(3), .Rows(.Cells(3, 3).CurrentRegion.Rows.Count + 2)))
If TypeName(mya) <> "Empty" Then
If TypeName(mya) = "String" Then
If Not D.exists(mya) Then
D.Add mya, mya
End If
Else
For k = 1 To UBound(mya, 1)
If mya(k, 1) <> "" Then
If Not D.exists(mya(k, 1)) Then
D.Add mya(k, 1), mya(k, 1)
End If
End If
Next
End If
If TypeName(mya) <> "String" Then
Erase mya
Else
mya = Empty
End If
End If
End With
Next
Set FileMasterChk = D
End Function
Private Sub 転記Ver8(ByVal fp As String)
Dim fname As String
Dim WB As Workbook
Dim BB As Workbook
Rem 転記先 Write
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Rem 転記元 Read
Dim sh4 As Worksheet
Dim sh5 As Worksheet
Dim sh6 As Worksheet
Dim sh7 As Worksheet
Dim Jr
Dim Mtr
Dim Mkr
Dim snm2
Dim Snmstr As String
Dim i As Long
Dim j As Long
Dim y As Long
Dim y2 As Long
Dim ry As Long
Dim ry2 As Long
Dim lr As Long
Dim lr2 As Long
Dim t As Date
Dim Cnt As Long
Dim tmpary()
Dim f_flg As Boolean
Dim Dcnt(1 To 4) As Long
Dim MD(1 To 4) As Object
Dim M_flg
t = Timer
Dim BD As Object
Set BD = FileMasterChk
For i = 1 To 4
Set MD(i) = CreateObject("Scripting.Dictionary")
Next
Set BB = Workbooks(ThisWorkbook.Name)
fname = Dir(fp & "*.xls*")
Cnt = 1
Do Until fname = ""
DoEvents
If fname <> BB.Name Then
Set WB = Workbooks.Open(fp & fname, UpdateLinks:=0)
Set sh4 = WB.Worksheets("情報入力シート")
Set sh5 = WB.Worksheets("検査シート")
Set sh6 = WB.Worksheets("マスタ(都道府県)")
Set sh7 = WB.Worksheets("マスタ(管理)")
Jr = sh4.UsedRange
Mtr = sh6.Range("C2").CurrentRegion
Mkr = Intersect(sh7.Range("C:L"), _
sh7.Range(sh7.Range("B2").CurrentRegion.Rows(1), sh7.Range("B2").CurrentRegion.Rows(2)))
Snmstr = Trim(sh4.Range("B2").Value)
'FLG判定
f_flg = File_Dup_Chk(fname, BD, MD(), Dcnt)
'重複ファイル読飛、追加書込、判定,trueで読み飛ばしfalseで実行
If Not f_flg Then
'書込み先シート名をsh4.Range("B2")の値で振り分け処理
Snmstr = IIf(Snmstr = "E", "D", Snmstr)
If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then
Snmstr = "その他"
End If
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")")
Rem 情報シート書出, 201902、追加のみに修正
'情報入力シートのBU列、BV列に転記元（sh4）B6、E6から値を取得。
'呼び出し方
'.Range("BU" & i).Value = Conv(sh4.Range("B6").Value) Jr(6,2)
' .Range("BV" & i).Value = Conv(sh4.Range("E6").Value) Jr(6,5)
'（Ｆ） 2019/03/04(月) 14:28 6,2 6,5
With sh2
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr = IIf(lr < 3, 3, lr)
y = lr
Write_J y, sh2, sh4, WB
'緯度、経度変換追加
On Error Resume Next
If IsNumeric(CDbl(Jr(6, 2))) Then
.Cells(y, "BU") = dd(CDbl(Jr(6, 2)))
.Cells(y, "BV") = dd(CDbl(Jr(6, 5)))
End If
On Error GoTo 0
'シート名
.Cells(y, 1) = Snmstr
'BS列に地域コードを書込処理
For i = 2 To UBound(Mtr, 1)
If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then
.Cells(y, "BS") = Mtr(i, 1)
End If
Next
i = 0
'管理者コードを各B列書込処理
i = WorksheetFunction.Match(Jr(2, 6), WorksheetFunction.Index(Mkr, 1, 0), 0)
.Cells(y, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
Rem 検査シート書出, 201902、追加のみに修正
With sh3
lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lr2 = IIf(lr2 < 7, 7, lr2)
y2 = lr2
Write_K y2, sh3, sh4, sh5, WB
.Cells(y2, "B") = Mkr(2, i)
.UsedRange.EntireColumn.AutoFit
End With
End If
End If
WB.Close SaveChanges:=False
fname = Dir()
DoEvents
Application.StatusBar = Space(7) & "IN = " & Format(Cnt, "0,0")
Cnt = Cnt + 1
Loop
Last_Write MD()
For i = 1 To 4
Set MD(i) = Nothing
Dcnt(i) = 0
Next
Set BD = Nothing
MsgBox "作業完了。所要時間、単位秒 ＝ " & Format(Timer - t, "0.0 秒")
End Sub
Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook)
Dim buffer(1 To 74)
Dim myad2
Dim i As Long
Dim j As Long
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _
"H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _
"B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _
"H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _
"I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _
"B6", "E6")
With ws
For i = 1 To UBound(buffer)
If (i <> 2) * (i <> 3) * (i <> 9) * (i <> 68) Then
buffer(i) = sh2.Range(myad2(j)).Value
j = j + 1
End If
Next
buffer(3) = WB.Name
buffer(72) = sh2.Range(myad2(66)) & sh2.Range(myad2(67))
.Cells(y, 1).Resize(, UBound(buffer)) = buffer
End With
End Sub
Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, WB As Workbook)
Dim myad2
Dim buf2
Dim i As Long
Dim j As Long
Dim k As Long
Dim buffer(1 To 699)
Rem 'sh2 = 検査シート, sh4 = 情報入力シート
myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2")
buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _
"E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _
"H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _
"I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _
"L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _
"M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _
"N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _
"M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49")
With ws
For i = 1 To UBound(buffer)
If i <= 9 Then
Select Case i
Case 1, 4 To 8
buffer(i) = sh4.Range(myad2(j)).Value
j = j + 1
End Select
ElseIf i > 9 Then
buffer(i) = sh2.Range(buf2(k)).Value
k = k + 1
End If
DoEvents
Next
buffer(3) = WB.Name
.Cells(y2, 1).Resize(, UBound(buffer)) = buffer
End With
End Sub
Private Sub Last_Write(ByRef arg1() As Object)
Dim lr As Long
Dim i As Long
Dim X As Long
With ThisWorkbook.Worksheets("重複ファイルシート")
For i = 1 To 4
Select Case i
Case 1: X = 1
Case 2: X = 3
Case 3: X = 2
Case 4: X = 4
End Select
lr = .Cells(.Rows.Count, X).End(xlUp).Row + 1
If arg1(i).Count > 0 Then
.Cells(lr, X).Resize(arg1(i).Count, 1) = WorksheetFunction.Transpose(arg1(i).items)
End If
Next
End With
End Sub
Private Sub ForEndProc()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.StatusBar = ""
End With
With ThisWorkbook.Worksheets("重複ファイルシート")
.Range("A:E").EntireColumn.AutoFit
.Activate
End With
End Sub
Private Function dd(dw As Double) As Double
Dim cw As String
cw = Format(dw, "0000000.0000")
dd = Mid(cw, 1, 3) * 1 + Mid(cw, 4, 2) / 60 + Mid(cw, 6) / 3600
End Function
（隠居じーさん） 2019/03/05(火) 18:02
（Ｆ） 2019/03/05(火) 21:43
Ｆさん、おつかれさまぁ〜。。。m(_ _)m Ｓｏｕｌｍａｎさん。。。。。〜おわりましたよぉ〜〜〜〜(*^^*)。。。 ありがとうございましたぁあああ〜〜〜〜 m(_ _)m
（隠居じーさん） 2019/03/05(火) 22:07
お疲れ様でした 検証も出来なくてすみません(笑) いやはや、感服致しました。 おやすみなさい💤
（SoulMan） 2019/03/05(火) 22:27
こんばんは。＾＾もうご覧になっていないかもですが。 Private Sub 転記Ver8(ByVal fp As String) の '緯度、経度変換追加 〜 'シート名 の間のコードを 下記の様に入れ替えて下さい。慌てていたとはいえ 単純なミスをエラー回避で処理していました。 情報の方に入力ミスが無ければ問題ないと言えばないですが 修正いただいた方が無難です。大変すみませんでした。 お詫びと、修正をさせて頂きます。 m(__)m
'緯度、経度変換追加
If IsNumeric(Jr(6, 2)) Then
.Cells(y, "BU") = dd(CDbl(Jr(6, 2)))
End If
If IsNumeric(Jr(6, 5)) Then
.Cells(y, "BV") = dd(CDbl(Jr(6, 5)))
End If
'シート名
（隠居じーさん） 2019/03/06(水) 18:26
承知いたしました。
（Ｆ） 2019/03/08(金) 17:28
Fさんすみませんでした。 m(_ _)m '緯度、経度変換追加 On Error Resume Next
↑ これ｡安易に使うべきではないと私は思います｡よく理解して使用するなら別です｡
If IsNumeric(CDbl(Jr(6, 2))) Then
↑ここ（ダブル型変換してから、数値化どうか調べている。
変換されてたら意味がない、されていなかったらエラーのはず)
Jr(6, 2)しか調べていない。
.Cells(y, "BU") = dd(CDbl(Jr(6, 2)))
.Cells(y, "BV") = dd(CDbl(Jr(6, 5)))
End If
On Error GoTo 0
↑ 一番上のエラー処理を解除
結果としては読込先に間違いさえ無ければ緯度､経度が10進数に変換され 書込まれます｡ 違った場合は全てエラーになるため何も実行されません。 読込先の間違った情報がそのまま、既に書き込まれています。 上記の様に変更していただいても､型違いのエラーでマクロの実行が中断され ない様に回避しているだけです｡変更後はもし､読込先の情報シートが数値で なければその文字列が書き込まれます｡ 動作は修正前も、修正後も変わらないのでそのままでも良いと言えばいいのですが 処理方法があまり関心したものでは無いと。いう事です。←こんな事するの私だけ。。。(￣▽￣；) みたいなことです。。。 m(_ _)m （隠居じーさん） 2019/03/08(金) 20:19
あと、もう一つ別件ですが、ご相談可能でしょうか。
今回の転記先のような形式の書き溜めているものから→転記元のようなフォーム型のものに戻す＋ファイルで指定の名前に保存する的な奴です。。
このトピックに無関係ではないと思うのですが。。。。
（Ｆ） 2019/03/08(金) 21:28
こんばんは ＾＾ ＞＞あと、もう一つ別件ですが、ご相談可能でしょうか。 ここは質問掲示板ですので。ご存知の様に。一セル間違っても結果は全く 別なものになる可能性が御座いますので、量は少量でも構いませんが。 規則性が解る様な内容で、出来るだけ詳細なご説明を、別、スレッド （トピック）でご質問されると、私だけでなく、多数の回答者様、から 、アドバイス、コードの提供等、有ると思います。あと、私はあわてる とろくなことしませんので、他の回答者様のご回答をお待ちいただくこと をお勧めいたします。VBAにもかなりのスキルをお持ちと、お見受けいた します。ご自作される方向で、お困りの箇所を適宜、ご質問されると、 本当にたくさんの懇切丁寧なアドバイスが有るとおもいます。 m(_ _)m （隠居じーさん） 2019/03/08(金) 22:39
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.