【´・ω・`】:そうそう、この「ごじら」を「らじご」にする問題・・・。
3行マクロでやると・・・
For %i = 1 To Len(Range("A1"))
Range("B1") = Range("B1") & Mid(Range("A1"), Len(Range("A1"))-%i +1,1)
next
(●`ε´●):これでも同じだな。
For %i = 1 To Len(Cells(1,1))
cells(1,2) = Cells(1,2) & Mid(Cells(1,1), Len(Cells(1,1))-%i +1,1)
Next
ま、参考までに・・・ということだ。
コメント