|
▼hatena さん:
こんなのもいけるかも
高さも、幅も、セルの統合したのも対応できると思います。
標準のモジュールに…
Sub s_TableCopy()
Dim 元のセル As Range
Dim コピー先 As Range
On Error Resume Next
Set 元のセル = Application.InputBox("コピー元のセルを選択してください", Type:=8)
If 元のセル Is Nothing Then
Exit Sub
End If
Set コピー先 = Application.InputBox("コピー先のセルを選択してください", Type:=8)
If コピー先 Is Nothing Then
Exit Sub
End If
If コピー先.Count <> 1 Then
MsgBox "コピー先の複数セルは選択できません"
Exit Sub
End If
元のセル.Copy Destination:=コピー先
For I = 1 To 元のセル.Columns.Count
コピー先.Columns(I).ColumnWidth = 元のセル.Columns(I).ColumnWidth
Next
For I = 1 To 元のセル.Rows.Count
コピー先.Rows(I).RowHeight = 元のセル.Rows(I).RowHeight
Next
End Sub
|
|