No.6ベストアンサー
- 回答日時:
添付図参照
1.式 =IF(1/(C2=""),C7) を入力したセル C11 を右方および
 ̄ ̄下方にオートフィル
2.範囲C11:G13 を選択して、Ctrl+G を実行後、[セル選択]
 ̄ ̄をツン
3.“数式”に目玉入れて、かつ、“エラー値”以外のチェックを
 ̄ ̄外して、[OK]をツン
6.Deleteキーをパシーッ
7.範囲C11:G13 を選択
8.Ctrl+C をパシーッ
9.セル C2 を選択して、マウスの右クリックから[形式を選択
 ̄ ̄して貼り付け]メニューを表示
10.“値”に目玉を、“空白セルを無視する”にチェックを入れて、
 ̄ ̄Enterキーを「エイヤッ!」と叩きつけ
「空白セルを無視する」を利用しないテはアンメーに!
No.5
- 回答日時:
こんにちは。
①で、「空白」が目に見えない「空白値」で中身が入っているとしたら、くだんの[形式を選択して貼り付け]は成り立たなくなるはずですね。
たぶん、一連の動作だけで、情報が不足しているので、話が通じていないのだろうと思います。また、それは、今、私が思っている内容とも違う可能性はあるということです。
一般的にいう初心者の方に、その用語の詳しい定義などを求めてもキリがないとは思います。先日も、[削除]と[消去]の用語の違いでも揉めていましたが、それは無理な話です。英語のカテゴリでさえ、サイズという単語で、私が間違いなければ、混乱していたようですから。他にも、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
'//
これはほんの一例で、マクロでなければ、関数で処理する方法もあるはずです。
回答ありがとうございました。
こちらの質問が間違っていたため、ややこしいことになってしまい申し訳ございません。
教えて頂いたこと、今後の参考にさせていただきます。
No.4
- 回答日時:
>②を①に貼る
これってどうやったらできると質問者さんは考えているんですかね??禁じ手にするくらいだからご本人はできるんでしょうね。
私にはさっぱりやり方が思いつきませんが。
1を2に貼り付ける際に空白を無視する、これ以外は私もいい方法はでませんね。
禁じ手にするからには理由くらい書いてもいいと思いますけど。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
形式貼り付けの「空白を無視する」ができない
Excel(エクセル)
-
エクセルで、列の空欄に隣の列の数値を入れたい
Excel(エクセル)
-
エクセルで空白のセルを探して貼り付け
Excel(エクセル)
-
-
4
エクセルの空白セルへコピーするマクロをくむ方法
Excel(エクセル)
-
5
オートフィルターによって、抽出したセルにだけペーストしたい。
Excel(エクセル)
-
6
エクセル マクロ 貼り付け先が空白でない場合 1行下に貼りつける
Excel(エクセル)
-
7
VBA 空白行に転記する
Visual Basic(VBA)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
Excel-参照セルが空白の場合、別のセルを参照するには。
Excel(エクセル)
-
10
リストと一致する値のセルを塗りつぶしたい。
その他(Microsoft Office)
-
11
Excelで質問です。空白セルを無視して貼り付け(値のみ)という操作
Excel(エクセル)
-
12
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
13
エクセルで上の行の値を自動的にコピーする
Excel(エクセル)
-
14
エクセルで特定の文字列が入った行を非表示にしたい
Excel(エクセル)
-
15
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
16
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
17
参照先セルに値が入っていない時に、「0」や「1900/01/00」などが入らないようにしたいのですが
Excel(エクセル)
-
18
エクセルで二つの数字の小さい値を抽出したいです
Excel(エクセル)
-
19
Excelで、すでに入力されているセルに、上書きせずに入力を続けたい
Excel(エクセル)
-
20
小数点以下を繰り上げたものをそのままコピーするには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
「データ要素を線で結ぶ」がチ...
-
関数TRANSPOSEで空白セルを0に...
-
excel2010 空白セルにのみ貼り...
-
ピボットテーブルで空白セルの...
-
空白セルにハイフンを表示
-
エクセルのグラフで式や文字列...
-
エクセル セルのコピー元が空...
-
Excel > ピボットテーブル「(空...
-
数式による空白を無視して最終...
-
VLOOK関数で作った請求書で、¥...
-
色つき行の一括削除は?
-
数式の結果が空白の時の空白扱い
-
エクセル 連番が途切れていると...
-
空白セル内の数式を残したまま...
-
エクセルで上の行の値を自動的...
-
形式貼り付けの「空白を無視す...
-
VBA スペースが入力されて...
-
エクセルで空白を無視して一番...
-
エクセルでCSVを編集するとき、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
エクセルでCSVを編集するとき、...
-
数式による空白を無視して最終...
-
「データ要素を線で結ぶ」がチ...
-
Excel > ピボットテーブル「(空...
-
関数TRANSPOSEで空白セルを0に...
-
ピボットテーブルで空白セルの...
-
空白セル内の数式を残したまま...
-
【Excel】 csvの作成時、空白セ...
-
色つき行の一括削除は?
-
excel2010 空白セルにのみ貼り...
-
エクセルで上の行の値を自動的...
-
Excel:関数が入っているセルに...
-
Excelで、入力文字の後に自動で...
-
エクセル 連番が途切れていると...
-
SUMIFS関数で「計算式による空...
-
【Excel】 Ctrl+方向キー で空...
-
《Excel2000》SUMPRODUCT関数で...
-
形式貼り付けの「空白を無視す...
-
エクセル VLOOKUP関数 日付は日...
おすすめ情報
大変申し訳ありません!
>(逆に②を①に貼る~…
は「逆に①を②に貼る~…」の間違いです!
用途としては、会社で「親」が持っているシート(原紙)の穴を「子」が穴埋めする業務です。
「子」はそれぞれ原紙をコピーして手元で作業、穴埋めが終わったら原紙に正解を書き込む…感じです。
シートに保護などがかかっていないので、元々埋まっている正しい答えをコピペして消したくないのです。