Excelで該当するデータに斜線を引き、それらを並び替えて一カ所にかためたい

質問

Excelに関する質問です(>_<)

今、Excelのブックファイルが2つありまして、1つめのファイルは『温泉地＆寺と神社ファイル.xls』、2つ目のファイルは『温泉地ファイル.xls』と、ファイル名を指定しています。
そして、1つめのファイルのA列には、

東福寺
飯豊温泉
神護寺
檜枝岐温泉
怒塚山温泉
湯桧曽温泉
花園神社
四季の湯
内船温泉
南禅寺
小砂温泉
廻栖野温泉
梅照院
・
・
・

と、温泉地と寺・神社の名前が、縦に並んでいます。
そしてB列には、

かのやばら園
岡山ブライダルストリート
一の宮公園
サンセットブリッジ内灘
ルチニャーノ
白鳥山森林公園
日比谷　松本楼
・
・
・

と、「恋人の聖地」と呼ばれる観光地が並んでおりまして、C列には「日本の灯台」、D列には「日本の渓谷」と、それぞれ観光地の情報が記載されています。
L列からは何もデータが入っていませんが、K列までは、データがびっしり埋まっています。

そして、二つ目のファイル『温泉地ファイル.xls』には、

飯豊温泉
檜枝岐温泉
怒塚山温泉
湯桧曽温泉
四季の湯
内船温泉
小砂温泉
廻栖野温泉
・
・
・

と、A1から温泉地の名前だけが、縦に並んでいます。

ここで、『温泉地＆寺と神社ファイル.xls』のA列のデータと、『温泉地ファイル.xls』のA列のデータを比較し、一致するデータ(温泉地)があれば、『温泉地＆寺と神社ファイル.xls』の方のA列の該当データに「／(罫線)」を引きたいのです。
さらに、罫線が引かれた温泉地のデータを、A列の一番上(A1)から縦に、連続した状態になるように並べ替えたいのです。

温泉地のデータと、寺と神社のデータが混在している現状をなんとかしたいです。
よろしくお願いします(>_<)

回答No.4

DOUGLAS_ · ベストアンサー

[回答番号：No.1・3] の DOUGLAS_ です。

　要らぬお節介ですが、もし並べ替えるのが『温泉地＆寺と神社ファイル.xls』の「A列のみ」ということであれば、前回答の「甲の L1 」という考え方ではなくて、
・Ａ列の前に列を挿入
・Ａ列に式を挿入
・Ａ・Ｂ列のみを並べ替え
・Ａ列を削除
という段取りでできます。

　ちなみに、[新しいマクロの記録] でその作業をして、コーディング を整理すると、ざっと下記のようなことになりますが、基本的に「考え方」をご理解いただければ幸いです。

Sub A列のみ並べ替え()
　'Ａ列の前に列を挿入
　　Range("A1").EntireColumn.Insert
　'挿入したＡ列に計算式を挿入
　　Range("A1:A" & Range("B1").End(xlDown).Row).FormulaR1C1 _
　　　= "=MATCH(RC[1],[温泉地ファイル.xls]Sheet1!C1,FALSE)"
　'Ａ・Ｂ列で並べ替え
　　Columns("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
　　　OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
　　　SortMethod:=xlStroke, DataOption1:=xlSortNormal
　'Ａ列内の「#N/A」を検索
　　Columns(1).Find(What:="#N/A", LookIn:=xlValues, LookAt:=xlPart, _
　　　SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
　　　MatchByte:=False, SearchFormat:=False).Offset(-1, 1).Select
　'Ｂ列の１行目から「#N/A」の前の行の値に罫線を引く
　　With Range(Range("B1"), Selection).Borders(xlDiagonalUp)
　　　.LineStyle = xlContinuous
　　　.Weight = xlThin
　　　.ColorIndex = xlAutomatic
　　End With
　'挿入したＡ列の削除
　　Columns(1).Delete
　　Range("A1").Select
End Sub

お礼

すごいです、DOUGLAS_さんのコード貼り付けて実行したら一発で出来ました！
マクロってすごいですね、ありがとうございます(>_<)