>>30
もっとスマートな書き方はいろいろあると思うけど。
範囲は3行目で指定、ここではB1:D15に。
空白の次の行や、一番上の行に「〃」があるのは想定してない。

Sub sample()

Dim myRange As Range
Set myRange = Range("B1:D15")

Dim myRow1 As Long
Dim myRow2 As Long
Dim myCol1 As Integer
Dim myCol2 As Integer
Dim i As Long
Dim j As Long

myRow1 = myRange.Row
myRow2 = myRow1 + myRange.Rows.Count - 1
myCol1 = myRange.Column
myCol2 = myCol1 + myRange.Columns.Count - 1

'①「〃」を元の文字列・数値に戻す。
For i = myRow1 + 1 To myRow2
For j = myCol1 To myCol2
If Cells(i, j) = "〃" Then
Cells(i, j) = Cells(i - 1, j)
End If
Next j
Next i