- 177 名前：デフォルトの名無しさん [2008/03/30(日) 23:46:51 ]
- >>175
俺も意味が判らんかったが、そういう意味で解釈すると、こうかな？
Function test()
Dim LastStr As String
Dim maxy As Long
maxy = 5
LastStr = Range("A" & maxy)
For i = maxy To 2 Step -1
Range("A" & i) = Range("A" & i - 1)
Next
Range("A1") = LastStr
End Function
