セルの選択範囲アドレスをクリップボードにコピーする
Sub CopySelectedArea() ' ## 選択範囲アドレスをクリップボードにコピーする ## CS = Selection(1).Address CL = Selection(Selection.Count).Address SCI = CS & ":" & CL With CreateObject("Forms.TextBox.1") .MultiLine = True .Text = SCI .SelStart = 0 .SelLength = .TextLength .Copy End With MsgBox "クリップボードにセル範囲 " & SCI & " をコピーしました。", vbOKOnly + vbInformation End Sub