就這這個問題，我分享如下兩個場景：

這裡我分享兩種方法，

複製表格，然後按下<Ctrl>+<Alt>+V選擇性貼上中，勾選轉置；

.

2、按住鍵盤上的Ctrl鍵，用滑鼠分別點選資料為零的各列，即點選列標字母（紅圈處）。

.

.

由於題主沒有更多詳細的資訊，因此只能按照個人理解做一個VBA小程式。

該程式操作簡單。

第一步，手動選擇“合計”所在的單元格，確定其位置。

具體效果，見下面的Gif圖片演示：

參考程式碼如下：

Dim Rng As Range, r&, i&,c&

On Error Resume Next

Set Rng = Application.InputBox(prompt:="請選擇合計所在的單元格", Type:=8)

If Rng Is Nothing Then

MsgBox "取消操作,退出程式"

Exit Sub

Else

r = Rng.Row

c = Rng.Column

For i = Cells(r, 1000).End(xlToLeft).Column To c + 1 Step -1

If Cells(r, i) = 0 Then

Columns(i).Delete

End If

Next

End If

End Sub