任意のセルに貼り付けをするマクロのアドバイスを
マクロの初心者です。エクセル2010を使用しています。
以下のようなマクロをいろいろ検索し参考にして作りましたが、
シート1でコピーし、シート2の任意のセルに貼り付けをして、そのままシート2で終了するには、どうすればよいでしょうか。
現在では、シート2のセルに貼り付け、その他の処理を終えると、シート1のコピー元に戻って終了してしまいます。
そして、このマクロを個人用マクロとして、すべてのブックで使用するのは可能でしょうか。
その場合はどうすればよいのでしょうか。
アドバイスをよろしくお願いします。
Sub 値と横連結()
Application.DisplayAlerts = False
With Application.InputBox _
("貼付先セルをクリック")
Selection.Copy
.PasteSpecial paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.PasteSpecial paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With Selection
If Selection.Count = 1 Then Exit Sub
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
With Selection.Font
.Name = "MS Pゴシック"
.Size = 8
End With
Selection.Borders.LineStyle = xlContinuous
Selection.Borders.Color = -10375249
Selection.Merge True
Application.DisplayAlerts = True
End With
End Sub
お礼
非常にすばやいご回答どうも有難うございます。大変感謝いたします。