不連続セルの値複写

不連続セルの値複写
Excelの表1には式が入ってます。今ここでは式の作り方は云々しません。
質問はこれを単純に値複写することです。

表2,3のようにfilterを外せば、コピーと値複写で簡単にできます。
しかし、表3のようにfilterのまま値複写する方法はありませんか。
単純に値複写すると、希望の状態ではなく、実際と記した結果になります。
なお、ソフトはWin10＋Excel2013です。
同じ内容の質問を3日前に行いましたが、それを削除の上での再質問です。

No.7 ベストアンサー 回答者： chonami 回答日時： 2016/12/30 15:28

あー！わかった。

フィルターをかけたままコピペしたいということね。

わかりにくいなぁ…

フィルタリングしてコピーすると自動的に可視セルだけ選択されちゃうので詰めて貼り付けられるということですね。
一般機能ではご希望の貼り付けは難しいと思いますねぇ。

この回答へのお礼

やっと、分かってくださりありがとうございます。
式と値を区別し説明したつもりでしたが、正しく理解してもらえず残念でした。
一般機能では難しいとのことですが、別のExcelか、Wordにいったんコピーし、戻せばどうなるだろうかや、コピーのところで、値複写のほかに、別の何かを選べがどうだろうかと考えていますが、思うようになりません。

お礼日時：2016/12/30 15:46

No.6 回答者： enunokokoro 回答日時： 2016/12/30 14:45

No.4の回答者です。

No.5の指摘のように、可視セルの選択をするショートカットキーを
間違って記載してしまいましたね。

間違い
可視セルのみ選択する[ Ctrl+； ]キーで選択し
修正
可視セルのみ選択する[ Alt+； ]キーで選択し

ショートカットキー以外での操作のサイトも記載しておきます。
http://www4.synapse.ne.jp/yone/excel2010/excel20 …
http://www.relief.jp/itnote/archives/018350.php
誤解を生む間違いをしてスイマセンでした。

No.5 回答者： chonami 回答日時： 2016/12/30 13:44

No.4さん、可視セル選択はAlt+;ですよ。

Ctrlだと日付になっちゃうので。

No.4 回答者： enunokokoro 回答日時： 2016/12/30 13:35

質問していることは、表1をオートフィルタによって「A」だけにして

指定したセルの値（C3セルの100）を基準に1を加算するのですね。
（表3はそれを理解できるように別セルに書いただけと思われる）

B列に「A」または「B」があって、「A」のみにオートフィルタをしたものに
連番を入れるだけなら、以下の方法でも可能です。

B4セルから開始しているB列をもとにオートフィルタをします。

「A」のみにしたら、C3からAのある範囲を列で範囲選択します。
可視セルのみ選択する[ Ctrl+； ]キーで選択し、開始の数値をC3セル
に「100」と記載して[ Enter ]キーで確定します。

オートフィルタを解除、又はBを含む[すべて選択]の状態にします。

[ホーム]タブにある[フィル]→[連続データの作成]を選択し[連続データ]
ダイアログを出します。

[範囲]を[列]にして[種類]を[加算]、[増分値]を[ 1 ]にして[ OK ]すれば、
可視セルに「101」からの増分値で連続データが記載されます。

ちなみに、「B」でオートフィルタをしても同じ手順で可能です。

参考サイト
オートフィルタの結果に連番を振るには
http://www.office-qa.com/Excel/ex14.htm

No.3 回答者： tom04 回答日時： 2016/12/30 12:11

こんにちは！

要するにオートフィルタがかかっていて、表示されている行に連番を表示したい！というコトですよね？

VBAになりますが、一例です。
具体的な配置が判らないので
↓の画像の配置でB列の「A」でフィルタをかけ、C列にC1セルに入っている数値以降の連番を表示するようにしています。

Sub Sample1()
Dim i As Long, cnt As Long
If ActiveSheet.AutoFilterMode Then
If ActiveSheet.AutoFilter.FilterMode Then
cnt = Range("C1")
For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
If Rows(i).Hidden = False Then
cnt = cnt + 1
Cells(i, "C") = cnt
End If
Next i
Else
MsgBox "絞り込まれていません。"
End If
Else
MsgBox "フィルタが設定されていません。"
End If
End Sub

※　画像はフィルタを解除した後の結果になります。m(_ _)m

この回答へのお礼

コメントありがとうございます。
ご指摘の内容は、式の作り方ではありませんか。
質問の頭に書きました通り、式の作り方は云々していません。
表示は101,102等の値ですが、中身は式のままです。
知りたいのは式を数値即ち値に直す方法が知りたいのです。
空白セルは空白のままです。

お礼日時：2016/12/30 15:27

No.2 回答者： chonami 回答日時： 2016/12/30 12:05

お書きになっているサンプル通りなら、100にAの数をCOUNTIFで数えた式を足していけばいいと思いますが。

この回答へのお礼

コメントありがとうございます。
言われますことは式そのものです。
即ちD列を別の表現であらわすものです。
C列の表示は101、102、103等の数字ですが、中身はD列の通りの式です。
今ほしいのは、式の結果の101,102,103という値そのものを出したいのです。
式と値は別で、欲しいのは式ではなく値です。

お礼日時：2016/12/30 15:14

No.1 回答者： testman199 回答日時： 2016/12/30 10:14

いまいちやりたいことが分かりませんが

D$17のように絶対参照を使えませんか？

この回答へのお礼

コメントありがとうございます。
やりたいことは単純に、式を値に直すことです。
絶対参照では、1件処理ずつの処理になりませんか。
1件処理なら、値複写を個別に実行すれば済みます。
Excelの貼付にオプションがあります。
これを組み合わせればと、思いますが、上手く行きません。

お礼日時：2016/12/30 10:54