excel2010　空白セルにのみ貼り付けたい

Question

excel2010使用　空白セルにのみ貼り付けたいのですが、

①の空白セルにのみ、②のデータを
貼りつけたいのですが、一括で簡単に出来る方法はあるでしょうか？
excel初心者の為、マクロとかは理解しておりません。
よろしくお願いいたします。
（逆に②を①に貼る、「形式を選択して貼り付け→すべて、演算しない、空白セルを無視する」
は、望む方法ではありません。）

mike_g · Accepted Answer

添付図参照
１．式 =IF(1/(C2=""),C7) を入力したセル C11 を右方および
￣￣下方にオートフィル
２．範囲C11:G13 を選択して、Ctrl+G を実行後、[セル選択]
￣￣をツン
３．“数式”に目玉入れて、かつ、“エラー値”以外のチェックを
￣￣外して、[OK]をツン
６．Deleteキーをパシーッ
７．範囲C11:G13 を選択
８．Ctrl+C をパシーッ
９．セル C2 を選択して、マウスの右クリックから[形式を選択
￣￣して貼り付け]メニューを表示
10．“値”に目玉を、“空白セルを無視する”にチェックを入れて、
￣￣Enterキーを「エイヤッ！」と叩きつけ

「空白セルを無視する」を利用しないテはアンメーに！

WindFaller · Answer

こんにちは。

①で、「空白」が目に見えない「空白値」で中身が入っているとしたら、くだんの[形式を選択して貼り付け]は成り立たなくなるはずですね。

たぶん、一連の動作だけで、情報が不足しているので、話が通じていないのだろうと思います。また、それは、今、私が思っている内容とも違う可能性はあるということです。

一般的にいう初心者の方に、その用語の詳しい定義などを求めてもキリがないとは思います。先日も、[削除]と[消去]の用語の違いでも揉めていましたが、それは無理な話です。英語のカテゴリでさえ、サイズという単語で、私が間違いなければ、混乱していたようですから。他にも、Null（ナルと読む)とか、Emptyとか、プログラム上の独特の値を、表計算上で使うと、とてもややこしいのです。
ちなみに、Null は、Nilと同義語で、一般的には「0」のことですね。

さて、そのためにマクロという言葉が出てきたのでしょうか。
空白も、最近は、とっても厄介なものです。種類が何十種類もありますから。うまくいくとは限らないのです。

コピー＆ペーストの動作のままで、マクロを成功させると考えるとかなり難しいです。やって出来なくはないのですが、ワークブックをお渡しする形でもしないと、それは、とても一般の方には、設定が難しくなります。

簡易的なマクロをご紹介しょうかと考えています。
まず、表の下部にシートタブがありますから、そのシートのタブを右クリックして[コードの表示]をクリックします。

使い方は、まず、②を最初に、③に貼り付けておきます。
次に、①の「あ」の位置で、範囲を選択して、右クリックします。
次に③の貼り付ける所の、左端上「あ/a」の位置に当たるところで、Ctrl + Alt + U で貼り付けします。

ショートカットはもう少し選べるかと思いましたが、外部のショートカットもコンフリクトするようで、例えば、Evernoteなども関わってくるようです。
[^（キャレット)]はCtrl キー , [+(プラス)]はシフト, %[パーセント]は、Altキーで、機能キーは、{}で囲みますから、{F1} などと書きます。

これは、なるべくコンパクトに収めることを考えて作りました。
'--------------

Dim Ar　'モジュール画面の最上に置く
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long, j As Long
Cancel = True
If Target.Count = 1 Then MsgBox "範囲を選択してください。", vbExclamation: Exit Sub
Ar = Target.Value
For i = 1 To UBound(Ar, 2)
　For j = 1 To UBound(Ar)
　　Ar(j, i) = Trim(Ar(j, i))
　　Ar(j, i) = WorksheetFunction.Clean(Ar(j, i))
　Next j
Next i
Beep
Call Setkey
End Sub
Sub PasteWoBlank()
Dim j As Long, i As Long
　If ActiveCell.CurrentRegion.Cells.Count > 2 Then
　　If IsArray(Ar) Then
　　　j = UBound(Ar): i = UBound(Ar, 2)
　　　With ActiveCell
　　　　For i = 1 To UBound(Ar, 2)
　　　　　For j = 1 To UBound(Ar)
　　　　　　If Len(Ar(j, i)) > 0 Then
　　　　　　　ActiveCell.Cells(j, i) = Ar(j, i)
　　　　　　End If
　　　　　Next j
　　　　Next i
　　　End With
　　Else
　　　MsgBox "データが確保されていません。", vbCritical
　　End If
　End If
End Sub
Sub Setkey()
'ショートカット　Ctrl+Alt ->u
　Application.OnKey "^%u", Me.Name & ".PasteWoBlank"
End Sub

'//

これはほんの一例で、マクロでなければ、関数で処理する方法もあるはずです。

chonami · Answer

>②を①に貼る

これってどうやったらできると質問者さんは考えているんですかね？？禁じ手にするくらいだからご本人はできるんでしょうね。
私にはさっぱりやり方が思いつきませんが。

1を2に貼り付ける際に空白を無視する、これ以外は私もいい方法はでませんね。
禁じ手にするからには理由くらい書いてもいいと思いますけど。

ママチャリ · Answer

「空白を無視して②を①に貼る」が望む方法ではないとのことですが、その理由をお聞かせください。

angkor_h · Answer

これは、上①、中②、および下①の三つが同時に存在するのであれば可能です。

例)
A13=if(C2が空白でなければ、C2、C7)

しかし、C7に「あ」と入力されたならば、この関数が消えてしまい、
C2を空白にしても、C7が反映されません。
自己矛盾のような要求です。

銀鱗 · Answer

＞（逆に②を①に貼る、「形式を選択して貼り付け→すべて、演算しない、空白セルを無視する」
＞は、望む方法ではありません。）
残念ながらそれが一番確実な方法。

ちょっと考えれば、１と２を丸ごとコピーして、そのコピーに対してやった結果を持ってこれば良い事は分かると思う。
手間ではあるだろうが、
「コピーに対して操作を行う」
ことを学ぶようにしよう。

excel2010 空白セルにのみ貼り付けたい

添付図参照

こんにちは。

>②を①に貼る

「空白を無視して②を①に貼る」が望む方法ではないとのことですが、その理由をお聞かせください。

これは、上①、中②、および下①の三つが同時に存在するのであれば可能です。

＞（逆に②を①に貼る、「形式を選択して貼り付け→すべて、演算しない、空白セルを無視する」

このQ&Aを見た人はこんなQ&Aも見ています

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

このQ&Aを見た人がよく見るQ&A

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

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

excel2010　空白セルにのみ貼り付けたい