Excel総合相談所 130

[0032 名無しさん＠そうだ選挙にいこう 2017/12/26(火) 01:57:31.91]

'�A空白を削除して上側にシフトする。

For i = myRow2 To myRow1 Step -1
For j = myCol1 To myCol2
If Cells(i, j) = "" Then
Cells(i, j).Delete shift:=xlShiftUp
End If
Next j
Next i

'�B上のセルと比較して同じなら「〃」に変更する。
'ただし対象セルが空欄の場合は除く

For i = myRow2 To (myRow1 + 1) Step -1
For j = myCol1 To myCol2
If Cells(i, j) <> "" And (Cells(i, j) = Cells(i - 1, j)) Then
Cells(i, j) = "〃"
End If
Next j
Next i

End