Excel2000 VBA inputBoxで選択したセル範囲の値を結合して、クリップボードにコピー

Excel2000 VBA inputBoxで選択したセル範囲の値を結合して、クリップボードにコピー

Sub 選択セル範囲の文字結合2()
'
'inputBoxで選択したセル範囲の値を結合して、クリップボードにコピー
'実験バージョン
'

  Dim select_range, target As Range
  Dim i As Integer
  Dim r(100), newstr As String
  Dim Prow, Pcol As Long
 
  'InputBoxで選択範囲を取得
    Set select_range = Application.InputBox("文字を結合するセルの範囲を選択してください。", "文字を結合する範囲選択", , , , , , 8)
    If Err.Number <> 0 Then Exit Sub    'キャンセルボタンがクリックされたら終了
   
  'セレクトセルの値を取得して結合する
 
    For Each target In select_range
        r(i) = target.Value
        newstr = newstr & r(i)
        i = i + 1
        'Debug.Print newstr
    Next target
   
    
    'クリップボードに保存
    Dim TempObject As MSForms.DataObject
   
    Set TempObject = New MSForms.DataObject
   
    With TempObject
        .SetText newstr
        .PutInClipboard
    End With
              
    Set TempObject = Nothing
   
    MsgBox "「" & newstr & "」をクリップボードにコピーしました"
 
End Sub

タグ：Excel2000 VBA