エクセル2003のVBAについて

質問

次のコードのように、初めにクリックしたセルに、次にクリックしたセルの内容をコピーするVBAを書いたのですが、コピー先の列を、複数指定する方法がわかりません。

たとえば、C～O列（３～１５）のように指定できればと思っています。

このようなことは可能でしょうか？

ご教授いただけます方、よろしくお願い申し上げます。

--------------------------------------------------
Dim FrstCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.MergeCells = False And Target.Count > 2 Then Exit Sub
On Error Resume Next '想定しないエラーを無視

If Target.Cells(1) = "" Then
If Target.Column <> 3 Then Exit Sub 'C列　コピー先
Set FrstCell = Target.Cells(1)
Else
If Target.Column <> 18 Then Exit Sub 'R列　コピー元
Target.Copy FrstCell.MergeArea
End If

On Error GoTo 0 'エラートラップ終了

End Sub

回答No.2

Wendy02 · ベストアンサー

こんばんは。

>たとえば、C～O列（３～１５）のように指定できればと思っています。

If Target.Column <> 3 Then Exit Sub 'C列　コピー先
　　　　↓
If Intersect(Target, Range("C1:O1").EntireColumn) Is Nothing Then Exit Sub 'C列　コピー先

このように書き換えればよいと思います。

お礼

できました！完璧です！ご回答りがとうございました！

回答No.1

SAKENOSAKA

普通に考えれば
Copy　メソッドでコピー元のセルを指定して
PasteSpecial　メソッドで範囲指定すればいいのでは。
と、思いますが。