Sub Dic単数列() '例のごとく出来るだけ変数は日本語を使っています。 '気になる方はコピペ後英語に置き換えてください。 '********************************************************************** '1、変数の定義 Dim 最終行 As Long 'rng検索値の最終行を取得する為の変数 Dim 検索範囲の最終行 As Long '検索範囲の最終行を取得する為の変数 Dim 検索範囲の最終列 As Long '検索範囲の最終列を取得する為の変数 Dim ary検索値() As Variant '検索したい値を配列として取得する為の変数 Dim ary検索範囲() As Variant '検索される値を配列として取得する為の変数 Dim ary() As Variant 'Dictionaryから値を配列で一旦預かる為