| |
▼gg54 さん：
ほんとに転記元も転記先も不特定ということなら、たとえば以下のような処理ですかね？
マクロで表示される２つのダイアログでコピー元と転記先をマウスで選択してください。
Sub Sample()
Dim fR As Range
Dim tR As Range
Dim v() As Variant
Dim c As Range
Dim x As Long
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
ReDim v(1 To fR.Count)
For Each c In fR
x = x + 1
v(x) = c.Value
Next
tR.Value = Join(v, "")
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
