エクセル（列）方向の入力セルのみ表示

質問

エクセルシートで下記のような校正・取り纏めを予定しております。

◎校正者50名（列）による、日本語と翻訳テキスト約3000点（行）の校正

元原稿 　　　元原稿（翻訳） 　　　　　　校正者1　　　 校正者2　　　 校正者3　　　 校正者4 　　　校正者5 　　～校正者50
テキスト1 　　　テキスト1（翻訳）
テキスト2 　　　テキスト2（翻訳）　　　 　　変更A 　　　変更B
テキスト3 　　　テキスト3（翻訳）
テキスト4 　　　テキスト4（翻訳）
テキスト5 　　　テキスト5（翻訳） 　　　　　　　 　　　　　変更A 　　　　　変更B 　　　　　　　　　　　　　変更C
テキスト6 　　　テキスト6（翻訳）
テキスト7 　　　テキスト7（翻訳）
テキスト8 　　　テキスト8（翻訳）
テキスト9 　　　テキスト9（翻訳）
テキスト10 　　　テキスト10（翻訳）
～　　　　　　　　　　　　　～
テキスト3000 　　　テキスト3000（翻訳）

各テキスト（行）ごとに校正者が入力しているセルのみを表示させたいのですが、何かよい方法はありますでしょうか？
（列）ごとであれば、オートフィルタ「空白以外～」で、入力されたセルのみ表示されられますが、
閲覧性の点から行列の入替はできません。

どなたかご教授頂ければ幸いです。宜しくお願い致します。

回答No.3

keirika

VBAを使用した場合で考えてみました。

データがＡ列から入力されていることが前提です。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer

Application.ScreenUpdating = False

For i = 3 To 52
If Cells(ActiveCell.Row, i).Value = "" Then
Cells(ActiveCell.Row, i).EntireColumn.Hidden = True
Else
Cells(ActiveCell.Row, i).EntireColumn.Hidden = False
End If
Next i

Application.ScreenUpdating = True

End Sub

クリックした行で値の入力されている列のみ表示します。

for文の指定（現在３列目から５２列目）を変更することで対象列の範囲を変更できます。

お礼

keirikaさん
ご回答有難うございます！

＞for文の指定（現在３列目から５２列目）を変更することで対象列の範囲を変更できます。

対象範囲も指定できるのが、すばらしいです。
大変参考になりました。有難うございます。