No.2ベストアンサー
- 回答日時:
電車の駅名と同様に始発駅→終着駅をリスト化したいものとして回答します。
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]で実行
あとは普通に入力規則でリスト処理をすればおしまい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel ドロップダウンリスト(入力規則)に関してです データの入力規則で元データ79000行のド 3 2023/07/17 10:06
- Excel(エクセル) EXCELでの文字・数字入力の基本について教えてください。 2 2023/05/29 23:17
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Excel(エクセル) エクセルの表で A1にデータの入力規則でリストを作って、 (リス、キリン、ゾウとします) リストを選 4 2022/07/15 09:29
- Excel(エクセル) 別シートの表の値を参照したい 2 2022/03/30 15:11
- Excel(エクセル) Excel 表の作成について 3 2022/06/16 12:15
- Excel(エクセル) エクセルで指定範囲にある名前と重複した場合に入力できないようにしたい 1 2023/07/13 09:58
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) ipadのエクセルでキャラの選択をしたい。 1 2022/09/21 08:58
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 「入力規則」が消えて困...
-
エクセルの対象セルの1つしか...
-
入力規制でエラーメッセージが...
-
エクセルで、入力規制を設定を...
-
エクセルの入力規則で、追加文...
-
エクセルの入力規則のリスト入...
-
教えてください。 Excelでシー...
-
ホームページからWebメール...
-
サイボウズのスケジュールをGoo...
-
エクセルで列の全角、半角を指...
-
《EXCEL2003》入力規制のリスト...
-
商蔵奉行
-
エクセルでドロップダウンリス...
-
掛け率計算系のソフト
-
R1C1参照形式変更後「名前の重...
-
EXCEL ページを指定してPDF出力...
-
ANSYS (アンシス)で困ってい...
-
エクセル、不要なページを削除...
-
Excelでファイル全体が読み込め...
-
Excelセル番地の表示の変更の仕...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの対象セルの1つしか...
-
Excel 「入力規則」が消えて困...
-
入力規制でエラーメッセージが...
-
WPS OfficeのSpreadsheetで、複...
-
掛け率計算系のソフト
-
Excel 数式を教えてください
-
RとCの丸のマークの意味と入力...
-
Excelのデータの入力規則が薄く...
-
商蔵奉行
-
エクセル・リンク貼り付けをし...
-
【エクセル】日付での入力制限
-
エクセル 入力規則 リスト以...
-
絹目写真の加工
-
楽天ショップでの伝票番号入力...
-
二重螺旋表現
-
ゆっくりムービーメーカーで発...
-
Excelでの合計予想
-
《EXCEL2003》入力規制のリスト...
-
excel 2026 macについて マクロ...
-
計算ソフト(xを計算できる)
おすすめ情報