エクセルでのコピーペースト

Question

エクセルで例えばA1,A2,B1,B2の4つをコピーして　他のワークシートの1セル内に4つともペースト
させるにはどのようにすればいいのでしょうか。一個しかペーストしないのですが・・。

googoo900 · Accepted Answer

No.5です。

>できれば見やすいように写真の画像のようにしたかったが・・・
写真は載せてないですよね？
セル内改行がはいるように修正しました。差し替えください。
使い方は同じで、マクロはコピーするところまでです。貼付けはCTRL+Vです。

Sub area_copy()
' 複数セルをコピーして、一つのセルに貼付け
' Keyboard Shortcut: Ctrl+b
    Dim buf As String
    Dim buf2 As String
    Dim CB As DataObject
    Dim i As Single
    Dim j As Single
    Dim myStr As String
    Dim cellStr As String
    Dim r1 As Single
    Dim r2 As Single
    Dim c1 As Single
    Dim c2 As Single
    Dim kugiri_moji As String
    kugiri_moji = " "         '←←←　" "で囲まれた文字が区切り文字として入ります
    r1 = Selection.Row
    r2 = Selection.Row + Selection.Rows.Count - 1
    c1 = Selection.Column
    c2 = Selection.Column + Selection.Columns.Count - 1
    For i = r1 To r2
        For j = c1 To c2
            cellStr = Cells(i, j)
            myStr = myStr + kugiri_moji + cellStr
        Next j
        If i <> r2 Then myStr = myStr & Chr(10)  
    Next i
    Cells(Rows.Count, c1) = myStr
    Cells(Rows.Count, c1).Cut
End Sub

めぐみん_ · Answer

何となくですけど。

最初の質問にある４つのセルのコピペと【補足日時：2019/06/15 16:29】に書かれている補足内容とでは、必要なコード等が合致しないと感じるのは気のせいでしょうか？

＞フォームからシートに基本患者データを蓄積してゆき

はどのタイミング（イベント）で実行するのか？（ここは完成されてる？）

＞またフォームから名前をいれることにより逆に年齢、処方内容（薬品名、用法、用量など）を呼び出せるようにしたいわけです

と言うならまずは最初の質問内容は目的とは離れている感じがします。
こちらもどのタイミング（イベント）で実施するかもありますがデータの項目内容についての情報が不明確ですし、何より名前を基に基本患者データからデータをチョイスするなら、
ボタンクリックなどで名前が一致した同行のデータを配置しているコントロールに表示（全部ＣｏｍｂｏＢｏｘ？）にリストとして追加していくだけと思えます。

なので個人的には『セル範囲を選択してのコピペ』云々ではないのではないかと。
ただユーザーフォーム（配置されているコントロール種・名称）や基本患者データの項目（ダミーにしても）数など情報がないですよね。

記載内容が的外れな事であったなら無視して下さい。（よくあるＥｘｃｅｌのデータベース化かなって思いましたので）

googoo900 · Answer

No.5です。

No.9の回答にコメントもらったとおり、Ctrl+ｄです。Ctrl+bは混乱を招くので書き換えるか、消すかしておいてください。
ちなみに、マクロの『'』アポストロフィで始まる文はコメント行として認識されますので、マクロの動作には影響しません。

googoo900 · Answer

No.5です。

以下のとおり回答します。

>オプション → ショートカットキー　のところに『d』を入力とはどうすればいいのでしょうか

ショートカットキーの登録手順は添付図を参照です。

>また直接プログロムを走らせるとFor i = r1 To r2のところで　定義されていないとか出てくるんです。

iとjの変数宣言ができていませんでした。『' Keyboard Shortcut: Ctrl+d』の次の行に以下の2行を追加ください。
Dim i As Single
Dim j As Single

ママチャリ · Answer

フォームから名前を入れて、年齢や処方内容を呼び出したいとのことですが、もしかして、この呼び出しの処理をコピーペーストで行いたいということですか？なかなかユニークな発想ですね？通常は次のように代入するものだと思うのですが・・・。
想像力が付いていけそうに無いので、これで失礼します。

Private Sub UserForm_Initialize()
    ComboBox1.Text = Range("A1").Value
End Sub

ママチャリ · Answer

