こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

-広告-

解決済みの質問

Excelの繰り返し入力について

A1に3を、A2に4 を入力します
これをAUTOFILL もしくは コピーで A3に3、A4に4、A5に3、A6に4
というように繰り返しのできる方法はあるのでしょうか?
1)通常のコピペはできます
2)A3に =A1, A4に =A2を入力してコピすると可能なことは判明済です
3)3-4⇒3-4⇒3-4・・・
つまり繰り返しのAutoFillについてです
よろしくお願いいたします。

投稿日時 - 2017-10-13 19:31:16

QNo.9385493

困ってます

質問者が選んだベストアンサー

3と4を両方共選択し、CTL を押しながらオートフィルします。

投稿日時 - 2017-10-13 20:08:01

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(4)

ANo.4

>A1に3を、A2に4 を入力します
>これをAUTOFILL もしくは コピーで A3に3、A4に4、A5に3、A6に4
>というように繰り返しのできる方法はあるのでしょうか?
オートフィルについては回答No.2で「A1:A2を選択してCtrlを押しながらオートフィル」と言う提言がありますので割愛します。
コピーの場合はA1:A2を選択してコピーコマンドでクリップボードへ記憶し、貼り付け先をすべて選択してペーストコマンドを実行すれば目的通りになります。
尚、A列に限らず他の列でも(複数列も含めて)上から順に3、4、3、4のように繰り返しの貼り付けになります。(但し、貼り付け先はコピー元のセル数の倍数を指定しなければなりません。)

投稿日時 - 2017-10-13 21:10:09

お礼

ありがとうございます
CTRL での コピー すっかり忘れていました
おかげさまで CTRL+ENTER も思い出しました。

投稿日時 - 2017-10-14 09:15:32

ANo.3

VBAマクロ
Sub Next_STEP()
Dim i As Long '<== 変数の宣言
For i = 1 To 1000 Step2 '<== 1行から1000行まで1つ飛びで
Cells(i, 1) = 3 '<== A列に3を代入、奇数行
Cells(i+1, 1) = 4 '<== A列に4を代入、偶数行
Next i '<== ループ
End Sub

投稿日時 - 2017-10-13 20:31:46

お礼

ありがとうございます
ちょっと私には難しかったです
VBAは得意でないので・・・。

投稿日時 - 2017-10-14 09:10:27

ANo.1

A3に=A1と入力して,それを下にコピーするだけではないですか?

投稿日時 - 2017-10-13 20:05:22

お礼

ありがとうございます
A4に=A2 これは無駄でした。

投稿日時 - 2017-10-14 09:05:17

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-