エクセルのマクロ
任意のセル内の文字の一部をコピー状態にした後に、任意のセルに一文字ずつ貼り付けるマクロを作成したいのですが。
例えば、A1に"あいうえお"と入力されていて、"うえお"をコピー状態にして実行すると、貼り付ける基点となるセルをインプットボックスで指定し、B3が指定されたとするなら、B3に"う"、C3に"え"、D3に"お"が貼り付けられる。
以下のマクロで望んでいる処理が可能になるのですが。
Sub test()
Set x = Application.InputBox(Prompt:="test", Type:=8)
Range("A10").Select
ActiveSheet.Paste
y = Range("A10").Value
z = 0
w = Len(y)
For i = 1 To w
x.Offset(0, z).Value = Mid(y, i, 1)
z = z + 1
Next i
Range("A10").Clear
End Sub
上記マクロでは、コピー状態になっている文字を一旦作業用のセルに貼り付けるという処置を取っていますが、そのように作業用のセルを用いないで同じ処理を行うにはどうすればいいでしょうか？
お礼
ありがとうございます。 この回答で十分です。 助かりました。