No.6ベストアンサー
- 回答日時:
質問を閉じられないということは、ダブルクリックを実現する回答を待たれているのですか?
代替えに、サンプルマクロを組んでみました。
オートフィル入力セル行の、1行上に、データが連続して入力されていることが前提です。
オートフィル開始セルにデータを入力してください。
n飛び連続データの場合は、オートフィル開始セルと隣のセルにデータを入力してください。
オートフィル開始セルを選択しておいてマクロを実行してください。
このマクロに、ショートカットキーを割り当てれば、ダブルクリック並みの利便性が得られると思います。
Sub test1()
Dim myType As Variant
Dim srng As Range
Dim fillrng As Range
If ActiveCell = "" Then Exit Sub
Set srng = ActiveCell
Set fillrng = Range(srng, srng.Offset(-1).End(xlToRight).Offset(1))
If srng.Offset(, 1) = "" Then
myType = xlFillSeries
Else
Set srng = srng.Resize(, 2)
myType = xlFillDefault
End If
srng.AutoFill Destination:=fillrng, Type:=myType
End Sub
なんども すみません!!
ありがとう御座います!!
いただいたコードを試しましたが
「すばらしい!!!」の一言です!!!
おっしゃるとおりに数字で連続データが見事に横に並びました!!
たかだか20Pでは御座いますが ご査収ください。
ありがとう御座いました!!
No.5
- 回答日時:
回答番号:No.4に追記です。
数式の場合は、対象セル範囲を選択後、Ctrl+R で良いと思います。
あるいは、F2キーで数式セルを編集モードにして、Ctrl+Enter でも良いと思います。
No.4
- 回答日時:
≪セル範囲を選択する方法≫
例1
名前ボックスに、A1:AZ1 と入力し、Enter
例2
Ctrl+G で「ジャンプ」ダイアログを表示、参照先に A1:AZ1 と入力し、Enter
例3
データ入力セルの左端セルを選択
Ctrl+Shift+→ で終端セルまでを選択
Shift+↓ で1行下まで選択範囲を拡張
Enterでアクティブセルを1行下のセルに移動
Shift+↓ で1行下のセル範囲に選択範囲を縮小
≪選択範囲に連続データを入力≫
先頭セルに開始データを入力
Alt+E で「編集」メニュー
I で「フィル」
S で「連続データの作成」ダイアログを表示
あとは「連続データの作成」ダイアログを操作
ユーザー設定で「連続データの作成」アイコンをツールバーにおけばキー操作を減らすことができます。
ご回答誠にありがとう御座います!
例3は読みながら「なるほどぉ~!!」と思いました。
ANo5の追記いただいた操作は最近はまっています。
以前は通常の(?)コピーして範囲選択をして貼り付け(Enter)でしたが
最近は 予め範囲選択をして数式を入れてCtrl+Enterにはまっています。
Ctrl+Gはピボの空白を埋める時に使用していましたが こんな使い方もありましたね。
「Shift+ダブルクリックぐらいで横にオートフィル出来ればなぁ。。」と思っていましたが
どうやら そんな方法はないようですね。。。
何度もありがとう御座いました。
No.3
- 回答日時:
代替案です。
おそらく、横方向に長いデータのコピペをしたいのだと推測しました。
しかも、ドラッグだと、ついつい行き過ぎてイライラする・・・
以下の方法をおすすめします。
0)コピーしたい内容をコピー 「Ctrl」+「C」
1)データの入っている行の適当なセルを選択
2)「Ctrl」+「→」 これで最終列へジャンプ
3)「↓」 次の行の最終列を選択
4)「Ctrl」+「Shift」+「←」 貼り付け領域を選択
5)「Ctrl」+「V」 貼り付け
ご回答ありがとう御座います!!
やはり そうなりますか。。
>しかも、ドラッグだと、ついつい行き過ぎてイライラする・・・
そうなんですよ!
あとは 手を離していい所までドラッグで行く時間が嫌ですね!
(その間ずっとマウスを握ってないといけないのが。。)
ご回答 ありがとう御座いました!!
No.2
- 回答日時:
無理だと思います。
ダブルクリックに拘るなら、
一旦「形式を選択して貼り付け」の「行列を入れ替える」で縦に貼り付け
ダブルクリックでオートフィル
再度「形式を選択して貼り付け」の「行列を入れ替える」で横に貼り付け
といった操作になると思います。
元のデータはどのようなものをオートフィルされようとしていますか?
データによっては上記以外の代替え案が提案できるかもしれません。
ご回答ありがとう御座います。
やはり そうなのでしょうか。。
行列を入れ替えたモノをまた入れ替えるぐらいなら我慢してドラッグしますね ^^;
元データは「何でも」ですね。
数式、日付、番号(数値)等々
色々試しましたが 結論「縦に貼付られた」という結果になりました。。
ご回答ありがとう御座いました!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel ヘルプの[ロック解除]、<c0>、</c0> の意味は何ですか? 1 2023/02/20 16:58
- Excel(エクセル) エクセル関数のXlookupのフィルハンドル機能(類した機能でも可)を知りたいです。 3 2022/09/20 20:02
- Excel(エクセル) Excelの文字列を転記したいのですが。 2 2022/09/30 12:09
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) A列にある値をB列・C列にVBAで切り出し 3 2022/04/09 19:20
- Excel(エクセル) ある数値に対して、値を返す数式についてです 2 2022/09/13 22:06
- Excel(エクセル) vba セルの罫線について教えてください 2 2022/12/28 17:14
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) Excelのセル上の日付の不具合 3 2022/05/22 18:20
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelで、スクロールをすると限...
-
エクセルの画面で十字マークが...
-
EXCEL アルファベットと数字の...
-
エクセルで連続データから、数...
-
複数のセルの入力内容を一度に...
-
excelで1行ごとに一気に削除す...
-
エクセル グラフ作成について
-
セルをクリックすると付箋のよ...
-
エクセル 数値を全て「1」にす...
-
エクセル 画面上の行数を調節...
-
Excelで表のデータを並び替えた...
-
Shift押しながら、矢印ボタンで...
-
エクセルでハイパーリンクのU...
-
エクセルVBAでセル範囲のデータ...
-
Excel選択を繰り返すとセルの色...
-
エクセルの行数の制限
-
Excelで急に動かなくなる
-
エクセルで、結合したセルを選...
-
ピポットテーブルエラー解決方法
-
エクセル 複数セルを選択する...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelで、スクロールをすると限...
-
エクセルの画面で十字マークが...
-
エクセルで連続データから、数...
-
EXCEL アルファベットと数字の...
-
セルをクリックすると付箋のよ...
-
excelで1行ごとに一気に削除す...
-
エクセルでハイパーリンクのU...
-
エクセル 数値を全て「1」にす...
-
エクセル 画面上の行数を調節...
-
Excel選択を繰り返すとセルの色...
-
ピポットテーブルエラー解決方法
-
Shift押しながら、矢印ボタンで...
-
複数のセルの入力内容を一度に...
-
Excelで表のデータを並び替えた...
-
エクセルで0を除いて昇順に並...
-
エクセルVBAでセル範囲のデータ...
-
Excelで急に動かなくなる
-
エクセルでカーソルが四方に矢...
-
エクセルで「1~15」の乱数...
-
連続データの作成(E)が選択出来...
おすすめ情報