エクセルのデータの入力規則についての質問です

下の画像の青丸２つの部分にデータの入力規則を入れるには
どのようにすればいいのでしょうか？

No.2 ベストアンサー 回答者： kigoshi 回答日時： 2023/08/24 12:41

電車の駅名と同様に始発駅→終着駅をリスト化したいものとして回答します。

D1セルから下へ（上りの）始発駅～終着駅の駅名がはいっているとして、E列に上り、F列に下りの参照リストデータを作るマクロです。

Sub Macro1()
Dim rIdx As Integer
Dim cIdx As Integer
Dim rIdxB As Integer
Dim rEnd As Integer
Const cIdxl As Integer = 4 'D列に駅名 ----------------
rEnd = Cells(Rows.Count, 4).End(xlUp).Row
If rEnd < 2 Then
MsgBox ("リスト候補が足りません")
End
End If
cIdx = 5 'E列に上り -----------------
rIdxl = 0
For rIdx = 1 To rEnd - 1
For rIdxB = rIdx + 1 To rEnd
rIdxl = rIdxl + 1
Cells(rIdxl, cIdx).Value = Cells(rIdx, cIdxl).Value & "～" & Cells(rIdxB, cIdxl).Value
Next
Next
cIdx = 6 'F列に上り ----------------
rIdxl = 0
For rIdx = rEnd To 2 Step -1
For rIdxB = rIdx - 1 To 1 Step -1
rIdxl = rIdxl + 1
Cells(rIdxl, cIdx).Value = Cells(rIdx, cIdxl).Value & "～" & Cells(rIdxB, cIdxl).Value
Next
Next
End Sub

1）シート名（シートのタブ）を右クリック　[コードの表示]
2）右側のエディタエリアに上記コードを貼りつけ
3）［F5］で実行

あとは普通に入力規則でリスト処理をすればおしまい。

No.1 回答者： サクラノキ 回答日時： 2023/08/24 10:16

セルを結合しているなら、解除してください。

左側の丸　〜　右側の丸

のように。


そうすれば、それぞれの丸の方に入力規則を適用すれば良いです。