テーブル/行のゼロ以外の値をすべて検索する

Question

しばらく検索していましたが、誰かがこれに対して良い方向を提供できるかどうかを調べるために、これをそこに投げることに決めました。私のテーブルには、約24の列によって〜100（および拡大）行があり、のようになります。

ID yr1 yr2 yr3 yr4 

id1 $-  $-  $35  $- 
id2 $40  $45  $-  $- 
id3 $35  $-  $30  $37 

私は気にしない（すべてゼロの値を無視して、このようになります。このテーブルの表現を作成したいです列の見出しについて）：

ID   
id1 $35   
id2 $40  $45  
id3 $35  $30  $37 

単純な（ish）解決策が必要なようですが、私はまだそれを理解していません。どんな助けでも大歓迎です！

Answer 1

[更新：削除しました初期の提案とVBAソリューションに置き換える]

Sub ReArrange() 
Dim ws As Worksheet 
Dim X 
Dim lngRow As Long 
Dim lngCol As Long 
X = [a1].CurrentRegion 
For lngRow = 1 To UBound(X, 1) 
    For lngCol = 1 To UBound(X, 2) 
     If X(lngRow, lngCol) = 0 Then X(lngRow, lngCol) = "=1/0" 
    Next 
Next 
Application.ScreenUpdating = False 
Set ws = Sheets.Add 
ws.[a1].Resize(UBound(X, 1), UBound(X, 2)) = X 
On Error Resume Next 
ws.UsedRange.SpecialCells(xlCellTypeFormulas, 16).Delete xlToLeft 
On Error GoTo 0 
Application.ScreenUpdating = True 
End Sub