エクセル セルに簡単に式が入れたい

質問

Ａ１＝Ａ２、　Ｃ１＝Ｂ２、　　Ｅ１＝Ｃ２・・・・といったように、１行目の一つ飛びのセルが２行目を参照する式をいちいち手で打たずに入力する方法はないでしょうか？

また、ドラッグしてうまくやる方法があったとして、Ｂ１、Ｄ１・・・にも式が入っているため、この式は消さずにやりたいのです。

お分かりの方よろしくお願いいたします。

回答No.2

shinkun0114 · ベストアンサー

なんだか難しいですね^^;

　まず、式を入れる方法ですが、B列やD列の式に影響を与えないように、
他のシートを使いましょう。
　１．A1に「=A2」を入力します。
　２．右に必要数分コピーします
　３．[CTRL]キーを押しながら、B1 C1 D1 E1・・・
　　　入力した場所までを人ずつクリックします。
　４．挿入(I)-セル(E)を押し、「右方向へシフト」を選びます。

　　これで一つ飛びの式の入力は完了です。
　　次は、これを元のシートにコピーしましょう。

　５．元のシートの１行目の上に空白行を１行挿入します。
　６．元のシートの2行目を1行目にコピーします。(B・D・・列の式を待避する）
　７．先ほど別シートに作った式を、元のシートの２行目にコピーします
　８．1行目にB1、D1、F1の式が残っていますので、
　　　[CTRL]を押しながら、B1:B2、D1:D2、F1:F2・・・を範囲選択
　　していきます。
　９．選択し終わったら、[CTRL]+[D]を押して下にコピーします。
　10．１行目を消せば完了です。

***

直接打った方が早いかもしれませんね^^;

お礼

回答ありがとうございます。

出来ました。
＃入力セルが４００個あるので直接打つのはちょっと・・・

回答No.7

imogasi

VBAでないと不可能でしょう。
＞ドラッグしてうまくやる方法があったとして、Ｂ１、Ｄ１・・・にも式が入っているため、この式は消さずにやりたいのです。
ここがネックになります。ドラッグして、１つ飛びに変化させ、１つ飛びにもとの式をそのままはできません。
式か値がセットされるともとの式や値は消えてしまいます。
別場所に１列とびの式を作って、第１行に貼りつけようと
しても、「形式を選択して貼りつけ」の「空白のセルを無視する」コピー・貼りつけも、値は空白でも、式が入っていると、スキップしてくれなかった。

お礼

回答ありがとうございます。

回答No.6

BLUEPIXY

規則性がはっきりしてたら
マクロを使えばいいと思います。

お礼

回答ありがとうございます。

回答No.5

mshr1962

別のシートで
A1=OFFSET($A$2,0,COLUMN()/2)
としてC1にコピーします。
B1:C1を選択してオートフィルで横方向にコピーしてみてください。
これをコピーして該当シートで「形式を選択して貼り付け」「空白セルを無視する」で「OK」でコピーできます。

お礼

回答ありがとうございます。

参考にさせていただきます。

回答No.4

134

A1は、そのまま入れて頂くとして

B1,D1,E1…に、オートフィル（cha-chakoさんの方法でコピーできる関数）であるようでしたら、

B1に
=if(int(column(B1)/2)=column(B1)/2,既存の関数,A2)
とて、オートフィルで関数をコピーすると、可能かもしれません。

また、関数がコピーできないようであれば、C1セルに　「=B2」と入力した後に、C1セルをコピーして、Ctrlキーを押しながら、奇数列セルをクリックして、貼り付ける　ようですかね。

参考にしてくださいませ

お礼

回答ありがとうございます。

参考にさせていただきます。

回答No.3

tinu 2000（@tinu2000）

まず、A1に「=A2」を手打ちします。
A1を右クリックしてコピーを選択

C1を左クリック
CTRLを押しながらE1を左クリック
CTRLを押しながらG1を左クリック
　：
　：
必要なセルまでCTRLを押しながら左クリックする。

で、CTRLを押しながらVキーを押す。（右クリックの貼り付けでも良い）

こんなんで、出来ます。全部手打ちより少しは楽かな？

お礼

回答ありがとうございます。

ちょと質問と違う気が・・・
私の勘違いかな？

回答No.1

cha-chako

こんにちは！
内容が判りにくいですが、セルのドラッグではなく、
「行あるいは列全体のコピー」ではだめなのかな？

お礼

回答ありがとうございます。

ちょっと書き方を間違えました。
セルＡ１に”＝Ａ２”の式を書き込む。
・
・
・
でした。