コンボボックス？・・・というのが分からないのですが、ひとつのセルに張り付けるのであれば、次の手順で出来ると思います。
まず、添付画像のようにクリップボードを表示した状態で、A1:B2セルをコピーします。その後、ペースト先のセルを編集状態（F2押下）にして、クリップボード上の張り付けたい情報を選択します。

googoo900 · Answer

No.3さんの添付図のようなことがやりたいという前提で回答します。

通常の方法では簡単には無理だと思いますので、マクロで対応しました。
マクロをショートカットに登録すれば、通常のコピペと同様に使えます。
以下手順で行ってください。

◆手順
１．以下のマクロを標準モジュールに貼付けます。
２．メニュー → 開発 → マクロ　から標準モジュールに入れたマクロ『area_copy』を選択して、オプション → ショートカットキー　のところに『d』を入力してOKとします。マクロの画面はキャンセルで閉じます
３．手順1,2にて、範囲選択してCTRL＋dとすればその範囲のコピーが行えるようになりました。（マクロを実行するのと同じ結果です）
４．貼付けは、通常どおりのCTRL＋v、またはメニューの貼付け、または右クリックの貼付け、でできます。

※１　このマクロでは、コピー元セル間の区切り文字として半角スペースを入れています。別の文字にしたい場合には、マクロ中の　kugiri_moji=" "　の部分を編集ください。　
※２　選択範囲が2×2だけでなく、任意の選択範囲に対応しています。

◆マクロ
Sub area_copy()
' 複数セルをコピーして、一つのセルに貼付け
' Keyboard Shortcut: Ctrl+d
    Dim buf As String
    Dim CB As DataObject
    Dim myStr As String
    Dim cellStr As String
    Dim r1 As Single
    Dim r2 As Single
    Dim c1 As Single
    Dim c2 As Single
    Dim kugiri_moji As String
    
    kugiri_moji = " " 　　　　　　　'←←←　" "で囲まれた文字が区切り文字として入ります(変更可)
    r1 = Selection.Row
    r2 = Selection.Row + Selection.Rows.Count - 1
    c1 = Selection.Column
    c2 = Selection.Column + Selection.Columns.Count - 1
    For i = r1 To r2
        For j = c1 To c2
            cellStr = Cells(i, j)
            myStr = myStr + kugiri_moji + cellStr
        Next j
    Next i
    
    Set CB = New DataObject
    buf = myStr
    With CB
        .SetText buf        ''変数のデータをDataObjectに格納する
        .PutInClipboard     ''DataObjectのデータをクリップボードに格納する
        .GetFromClipboard   ''クリップボードからDataObjectにデータを取得する
    End With

End Sub

enunokokoro · Answer

> エクセルでユーザーフォームの中のコンボボックス
こちら↓のようなものを用意したのですか？
https://excel-ubara.com/excelvba3/EXCELFORM011.html
だとしたら、複数行の表示は無理だと思う。

テキストボックスならば、No.2の回答にある手順で可能です。
MultiLineプロパティをTRUEにすることで、改行に対応できます。
https://detail-infomation.com/vba-textbox-property/#st-toc-h-13

ぐーるぐる · Answer

なに？こういう事？一度テキスト化すれば？

enunokokoro · Answer

単純なコピーペーストだと無理だと思う。
Excelではコピーした状態で、数式バーに直接貼り付けることが
できないので、1セル内に表示できません。
（これは[ F2 ]キーなどでセルの編集状態にしても同じ）

対応方法の例：

A1:B2の範囲を選択して、メモ帳などに貼り付けます。
メモ帳に貼り付けたものをコピーし、別ワークシートの特定セルに
数式バーまたは[ F2 ]キーなどで編集状態にして貼り付けます。
改行部分も含まれるので2行で表示されているはずです。

エクセルでのコピーペースト

No.5です。

何となくですけど。

No.5です。

No.5です。

コンボボックス？・・・というのが分からないのですが、ひとつのセルに張り付けるのであれば、次の手順で出来ると思います。

No.3さんの添付図のようなことがやりたいという前提で回答します。

> エクセルでユーザーフォームの中のコンボボックス

なに？こういう事？一度テキスト化すれば？

単純なコピーペーストだと無理だと思う。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング