Excel 自動転記について

質問

セルA1からA10に入力してある数値で0以外の数値を別のブックに自動転記する方法をご指導願います。

回答No.3

SI299792 · ベストアンサー

Book1.xlsxのSheet1のA1～A10 の０以外を関数で転記するなら
A1: =IFERROR(INDEX([Book1.xlsx]Sheet1!A$1:A$10,SMALL(IF([Book1.xlsx]Sheet1!A$1:A$10<>0,ROW([Book1.xlsx]Sheet1!A$1:A$10)),ROW())),"")
Ctri＋Sheft ＋Enter で配列数式にします。
下へコピペ。

補足

ご回答を有難うございます。
上手く行きました。有難うございます。
ただ範囲がセルA1からA10とセルD1からD10と増えた場合、BooK2　のA列転記がうまく出来ずにいます。
お時間がありましたら再度ご指導を宜しくお願いいたします。
お時間があればご指導願います。

回答No.6

msMike

[No.2補足]へのコメント、
》 …の数値に続けて転記をしたいです
♪ソレならソーと最初から云へばストトンとワタシャ來やしない！
恥かし乍ら私はマクロ音痴なのですゥ～(*^_^*)

回答No.5

SI299792

でしたら、Ａ列の数式をそのままにして、Ｄ列にコピペすればできるはずです。
D1: ={IFERROR(INDEX([Book1.xlsx]Sheet1!D$1:D$10,SMALL(IF([Book1.xlsx]Sheet1!D$1:D$10<>0,ROW([Book1.xlsx]Sheet1!D$1:D$10)),ROW())),"")}
になります。

お礼

説明不足の為何度もご回答をありがとございました。
教えて頂いた式に合わせて表を工夫する事にしました。

補足

お忙しい中何度もご回答を下さいまして有難うございます。
説明が悪くてすみません。D列で抽出した数値もA列に10.20.15.20と転記をしたいです。
何度も申し訳ありませんので、お時間がありましたらで結構です。

回答No.4

SI299792

msMikeさんかぶってしまい、同じ回答なのですが。

Ｂ列、Ｃ列は関係ないのですね。
A1からA10とセルD1からD10と増えた場合とは、どのようにするのでしょうか、
(1) Ａ列、Ｄ列関係なく、０なら転記しない。
この場合、Ａ列の数式を、Ｄ列にコピペすればいです。
(2) Ａ列、Ｄ列、片方０でなければ転記、両方０なら転記しない。
(3) Ａ列、Ｄ列、両方０でなければ転記、片方０なら転記しない。
(4) その他

補足

何度も有難うございます。
説明が足りず申し訳ありません。
(1)の回答で　Book2の3行目にＤ列の15、4行目に25を　全てA列に転記をさせたいです。
お時間がありましたら再度ご指導を頂けると助かります。
どうぞ宜しくお願いいたします。

回答No.2

msMike

「セルA1からA10に入力してある」Sheet1 を有するブック名を Book1 とします。
“別ブック”Book2 の Sheet1 のセル A1 に下記の式を入力して、當該セルを下方にズズーッとオートフィルすれば好い！
[Bppl2.xlsx]Sheet1!A1: =IFERROR(INDEX([Book1.xlsx]Sheet1!A$1:A$10,SMALL(IF([Book1.xlsx]Sheet1!A$1:A$10<>0,ROW(A$1:A$10)),ROW(A1))),"")
【御斷はり】上式は必ず配列數式として入力の事

補足

式を入れると上手く行きました。ありがとうございます。
追加があります。
セルD1からD10にも数値があり0以外の数値をBook2のSheet1のセルA1にセルA1からセルA10で抽出した0以外の数値に続けて転記をしたいです。
どのようにすれば、Book2のSheet1のセルA列に表示出来るかを、今一度ご指導を宜しくお願いいたします。

回答No.1

imogasi

質問が大雑把だな。
>別のブックに自動転記す
行き先の、別ブックのセル（アドレスは）は、どういう対応なのか、書かないと。
ーー
VBAでは、望まないのかどうかも書くべし。