Excel

質問

Excelの入力でA1のセルに［=単語帳入力欄! B3］、A3のセル［=単語帳入力欄! B6］…というように奇数行のみに3の倍数を含んだ文字列を表示させて、他のシートを参照させる方法というのは、可能でしょうか？
一つ一つ手入力するのは大変なので、関数で自動化したいと思っています。詳しい方よろしくお願いいたします。

回答No.4

kkkkkm · ベストアンサー

回答No.2の訂正と記載漏れです。

訂正が

> 必要なだけコピー

必要なだけ下にコピー

記載漏れが

奇数行だけ選択して貼り付けが面倒でなければ
A1に以下の式を入れてコピーして
=INDIRECT("単語帳入力欄!B" & 3*(INT(ROW(A1)/2)+1))
奇数行のセルだけ選択して貼り付けると偶数行は空のままにしておけます。
A1起点で奇数偶数2行選択の下に必要なだけコピーでもいけます。

回答No.3

luka3

A1に入れる数式

=INDIRECT("単語帳入力欄!B"&((ROW()/2+0.5)*3))

A1:A2を範囲選択して、下方向へフィル、もしくはコピペ

お礼

初心者の私にもわかりやすい解説をいただきありがとうございました。また機会がありましたらどうぞよろしくお願いいたします。

Powered by GRATICA

回答No.2

kkkkkm

奇数行だけ表示されて偶数行は式はあるけど見えないという状態でよければ以下の式をA1に入れて下に必要なだけコピーしていてください。

=IF(MOD(ROW(A1),2)=0,"",INDIRECT("単語帳入力欄!B" & 3*(INT(ROW(A1)/2)+1)))

回答No.1

kkkkkm

関数を奇数行のみに入れるというのは何らかの関数を作成して奇数行のみ選択してコピペするという作業になると思いますのでそれはそれで面倒じゃないかと思います。

マクロでよろしければ以下のマクロを実行すれば
A1のセルに［=単語帳入力欄! B3］、A3のセル［=単語帳入力欄! B6］…
と数式が入ります。

Sheet1は実際のシート名に変更してください。

i = 1 To 50
の50は実際に数式を入れたい最後の行を指定してください。

Sub Test()
Dim i As Long, j As Long

j = 3
With Sheets("Sheet1")
For i = 1 To 50 Step 2
.Cells(i, "A").Formula = "=単語帳入力欄! B" & j
j = j + 3
Next
End With

End Sub

お礼

困っていたところを丁寧に教えていただきまして大変助かりました、ありがとうございました。

Powered by GRATICA