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

質問

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

◎校正者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.4

noname#70958

「例えばテキスト２について作業する時点では、テキスト５等他の行の表示状態は問わない」
ということですよね？

オートフィルタほど手早くはいきませんが、ショートカットキー、アクセスキーを使えば…

１．作業する行全体を選択する
２．Ctrl + G　⇒　Alt + (S→K)　⇒　Enter　⇒　Ctrl + 0
　※選択した行の空白セルのみを選択し、それらのセルを含む列を非表示

元に戻すには
１．Ctrl + A ⇒　Ctrl + Shift + 0
　※すべてのセルを選択し、非表示になっている列を再表示
--------------------------------------------------
マクロが選択肢に入るなら…

動作の概要
　アクティブなセルを含む行について、
　空白セルを探し、そのセルの列を非表示に。

Sub Sample()
　ActiveCell.EntireRow.SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
End Sub

とか。

以上ご参考まで。

お礼

Kater_Kurzさん
有難うございます！

＞オートフィルタほど手早くはいきませんが、ショートカットキー、アクセスキーを使えば…
これだけでも、かなりラクになります。

＞マクロが選択肢に入るなら…
マクロの使用については、各々の環境にもよりますが、
こちらで作業する分には、さらに効率的にできそうです。

ほんとに助かりました！深謝致します。

回答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文の指定（現在３列目から５２列目）を変更することで対象列の範囲を変更できます。

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

回答No.2

n-jun

元原稿と元原稿（翻訳)は縦に表示されているわけですから、
テキスト２の行表示とかテキスト５の行表示とか、
選択はどのようにしますか？

普通ならテキスト２もテキスト５も同時に表示されてますよね？
ですので閲覧だけを考えたのですが。。。
仮に”作業時の”と言う点では先ほどの提案は無意味になりますが。

回答No.1

n-jun

＞各テキスト（行）ごとに校正者が入力しているセルのみを表示させたいのですが、
どのような結果（表示方法）を求めているのでしょうか？

例えば、テキスト２なら校正者３より右の列を表示しなければいいですが、
テキスト５に影響が出ますよね。

仮に各テキスト毎に校正者名を列挙（別シートに）するというのなら、
何となく理解できますが。。。？

お礼

n-junさん
早速のご回答ありがとうございます。

取り纏め手順としましては、各テキストに対して、校正者50名の修正内容を採択していくのですが、
列方向に50名分のセルが並ぶので、入力されたセルのみを表示させながら
（オートフィルタの「空白以外のセル」を選択した場合のように）、閲覧できれば、
横スクロールの手間を少なく、効率的に纏めていけるかと思っております。

＞例えば、テキスト２なら校正者３より右の列を表示しなければいいですが、
＞テキスト５に影響が出ますよね。

テキストごとに取り纏めていくので、テキスト２の行で、「校正者１」「校正者２」の列のみ表示、
テキスト５の行では、（一旦すべての列を表示？などで絞込みを解除して）、再び入力されたセル
「校正者２」「校正者３」「校正者５」のみを表示する、などといったことができればと思うのですが、、、。

※要は、行に対するオートフィルタ「空白以外のセル」の機能を列方向に対して、できないかと、
いうイメージなのですが。。。

＞仮に各テキスト毎に校正者名を列挙（別シートに）するというのなら、
＞何となく理解できますが。。。？