|
▼gg54 さん:
対象セルの文字列を連結するなら以下のようになります。
セル数が多くなく、またセルの文字列桁数も多くなければこれでも
問題はないかと。
転記元のセル数が不特定ですから
転記先.Value = 転記元1.Value & 転記元2.Value & 転記元3.Value & ・・・・
というコードは記述不可能だと言うことはご理解いただけますよね。
Sub Sample2()
Dim fR As Range
Dim tR As Range
Dim c As Range
Dim s As String
On Error Resume Next
Set fR = Application.InputBox("コピーしたいセルを選んでください(複数選択可)", Type:=8)
On Error GoTo 0
If fR Is Nothing Then Exit Sub
On Error Resume Next
Set tR = Application.InputBox("転記先セルを選んでください", Type:=8)
On Error GoTo 0
If tR Is Nothing Then Exit Sub
For Each c In fR
s = s & c.Value
Next
tR.Value = s
End Sub
|
|