A100 表示の解決方法

質問者が納得E1 のセルに =IF(ISERR(SMALL(B:B,ROW(A1))),"",SMALL(B:B,ROW(A1))) D1 のセルに =IF(ISERROR(INDEX(A:A,MATCH(E1,B:B,0))),"",INDEX(A:A,MATCH(E1,B:B,0))) と式を入れて E1:D1 のセルを下にコピー 名前のＡ列が A1:A100 に限られているなら E1 のセルに =IF(ISERR(SMALL(B$1:B$100,ROW(A1))),&qu...

質問者が納得D2に、 =IF(SUMPRODUCT((A1={"特急","準急","急行"})*1),"電車","") これを下へオートフィルしてください。

質問者が納得> 一応、データの入力規制で それはコンボボックスじゃなくて ドロップダウンリスト。 > とやってみたのですが、重複データーが大量に出て駄目でした どうなって欲しいのかが分かりません。 ひとまず Alt + ↓ で連続する行方向のデータなら重複なしで参照 できます。 根本的な話をすると 入力しているデータからリストにするのではなく 管理用のマスタを持つべきかと思います。

質問者が納得コンボボックスではなく入力規則のリストでやってみました。シートモジュールとして記述 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then Exit Sub If Target.Offset(, -1).Value = "" Then Exit Sub Dim 表, 元の値 As String 表 = [Sheet3!A1:B1

質問者が納得標準モジュールとして記述。エラー処理はしていません。 Sub test() Application.Goto Range("A:A").Find(Date), True ActiveWindow.SmallScroll Down:=-4 End Sub

質問者が納得B1 セルに次の数式を入力します。 =IF(COUNTIF($A$1:$A$100,1)>0,"○","")