【VBA】Excel 複数のセルを連結してクリップボードにコピーする方法

hiroshi

4か月前

Excel VBA 一覧

ご訪問ありがとうございます。

Googleシートマスターのひろしです。

前回

【VBA】Excel 結合セルを一気に分割する方法

【VBA】Excelで結合されたセルを華麗に処理することができます。

今回は、とっても価値の高い方法をお伝えします。

これを知ることであなたは、

セルを選択してボタンをクリックするだけでクリップボードに
セルの中身を連結してコピーされます。

これは、何に使うかというと、「auじぶん銀行」の銀行振り込み時に
使うととても便利です。

auじぶん銀行で振り込み時の確認番号をコピペで済ませる方法とは？(Gスプレッドシート)

カナを連続して発生させる方法がわかります。

罫線の引き方や、文字のセンタリング方法がわかります。

複数のセルを一つのセルに集約させる方法がわかります。

で、今回のGoogleスプレッドシート GAS版はこちら↓

選択した複数のセルを連結してクリップボードにコピーする方法【GAS】

複数のセルを連結してクリップボードにコピーすることができます。

auじぶん銀行から振り込みむ際の認証番号の入力が楽になります。

動作イメージ

こんな感じで結構いい感じです。

マトリクスから4つのセルを選択します。
「コピー」をクリックします。

これで、クリップボードに選択した4つのセルを結合した値がクリップボードに
入ります。(以下の場合、3592，4362)

VBAスクリプト

Sub ConcatenateNoDelimiterAndCopyToClipboard()
Dim selectedRange As Range
Dim cell As Range
Dim concatenatedText As String
Dim objShell As Object

Set selectedRange = Selection

If selectedRange.Cells.Count <> 4 Then
MsgBox "セルはちょうど4つ選択してください。", vbExclamation
Exit Sub
End If

' セル内容の連結（デリミタなし）
For Each cell In selectedRange.Cells
concatenatedText = concatenatedText & cell.Value
Next cell

' Windows Script Host でクリップボードにコピー
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd /c echo " & concatenatedText & " | clip", 0, True

'MsgBox "セルの内容を連結して、クリップボードにコピーしました！"

' M4セルに貼り付け
Range("M4").Value = concatenatedText

End Sub