Sub 文字列検索() '縦の列の変数 Dim 縦の列 As Long '横の列の変数 Dim 横の列 As Long '行はA列の2行目から最終行まで For 縦の列 = 2 To Cells(Rows.Count, 1).End(xlUp).Row '列はA列から最終列まで For 横の列 = 1 To Cells(1, Columns.Count).End(xlTo…