質問の文章がEXCELでは使わない用語でわかりにくい。
疑問だらけ。
＞一帯とは？
またEXCEL向きでない説明であって判りにくい。
＞セルA1～5に「A～E」と記入したセルがあるとします
A1セルに、AかBか・・Eのどれかの字が入っている。または入力したときでないのか？
A1にA、A2にB・・A5にEが入っていて、どれかをクリックするなどの意味か。そして栗いくするとどうなってほしいかを質問しているのか
＞セルA1～5に「A～E」と記入したセルがあるとします・・
書かなくてよいのでは
むしろ何かをすると、Aの場合はBB列、Bの場合はCC列のデータを表示したい、ということか。
＞呼び出したいのですが
呼び出すとは？むしろ表示したいといった意味か？
＞瞬時に各・・
何かをすると瞬時に、の意味だろう。その「何か」は何か？
＞B列はウインドウの固定で固定したいのと、B列のすぐ右横に呼び出したいのですが、
「したい」でなく。、質問者がウインドウの固定をしているのでしょう。ウインドウの固定まで質問をしているのでは無かろう。
＞B列のすぐ右横に呼び出したいのですが
呼び出すとは？
＝＝＝
どうもVBAでないと出来ないような。
A1にA、A2にB、Å3にC・・A5にEと入れる。
質問とは変えているが
J1にA,K1にB、L1にC、M1にD、N1にEと入れておく（目じるしのためで意味はない）
質問のBB1がJ1に（テスト結果がわかりやすいよう）している。
ーー
Sheet1のSelectionChangeイベントに下記を貼り付ける。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row < 6 Then
Columns("B:IV").EntireColumn.Hidden = False
x = Array("", "B:I", "B:J", "B:K", "B:L", "B:M")
y = Target.Row
Columns(x(y)).Select
Selection.EntireColumn.Hidden = True
Else
Columns("B:IV").EntireColumn.Hidden = False
End If
End Sub
と入れる。
Sheet1の
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row < 6 Then
Columns("B:IV").EntireColumn.Hidden = False
x = Array("", "B:I", "B:J", "B:K", "B:L", "B:M")
y = Target.Row
Columns(x(y)).Select
Selection.EntireColumn.Hidden = True
Else
Columns("B:IV").EntireColumn.Hidden = False
End If
End Sub
ーー
操作は
B
A2セル）をクリックすると、A列の隣の第2列に
K,L,M・・・列が表示される。その間の列を非表示にしたもの。
これでBの関連のデータがみやすい・探しやすくなる。
＝＝＝＝
質問者はVBAの経験（それも中級以上）ありとは思わないが、やってみたので挙げておく。
